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/* 

* jcapimin.c 
* 

* Copyright (C) 1994-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains application interface code for the compression half 

* of the JPEG library. These are the "minimum" API routines that may be 

* needed in either the normal full-compression case or the transcoding-only 

* case . 
* 

* Most of the routines intended to be called directly by an application 

* are in this file or in jcapistd.c. But also see jcparam.c for 

* parameter -setup helper routines, jcomapi.c for routines shared by 

* compression and decompression, and jctrans.c for the transcoding case. 
*/ 

#define JPEG_INTERNALS 
#include " j include. h" 
#include "jpeglib.h" 



/* 

* Initialization of a JPEG compression object. 

* The error manager must already be set up (in case memory manager fails). 
*/ 

GLOBAL (void) 

jpeg_CreateCompress ( j_compress_ptr cinfo, int version, size_t structsize) 
{ 

int i; 

Guard against version mismatches between library and caller. */ 
<finfo->mem = NULL; /* so jpeg_destroy knows mem mgr not called */ 

£f (version != JPEG_LIB_VERSION) 

y "_ 3 ERREXIT2 (cinfo, JERR_BAD_LIB_VERSION, JPEG_LIB_VERSION, version) ; 
4f (structsize != SIZEOF (struct jpeg_compress_struct ) ) 
VSERREXIT2 (cinfo, JERR_BAD_STRUCT_SIZE / 

2? (int) SIZEOF(struct jpeg_compress_struct) , (int) structsize); 

For debugging purposes, we zero the whole master structure. 

Z* But the application has already set the err pointer, and may have set 

l\i client_data, so we have to save and restore those fields. 

£ * Note: if application hasn't set client_data, tools like Purify may 
s_* complain here, 
r*/ 

d 

psstruct jpeg_error_mgr * err = cinfo->err; 

f^void * client_data = cinf o->client_data; /* ignore Purify complaint here */ 
NMEMZERO( cinfo, SIZEOF (struct jpeg_compress_struct) ) ; 
Pjcinfo->err = err; 

z:cinfo->client__ data = client_data; 
cinfo->is_decompressor = FALSE; 

/* Initialize a memory manager instance for this object */ 
j i ni t_memory_mgr ( ( j _c ommon_jp t r ) cinfo); 

/* Zero out pointers to permanent structures. */ 
cinfo->progress = NULL; 
cinfo->dest = NULL; 

cinfo->comp_ inf o = NULL; 

for (i = 0; i < NUM_QUANT_TBLS ; i++) 
cinfo->quant_tbl_ptrs [i] = NULL; 

for (i = 0; i < NUM_HUFF„TBLS ; i++) { 
cinfo->dc_huf f_tbl_ptrs [i] = NULL; 
cinfo->ac_huf f_tbl_ptrs [i] = NULL; 

} 

cinf o->script_space = NULL; 

cinfo->input„gamma = 1.0; /* in case application forgets */ 
/* OK, I'm ready */ 

cinfo->global_state = CSTATE_START ; 

} 
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/* 

* Destruction of a JPEG compression object 
V 

GLOBAL (void) 

jpeg_destroy_compress ( j_compress_ptr cinfo) 
{ 

jpeg_destroy ( ( j_common_j?tr) cinfo); /* use common routine */ 

} 



/* 

* Abort processing of a JPEG compression operation, 

* but don't destroy the object itself. 
*/ 

GLOBAL (void) 

jpeg_abort_compress ( j_compress_ptr cinfo) 
{ 

jpeg_abort ( ( j_common_ptr) cinfo); /* use common routine */ 

} 



/* 

* Forcibly suppress or un-suppress all quantization and Huffman tables. 

* Marks all currently defined tables as already written (if suppress) 

* or not written (if (suppress) . This will control whether they get emitted 

* by a subsequent jpeg_start_compress call. 
* 

iNThis routine is exported for use by applications that want to produce 
^abbreviated JPEG datastreams. It logically belongs in jcparam.c, but 

flsince it is called by jpeg_start_compress, we put it here otherwise 

fnjcparam.o would be linked whether the application used it or not. 

Gt£BAL(void) 

jp#g_suppress_tables ( j_compress_ptr cinfo, boolean suppress) 

{4J 

Jint i; 

^5QUANT_TBL * qtbl; 
-JHUFF_TBL * htbl; 

Lfor (i = 0; i < NUM_QUANT_TBLS ; i++) { 
L.I if ((qtbl = cinfo->quant_tbl__ptrs [i] ) ! 
qtbl->sent_table = suppress; 

w 

""ior (i = 0; i < NUM_HUFF_TBLS ; i++) { 
p if ((htbl = cinfo->dc_huff_tbl_ptrs[i] ) 
« htbl ->sent_t able = suppress; 

if ((htbl = cinfo->ac_huf f_tbl_ptrs[i] ) 
htbl ->sent_t able = suppress; 

} 

} 




= NULL) 

!= NULL) 
!= NULL) 



/* 

* Finish JPEG compression. 

* If a multipass operating mode was selected, this may do a great deal of 

* work including most of the actual output. 
*/ 

GLOBAL (void) 

jpeg_f inish_compress ( j_compress_ptr cinfo) 
{ 

JDIMENSION iMCU_row; 

if (cinfo->global_state == CSTATE_SCANNING | | 
cinfo->global_state == CSTATE_RAW__OK ) { 
/* Terminate first pass */ 

if (cinfo->next_scanline < cinf o->image_height) 
ERREXIT (cinfo , JERR_TOO_L I TTLE_DATA ) ; 

(*cinf o->master->f inish_pass) (cinfo) ; 
} else if (cinfo->global_state != CSTATE_WRCOEFS ) 

ERREXITK cinfo, JERR_BAD_STATE , cinf o->global_state) ; 
/* Perform any remaining passes */ 
while (! cinf o->master->is_last_pass) { 
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(*cinf o->master->prepare J^fepass) (cinfo) ; 

for (iMCU_row = 0; iMCU_r^^BT cinfo- > to tal_iMCU_rows ; iMCU„row^^P{ 

if (cinf o->progress != N^K) { 
cinf o->progress->pass_counter = (long) iMCU_row; 
cinf o->progress->pass_limit = (long) cinf o->total_iMCU_rows ; 
( *cinf o->progress->progress_monitor) ( ( j_common_ptr) cinfo); 

} 

/* We bypass the main controller and invoke coef controller directly; 
* all work is being done from the coefficient buffer. 
*/ 

if (■ (*cinfo->coef->compress_data) (cinfo, (JSAMPIMAGE) NULL) ) 
ERREXIT( cinfo, JERR_CANT_SUS PEND ) ; 
} 

( *cinf o->master->f inish_j?ass) (cinfo) ; 

} 

/* Write EOI, do final cleanup */ 

(*cinf o->marker->write_f ile_trailer ) (cinfo) ; 

(*cinf o->dest->term_destination) (cinfo) ; 

/* We can use jpeg_abort to release memory and reset global_state */ 
jpeg_abort ( ( j_common_ptr) cinfo) ; 



/* 

* Write a special marker. 

* This is only recommended for writing COM or APPn markers. 

* Must be called after jpeg_start_compress ( ) and before 

* first call to jpeg_write_scanlines ( ) or jpeg_write_raw_data ( ) . 
*/ 

GLOBAL (void) 

jpeg_writejnarker ( j_compress_ptr cinfo, int marker, 

const JOCTET *dataptr, unsigned int datalen) 

=£METHOD ( void, write_marker_byte , ( j_compress_ptr info, int val) ) ; 

-lit (cinf o->next_scanline != 0 || 
<t§ (cinfo->global_state != CSTATE_SCANNING && 
ll cinfo->global_state != CSTATE_RAW_OK && 
^ cinfo->global_state != CSTATE_WRCOEFS ) ) 
J] ERREXIT1 (cinfo, JERR_BAD_STATE, cinf o->global„state) ; 

^*cinfo->marker->write_markerJieader) (cinfo, marker, datalen) ; 

= write_marker_byte = cinf o->marker->write_marker — byte; /* copy for speed */ 

y while (datalen--) { 

^ (*write_marker_byte) (cinfo, *dataptr) ; 
dataptr++; 



Same, but piecemeal. */ 
dil)BAL(void) 

jpeg_write_m_header { j_compress_ptr cinfo, int marker, unsigned int datalen) 
{ 

if (cinf o->next_scanline != 0 || 

(cinfo->global_state != CSTATE_SCANNING && 
cinfo->global_state != CSTATE_RAW_OK && 
cinfo->global_state != CSTATE_WRCOEFS) ) 
ERREXITK cinfo, JERR_BAD_STATE , cinf o->global_state) ; 

(*cinfo->marker->write_marker_header) (cinfo, marker, datalen) ; 

} 

GLOBAL (void) 

jpeg_write_m_byte ( j_compress_ptr cinfo, int val) 
{ 

(*cinfo->marker->write_marker_byte) (cinfo, val); 

} 



/* 

* Alternate compression function: just write an abbreviated table file. 

* Before calling this, all parameters and a data destination must be set up. 

* To produce a pair of files containing abbreviated tables and abbreviated 

* image data, one would proceed as follows: 
* 

* initialize JPEG object 

* set JPEG parameters 
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* set destination to taj^^file 

* jpeg_write_ tables (cin^^B 

* set destination to ima^^ file 

* j peg_s tar t_compress (cinfo, FALSE); 

* write data. . . 

* jpeg_finish_compress (cinfo) ; 
* 

* jpeg_write_tables has the side effect of marking all tables written 

* (same as jpeg_suppress_tables ( . . . , TRUE)). Thus a subsequent start_compress 

* will not re-emit the tables unless it is passed write_all_tables=TRUE. 
*/ 

GLOBAL (void) 

jpeg_wr it eatables ( j_ compress^ ptr cinfo) 
{ 

if (cinfo->global_state != CSTATE_START) 

ERREXIT1 ( cinfo , JERR_BAD_STATE , cinf o->global_state) ; 

/* (Re) initialize error mgr and destination modules */ 
(*cinfo->err->reset_error_jngr) ( ( j_common_ptr) cinfo); 
(*cinfo->dest->init_destination) (cinfo) ; 

/* Initialize the marker writer ... bit of a crock to do it here. */ 
jinit_marker_wr iter (cinfo) ; 
/* Write them tables! */ 

(*cinf o->marker->write_tables_only) (cinfo) ; 
/* And clean up. */ 

(*cinf o->dest->term_destination) (cinfo) ; 
/* 

* In library releases up through v6a, we called jpeg_abort() here to free 

* any working memory allocated by the destination manager and marker 

* writer. Some applications had a problem with that: they allocated space 
a^* of their own from the library memory manager, and didn't want it to go 
^* away during write_tables . So now we do nothing. This will cause a 

Jj* memory leak if an app calls write_ tables repeatedly without doing a full 
compression cycle or otherwise resetting the JPEG object. However, that 
seems less bad than unexpectedly freeing memory in the normal case. 

UJ* An app that prefers the old behavior can call jpeg_ abort for itself after 

L -_s* each call to jpeg_write — tables () . 




/* 

* jcapistd.c 
* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains application interface code for the compression half 

* of the JPEG library. These are the "standard" API routines that are 

* used in the normal full -compression case. They are not used by a 

* transcoding-only application. Note that if an application links in 

* jpeg_start_compress , it will end up linking in the entire compressor. 

* We thus must separate this file from jcapimin.c to avoid linking the 

* whole compression library into a transcoder. 
*/ 

#def ine JPEG_INTERNALS 
#include "j include .h" 
#include "jpeglib.h" 



/* 

* Compression initialization. 

* Before calling this, all parameters and a data destination must be set up. 
* 

* We require a write_all_tables parameter as a failsafe check when writing 

* multiple datastreams from the same compression object. Since prior runs 

* will have left all the tables marked sent_table=TRUE, a subsequent run 

* would emit an abbreviated stream (no tables) by default. This may be what 

* is wanted, but for safety's sake it should not be the default behavior: 

* programmers should have to make a deliberate choice to emit abbreviated 
^images. Therefore the documentation and examples should encourage people 
*!:to pass write_all_ table s=TRUE; then it will take active thought to do the 
^Jwrong thing. 

m 

GE©BAL (void) 

jfef g_start_compress ( j_compress_ptr cinfo, boolean write_all_tables) 
{ 

«ff (cinfo->global_state != CSTATE_START) 

dl ERREXIT1 (cinfo, JERR_BAD_STATE , cinf o->global_state ) ; 

'-'if (write_all_tables) 

s jpeg_suppress_tables (cinf o, FALSE); /* mark all tables to be written */ 

L/* (Re) initialize error mgr and destination modules */ 

M*cinf o->err->reset„error_mgr ) ( ( j_ common_ptr) cinfo) ; 

ft! * cinf o->dest->init_destination) (cinfo) ; 

I_V* Perform master selection of active modules */ 

^3init_compress_master (cinf o) ; 

Lj* Set up for the first pass */ 

==*(*cinf o->master->prepare_f or_pass) (cinfo) ; 

"~ s /* Ready for application to drive first pass through jpeg_write_scanlines 
* or jpeg_write_raw„data. 
*/ 

cinfo->next_scanline = 0; 

cinfo->global_state = (cinf o->raw_data_in ? CSTATE_RAW_OK : CSTATE_SCANNING) ; 

} 



/* 

* Write some scanlines of data to the JPEG compressor. 
* 

* The return value will be the number of lines actually written. 

* This should be less than the supplied num_lines only in case that 

* the data destination module has requested suspension of the compressor, 

* or if more than image_ height scanlines are passed in. 
* 

* Note: we warn about excess calls to jpeg__write_scanlines { ) since 

* this likely signals an application programmer error. However, 

* excess scanlines passed in the last valid call are *silently* ignored, 

* so that the application need not adjust num„lines for end-of- image 

* when using a multiple-scanline buffer. 
*/ 

GLOBAL (JDIMENS ION) 

jpeg_write_scanlines ( j_compress_ptr cinfo, JSAMPARRAY scanlines, 
JDIMENSION num_lines) 

{ 

JDIMENSION row_ctr, rows_left; 
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if (cinfo->global_state != t^WrE_SCANNING) 

ERREXIT1 (cinfo, JERR_BAD_sWrE , cinf o->global_state) ; 
if (cinf o->next_scanline >= cinf o->image_height) 
WARNMS (cinfo, JWRN_TOO_MUCH_DATA ) ; 

/* Call progress monitor hook if present */ 
if (cinf o->progress != NULL) { 

cinfo->progress->pass_counter = (long) cinf o->next_scanline; 

cinfo->progress->pass_limit = (long) cinf o->image_height; 

(*c info- >progress->progress_moni tor) ( ( j_common_ptr) cinfo); 

} 

/* Give master control module another chance if this is first call to 

* jpeg_write_ scanlines . This lets output of the frame/scan headers be 

* delayed so that application can write COM, etc, markers between 

* jpeg_start_compress and jpeg_ write_ scanlines . 
*/ 

if (cinf o->mast er->call_pass„s tar tup) 
(*cinf o->master->pass_startup) (cinfo) ; 

/* Ignore any extra scanlines at bottom of image. */ 
rows_left = cinf o->image„height - cinf o->next_ scanline; 
if (num_lines > rows_left) 
num_lines = rows_left; 

row_ctr = 0; 

(*cinfo->main->process_data) (cinfo, scanlines, &row_ctr, num_lines); 
cinfo- >next — scanline += row_ctr; 
return row_ctr; 




^Alternate entry point to write raw data. 

^.Processes exactly one iMCU row per call, unless suspended. 
*£ 

GLOBAL ( JDIMENSION ) 

jpMg_ write_raw_data ( j_compress_ptr cinfo, J SAMP IMAGE data, 
if] JDIMENSION num_lines) 

= 3t>IMENSI0N lines_per_iMCU„row; 

ytf (cinfo->global_state != CSTATE_RAW_OK) 

1,1 ERREXITK cinfo, JERR_BAD_ STATE , cinf o->global_state) ; 

Ljf (cinf o->next_scanline >= cinf o->image_height) { 

pj WARNMS (cinf o, JWRN_TOO_MUCH_DATA) ; 

V* return 0; 

fl* Call progress monitor hook if present */ 
*=if (cinfo->progress != NULL) { 

cinf o->progress->pass_counter = (long) cinf o->next_scanline; 

cinf o->progress->pass_limit = (long) cinf o->image_height ; 

(*cinfo->progress->progress_monitor) ( ( j_common_ptr) cinfo); 

} 

/* Give master control module another chance if this is first call to 

* jpeg_write_raw_data. This lets output of the frame/ scan headers be 

* delayed so that application can write COM, etc, markers between 

* jpeg — start_compress and jpeg_write_raw_data. 
*/ 

if (cinfo->master->call_pass_startup) 
( *cinf o->master->pass_ startup) (cinfo) ; 

/* Verify that at least one iMCU row has been passed. */ 
lines_per_iMCU_row = cinf o->max_v_samp_f actor * DCTSIZE; 
if (num_lines < lines_per_iMCU_row) 
ERREXIT( cinfo, JERR_BUFFER_SIZE) ; 

/* Directly compress the row. */ 

if (■ (*cinfo->coef->compress_data) (cinfo, data)) { 

/* If compressor did not consume the whole row, suspend processing. */ 
return 0; 

} 

/* OK, we processed one iMCU row. */ 
cinfo->next_scanline += lines_j?er_iMCU_row; 
return lines_per_iMCU_ row; 
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} 
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/* 

* jccoefct.c 
* 

* Copyright (C) 1994-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains the coefficient buffer controller for compression. 

* This controller is the top level of the JPEG compressor proper. 

* The coefficient buffer lies between forward-DCT and entropy encoding steps. 
*/ 

#define JPEG_INTERNALS 
# include " j include .h" 
#include ■jpeglib.h" 




/* We use a full-image coefficient buffer when doing Huffman optimization, 

* and also for writing multiple-scan JPEG files. In all cases, the DCT 

* step is run during the first pass, and subsequent passes need only read 

* the buffered coefficients. 
*/ 

#ifdef ENTROPY_OPT_SUPPORTED 
#define FULL_COEF_BUFFER_SUPPORTED 
#else 

#ifdef C_MULTISCAN_FILES_SUPPORTED 
#define FULL_COEF_BUFFER_SUPPORTED 
#endif 
#endif 



/f^Private buffer controller object */ 

tsp'edef struct { 
gtruct jpeg__c_coef_controller pub; /* public fields */ 

^DIMENSION iMCU_row_num; /* iMCU row # within image */ 
SJDIMENSION mcu_ctr; /* counts MCUs processed in current row */ 

.fint MCU_vert_of f set; /* counts MCU rows within iMCU row */ 

"^fnt MCU_rows_per_iMCU_row; /* number of such rows needed */ 

- ="1: 

fy* For single-pass compression, it's sufficient to buffer just one MCU 

*'~* {although this may prove a bit slow in practice) . We allocate a 

2 * workspace of C_MAX_BLOCKS_IN_MCU coefficient blocks, and reuse it for each 

Lk * MCU constructed and sent. (On 80x86, the workspace is FAR even though 

las,* it's not really very big; this is to keep the module interfaces unchanged 

J^f * when a large coefficient buffer is necessary.) 

fl j * In multi-pass modes, this array points to the current MCU's blocks 
= * within the virtual arrays. 

LjTBLOCKROW MCU_buf f er [C_J1AX_BL0CKS_IN_MCU] ; 

r\ 

~7* In multi-pass modes, we need a virtual block array for each component. */ 

jvirt_barray_ptr whole_image [MAX_COMPONENTS] ; 
} my_coef_controller ; 

typedef my_coe f_c on tr oiler * my_coef_ptr ; 



/* Forward declarations */ 
METHODDEF (boolean) compress_data 

JPP( ( j_compress_ptr cinfo, JSAMPIMAGE input_buf ) ) ; 
#ifdef FULL_COEF_BUFFER_SUPPORTED 
METHODDEF (boolean) compress_f irst_pass 

JPP( ( j_compress_ptr cinfo, JSAMPIMAGE input_buf ) ) 
METHODDEF (boolean) compress__output 

JPP( ( j_compress_ptr cinfo, JSAMPIMAGE input_buf)) ( 
#endif 



LOCAL (void) 

start_iMCU_row ( j_compress_ptr cinfo) 

/* Reset within-iMCU-row counters for a new row */ 

{ 

my_coef_ptr coef = (my_coef_j?tr) cinfo->coef; 

/* In an interleaved scan, an MCU row is the same as an iMCU row. 

* In a noninter leaved scan, an iMCU row has v_samp_f actor MCU rows. 

* But at the bottom of the image, process only what's left. 
*/ 
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if (cinf o->comps_in_scan > 

coef->MCU_rows_per_iMCU_r^^^ 1; 

} else { 

if (coef->iMCU_row_num < (cinf o->total_iMCU_rows-l) ) 

coef ->MCU_rows_ per_iMCU_ row = cinf o->cur_ comp_inf o [0] ->v_samp_f actor ; 
else 

coef->MCU„rows_per_iMCU_row = cinf o->cur_comp_inf o [0] ->last„row_height ; 

} 

coef->mcu_ctr = 0; 
coef->MCU_vert_of f set = 0; 

} 



/* 

* Initialize for a processing pass. 
*/ 

METHODDEF(void) 

start_pass_coef ( j_compress__ptr cinfo, J_BUF_MODE pass_mode) 
{ 

my_coef_j?tr coef = (my_coef_j?tr) cinfo->coef; 

coef->iMCU_row_num = 0; 
start_iMCU_row( cinfo) ; 

switch (pass_mode) { 
case JBUF_PASS_THRU: 

if (coef->whole_image [0] != NULL) 

ERREXIT (cinfo , JERR_BAD_BUFFER_MODE ) ; 

coef->pub.compress_ data = compress_data; 
ri break; 

#i£&ef FULL_COEF_BUFFER_SUPPORTED 
Nrase JBUF_SAVE_AND_PASS: 
fll if (coef->whole_image[03 == NULL) 
^ ERREXIT (cinfo , JERR_BAD_BUFFER_MODE ) ; 
.™; coef->pub.compress_data = compress_f irst_pass; 

break; 
ipase JBUF_CRANK_DEST: 
~! if (coef->whole_image[0 3 == NULL) 

ERREXIT (cinfo , JERR_BAD_BUFFER_MODE ) ; 
nj coef->pub.compress_data = compress_output ; 
break; 
#endif 
default: 

ERREXIT (cinfo, JERR_BAD_BUFFER_MODE ) ; 
break; 

id 



Process some data in the single-pass case. 

* We process the equivalent of one fully interleaved MCU row ("iMCU" row) 

* per call, ie, v_samp_f actor block rows for each component in the image. 

* Returns TRUE if the iMCU row is completed, FALSE if suspended. 

* NB: input_buf contains a plane for each component in image, 

* which we index according to the component's SOF position. 
*/ 

METHODDEF (boolean) 

compress_data ( j_compress_ptr cinfo, JS AMP IMAGE input__buf) 
{ 

my_coef_ptr coef = (my_coef_ptr) cinfo->coef; 

JDIMENSION MCU_col_num; /* index of current MCU within row */ 
JDIMENSION last_tfCU_col = cinf o->MCUs_per_row - 1; 
JDIMENSION last_iMCU_row = cinf o->total_iMCU_rows - 1; 
int blkn, bi, ci, yindex, yoffset, blockcnt; 
JDIMENSION ypos, xpos; 
jpeg_component_inf o *compptr; 

/* Loop to write as much as one whole iMCU row */ 

for (yoffset = coef ->MCU_vert_of f set ; yoffset < coef ->MCU_rows_per_iMCU_row; 
yoffset++) { 

for (MCU_col_num = coef ->mcu„ctr ; MCU_col_num <= last^MCU_col ; 
MCU_col_num++) { 

/* Determine where data comes from in input_buf and do the DCT thing. 

* Each call on forward_DCT processes a horizontal row of DCT blocks 

* as wide as an MCU; we rely on having allocated the MCU_buffer[] blocks 
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* sequentially. Dummy^^^cks at the right or bottom edge a^^fcilled in 

* specially. The data^^Hthem does not matter for image re^^Bt ruction, 

* so we fill them with^WKues that will encode to the smallS^T amount of 

* data, viz: all zeroes in the AC entries, DC entries equal to previous 

* block's DC value. (Thanks to Thomas Kinsman for this idea.) 
*/ 

blkn = 0; 

for (ci = 0; ci < cinf o->comps_in_scan; ci++) { 
compptr = cinf o->cur_comp_ info[ci] ; 

blockcnt = (MCU_col_num < last_MCU_col) ? compptr- >MCU_ width 

: compptr->last_col_width; 
xpos = MC U_c o 1 _num * compptr->MCU_sample_width; 

ypos = yoffset * DCTSIZE; /* ypos == (yoffset+y index) * DCTSIZE */ 
for (yindex = 0; yindex < compptr ->MCU_ height ; yindex++) { 
if (coef->iMCU_row_num < last_iMCU_row | | 

yof fset+yindex < compptr->last_row_height) { 
(*cinfo->fdct->forward_DCT) (cinfo, compptr, 

input_buf [ compptr ->component_index] , 
coef ->MCU_buf fer [blkn] , 
ypos, xpos, (JDIMENSION) blockcnt); 
if (blockcnt < compptr- >MCU_width) { 

/* Create some dummy blocks at the right edge of the image. */ 
jzero_far ( (void *) coef ->MCU_buf f er [blkn + blockcnt], 

(compptr->MCU_width - blockcnt) * SIZEOF ( JBLOCK) ) ; 
for (bi = blockcnt; bi < compptr->MCU_width; bi++) { 
coef->MCU_buffer[blkn+bi] [0] [0] = coef->MCU_buf f er [blkn+bi-1] [0] [0] ; 
) 

} 

} else { 

/* Create a row of dummy blocks at the bottom of the image. */ 

jzero_f ar ( (void *) coef ->MCU_buffer [blkn] , 
■£% compptr->MCU_width * SIZEOF (JBLOCK) ) ; 

Zl for (bi = 0; bi < compptr- >MCU_width; bi++) { 

ft 4* coef ->MCU_buf fer [blkn+bi] [0] [0] = coef->MCU_buf fer [blkn-1] [0] [0] ; 

7f% > 

blkn += compptr- >MCU__width; 
ypos += DCTSIZE; 

yj /* Try to write the MCU. In event of a suspension failure, we will 
FH * re-DCT the MCU on restart (a bit inefficient, could be fixed...) 
*/ 

B if ( ! ( *cinf o->entropy->encode_mcu) (cinfo, coef ->MCU_buf fer) ) { 
Li /* Suspension forced; update state counters and exit */ 

coef->MCU_vert_of f set = yoffset; 

coef->mcu_ctr = MCU_col_num; 
Hi return FALSE; 

~ > 

Li /* Completed an MCU row, but perhaps not an iMCU row */ 
r 5 ^ coef->mcu_ctr - 0; 

/* Completed the iMCU row, advance counters for next one */ 
c o e f - > iMCU_r ow_num+ + ; 
start_iMCU_row( cinfo) ; 
return TRUE; 

} 



#ifdef FULL_COEF_BUFFER_ SUPPORTED 
/* 

* Process some data in the first pass of a multi-pass case. 

* We process the equivalent of one fully interleaved MCU row ("iMCU" row) 

* per call, ie, v — samp_f actor block rows for each component in the image. 

* This amount of data is read from the source buffer, DCT'd and quantized, 

* and saved into the virtual arrays. We also generate suitable dummy blocks 

* as needed at the right and lower edges. (The dummy blocks are constructed 

* in the virtual arrays, which have been padded appropriately.) This makes 

* it possible for subsequent passes not to worry about real vs. dummy blocks. 
* 

* We must also emit the data to the entropy encoder. This is conveniently 

* done by calling compress__output ( ) after we've loaded the current strip 

* of the virtual arrays. 
* 

* NB: input_ buf contains a plane for each component in image. All 

* components are DCT'd and loaded into the virtual arrays in this pass. 

* However, it may be that only a subset of the components are emitted to 

* the entropy encoder during this first pass; be careful about looking 
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* at the scan- dependent vari^^^s (MCU dimensions, etc) 



METHODDEF (boolean) 

compress_f irst_pass (j_compress_ptr cinfo, JSAMPIMAGE input_buf) 
{ 

my_coef_ptr coef = (my_coef_ptr) cinfo->coef; 
JDIMENSION last_iMCU_row = cinf o->total_iMCU_rows - 1; 
JDIMENSION blocks_across , MCUs — across, MCUindex; 
int bi, ci, h_samp_f actor , block_row, block_rows, ndummy; 
JCOEF lastDC; 

jpeg_component_inf o *compptr; 
JBLOCKARRAY buffer; 

JBLOCKROW thisblockrow, lastblockrow; 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components; 
ci++, compptr++) { 
/* Align the virtual buffer for this component. */ 
buffer = (*cinf o->mem->access„ virt_barray) 

( ( j— common_j?tr) cinfo, coef ->whole_image [ci] , 
coef->iMCU_row_num * compptr- >v_samp_f actor, 
(JDIMENSION) compptr->v_samp_f actor, TRUE) ; 
/* Count non-dummy DCT block rows in this iMCU row. */ 
if (coef->iMCU_row_num < last_iMCU__ row) 

block_rows = compptr- >v_samp_f actor ; 
else { 

/* NB: can't use last_row_height here, since may not be set! */ 
block_rows = (int) (compptr->height_in_blocks % compptr ->v_samp_f actor) ; 
if (block_rows == 0) block_rows = compptr ->v_samp_f actor ; 

} 

blocks_across = compptr->width_in„blocks; 
ri h_samp_f actor = compptr->h_samp_f actor ; 

I* Count number of dummy blocks to be added at the right margin. */ 

ndummy = (int) (blocks_across % h_samp_f actor) ; 

if (ndummy > 0) 
~ s l ndummy = h_samp_f actor - ndummy; 

/* perform DCT for all non-dummy blocks in this iMCU row. Each call 
Si * on forward_DCT processes a complete horizontal row of DCT blocks. 
■AS */ 

*J for (block_row = 0; block_row < block_rows; block_row++) { 

thisblockrow = buf f er [block_row] ; 
f§s (*cinfo->fdct->f orward_DCT) (cinfo, compptr, 
:Z - input_buf [ci] , thisblockrow, 

£ (JDIMENSION) (block_row * DCTSIZE) , 

Ll (JDIMENSION) 0, blocks_across) ; 

L. if (ndummy > 0) { 

j=5 /* Create dummy blocks at the right edge of the image. */ 

ffj thisblockrow += blocks_across ; /* => first dummy block */ 

L'* jzero_far ( (void *) thisblockrow, ndummy * SIZEOF (JBLOCK) ) ; 

^ lastDC = thisblockrow [-1] [0] ; 

Lj for (bi = 0; bi < ndummy; bi++) { 

^ thisblockrow [bi] [0] = lastDC; 

™ ) 

} 

} 

/* If at end of image, create dummy block rows as needed. 

* The tricky part here is that within each MCU, we want the DC values 

* of the dummy blocks to match the last real block's DC value. 

* This squeezes a few more bytes out of the resulting file. . . 
*/ 

if (coef->iMCU_row_num == last_iMCU_row) { 

blocks_across += ndummy; /* include lower right corner */ 
MCUs__across = blocks_across / h_samp_f actor ; 

for (block_row = block_rows; block_row < compptr ->v_samp_f actor ; 
block__row++) { 
thisblockrow = buf f er [block_row] ; 
lastblockrow = buf f er [block„row-l] ; 
jzero_far ( (void *) thisblockrow, 

(size_t) (blocks_across * SIZEOF (JBLOCK) ) ) ; 
for (MCUindex = 0; MCUindex < MCUs_across; MCUindex++) { 
lastDC = lastblockrow [ h_samp_f actor- 1] [0] ; 
for (bi = 0; bi < h_samp_f actor ; bi++) { 
thisblockrow [bi] [0] = lastDC; 

} 

thisblockrow += h_samp_f actor ; /* advance to next MCU in row */ 
lastblockrow += h_samp_f actor ; 

} 

} 
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* NB: compress_output will j 

* A suspension return will^^^ult in redoing all the work above^^^t time. 



l^^krement iMCU_row_num if success ful^^^ 
l^Milt in redoing all the work above^^Ht 

/* Emit data to the entropy encoder, sharing code with subsequent passes 
return compress_output (cinf o, input_buf ) ; 



* Process some data in subsequent passes of a multi-pass case. 

* We process the equivalent of one fully interleaved MCU row ("iMCU" row) 

* per call, ie, v_samp_f actor block rows for each component in the scan. 

* The data is obtained from the virtual arrays and fed to the entropy coder. 

* Returns TRUE if the iMCU row is completed, FALSE if suspended. 
* 

* NB: input_buf is ignored; it is likely to be a NULL pointer. 
*/ 

METHODDEF (boolean) 

compress_output ( j_compress_ptr cinfo, JSAMPIMAGE input_buf) 
{ 

my_coef_ptr coef = (my_coef_ptr) cinfo->coef; 

JDIMENSION MCU_col_num; /* index of current MCU within row */ 
int blkn, ci, xindex, yindex, yoffset; 
JDIMENSION start_col; 

JBLOCKARRAY buf f er [MAX_COMPS_IN_SCAN] ; 
JBLOCKROW buffer_ptr; 
jpeg_component_inf o * compptr; 

/* Align the virtual buffers for the components used in this scan. 
NB: during first pass, this is safe only because the buffers will 
already be aligned properly, so jmemmgr.c won't need to do any I/O. 

fppr (ci =0; ci < cinf o->comps_in_scan; ci++) { 
~J compptr = cinf o->cur_comp_inf o [ci] ; 

buffer [ci] = ( *cinf o->mem->access_virt_ barray) 

( { j_common_ptr) cinfo, coef->whole_image [compptr ->component_index ] , 
_ coef->iMCU_row_num * compptr- > v_samp_f actor , 

(JDIMENSION) compptr->v_samp_factor, FALSE) ; 

7* Loop to process one whole iMCU row */ 

for (yoffset = coef ->MCU_vert_of f set ; yoffset < coef ->MCU_rows_per_iMCU_row 
yoffset++) { 

. for (MCU_col_num = coef ->mcu_ctr ; MCU_col_num < cinf o->MCUs__per_row; 
Q MCU_col_num++) { 

f|j /* Construct list of pointers to DCT blocks belonging to this MCU */ 

V* blkn =0; /* index of current DCT block within MCU */ 

~H for (ci =0; ci < cinf o->comps_in_ scan; ci++) { 

rj compptr = cinf o->cur_comp_inf o [ci] ; 

f\ start_col = MCU_col_num * compptr- >MCU_width; 

for (yindex = 0; yindex < compptr->MCU_height; yindex++) { 
buffer_ptr = buffer[ci] [yindex+yof f set] + start_col; 
for (xindex = 0; xindex < compptr- >MCU_width; xindex++) { 
coef->MCU_buf f er [blkn++] = buf f er_ptr++; 

} 

} 

} 

/* Try to write the MCU. */ 

if (! (*cinf o->entropy->encode_mcu) (cinfo, coef ->MCU_buf f er) ) { 
/* Suspension forced; update state counters and exit */ 
coef->MCU_vert_of f set = yoffset; 
coef->mcu_ctr = MCU_col_num; 
return FALSE; 

} 

} 

/* Completed an MCU row, but perhaps not an iMCU row */ 
coef->mcu_ctr = 0; 

} 

/* Completed the iMCU row, advance counters for next one */ 
coef ->iMCU_ row_num++ ; 
s t ar t_iMCU — r ow ( c i n f o ) ; 
return TRUE; 

} 

#endif /* FULL — COEF_BUFFER — SUPPORTED */ 
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* Initialize coefficient buf, 
*/ 



GLOBAL (void) 

jinit_c_coef_contr oiler (j_compress_ptr cinfo, boolean need_full_buf f er) 
{ 

my_coef_ptr coef; 

coef = (my_coef_ptr) 

(*cinfo->mem->alloc_small) ( ( j_coinmon_ptr) cinfo, JPOOL_IMAGE, 
SIZEOF (my_coef_contr oiler) ) ; 
cinfo->coef = (struct jpeg_c_ coef_cont roller *) coef; 
coef->pub. start_pass = start_pass — coef ; 

/* Create the coefficient buffer. */ 

if (needjulljjuffer) { 
#ifdef FULL_COEF_BUFFER_SUPPORTED 

/* Allocate a full-image virtual array for each component, */ 

/* padded to a multiple of samp_f actor DCT blocks in each direction. */ 

int ci; 

jpeg_ component_inf o * compptr; 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num__components ; 
ci++, compptr++) { 

coef->whole_image[ci] = (* cinfo ->mem->request_virt„bar ray) 
( ( j_common_ptr) cinfo, JPOOL_IMAGE, FALSE, 
(JDIMENSION) jround_up ( ( long) compptr- >width_in_blocks , 

(long) compptr- >h_samp_f actor) , 
(JDIMENSION) jround_up( (long) compptr- >he ight„in_bl ocks , 

(long) compptr- >v_samp_fac tor ) , 
(JDIMENSION) compptr->v_samp_f actor) ; 

} 

#lfse 

Ui ERREXIT ( cinfo , JERR_BAD_BUFFER_MODE ) ; 
#endif 
^ else { 

-i=? /* We only need a single-MCU buffer. */ 
Sj JBLOCKROW buffer; 
fc5 % int i; 

=jj buffer = (JBLOCKROW) 

si (*cinf o->mem->alloc_large) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 

C_#AX__BLOCKS_INJMCU * SIZEOF (JBLOCK) ) ; 
= for (i = 0; i < C_MAX_BLOCKS_IN_MCU; i + + ) { 
L,l coef ->MCU_ buff er [i] = buffer + i; 

~ ) 

W coef->whole_image[0] = NULL; /* flag for no virtual arrays */ 

m 
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/* 

* jccolor.c 
* 

* Copyright (C) 1991-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains input colorspace conversion routines. 
*/ 

#define JPEG_INTERNALS 
t include "j include. h" 
tinclude "jpeglib.h" 




/* Private subobject */ 

typedef struct { 

struct jpeg_color_converter pub; /* public fields */ 

/* Private state for RGB->YCC conversion */ 

INT32 * rgb_ycc_tab; /* => table for RGB to YCbCr conversion */ 

} my_color_converter ; 

typedef my_color_ converter * my_cconvert_ptr; 



/**************** rgb -> YCbCr conversion: most common case 



************** j 



YCbCr is defined per CCIR 601-1, except that Cb and Cr are 
formalized to the range 0 . . MAX JSAMPLE rather than -0.5 .. 0.5. 
^^The conversion equations to be implemented are therefore 
U Y = 0.29900 * R + 0.58700 * G + 0.11400 * B 

^ Cb = -0.16874 * R - 0.33126 * G + 0.50000 * B + CENTERJS AMPLE 
?! Cr = 0.50000 * R - 0.41869 * G - 0.08131 * B + CENTERJSAMPLE 
0(These numbers are derived from TIFF 6.0 section 21, dated 3-June-92.) 
MNote: older versions of the IJG code used a zero offset of MAXJSAMPLE/2 , 
^rather than CENTERJSAMPLE, for Cb and Cr. This gave equal positive and 
^negative swings for Cb/Cr, but meant that grayscale values (Cb=Cr=0) 
□were not represented exactly. Now we sacrifice exact representation of 
| -maximum red and maximum blue in order to get exact grayscales. 

To avoid floating-point arithmetic, we represent the fractional constants 
as integers scaled up by 2*16 (about 4 digits precision) ; we have to divide 
Uthe products by 2*16, with appropriate rounding, to get the correct answer. 

ci 

yFor even more speed, we avoid doing any multiplications in the inner loop 
r s by precalculating the constants times R,G,B for all possible values. 
? ^For 8-bit JSAMPLEs this is very reasonable (only 256 entries per table); 
for 12 -bit samples it is still acceptable. It's not very reasonable for 
16-bit samples, but if you want lossless storage you shouldn't be changing 
colorspace anyway. 

* The CENTERJSAMPLE offsets and the rounding fudge-factor of 0.5 are included 

* in the tables to save adding them separately in the inner loop. 
*/ 

tdefine SCALEBITS 16 /* speediest right-shift on some machines */ 

tdefine CBCR_OFFSET ((INT32) CENTERJSAMPLE « SCALEBITS) 

#define ONE_HALF ((INT32) 1 « (SCALEBITS-1 ) ) 

#define FIX(x) ((INT32) ( (x) * ( 1L« SCALEBITS) + 0.5)) 

/* We allocate one big table and divide it up into eight parts, instead of 

* doing eight alloc_small requests. This lets us use a single table base 

* address, which can be held in a register in the inner loops on many 

* machines (more than can hold all eight addresses, anyway) . 



#def ine 
tdefine 
idefine 
tdefine 
tdefine 
tdefine 
tdefine 
tdefine 
tdefine 



R_Y_OFF 

G_Y_OFF 

B_Y_OFF 

R_CB_0FF 

G_CB_0FF 

B_CB_OFF 

R_CR_0FF 

G_CR_0FF 

B CR OFF 



/* offset 



(1* (MAXJSAMPLE+1) ) 
(2* (MAXJSAMPLE+1) ) 
(3* (MAXJSAMPLE+1) ) 
(4* (MAXJSAMPLE+1) ) 
(5* (MAXJSAMPLE+1) ) 
B_CB_OFF /* 
(6* (MAXJSAMPLE+1) ) 
(7* (MAXJSAMPLE+1) ) 



to R -> Y section 
offset to G => Y 
etc. */ 



*/ 

section */ 



B=>Cb, R=>Cr are the same */ 



tdefine TABLE_SIZE ( 8* (MAXJSAMPLE+1) ) 
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/* 

* Initialize for RGB->YCC co^^Hpace conversion. 
*/ 



:o^^^pa 



METHODDEF (void) 

rgb_ycc_start ( j_compress_ptr cinfo) 
{ 

my_cconvert_ptr cconvert = (my_cconvert_ptr) cinfo->cconvert ; 
INT32 * rgb_ycc_tab; 
INT32 i; 

/* Allocate and fill in the conversion tables. */ 
cconvert- >rgb_ycc_ tab = rgb_ycc_tab = (INT32 *) 

(*cinf o->mem->alloc_small) ( ( j_ common_j?tr) cinfo, JPOOL_IMAGE, 
(TABLE_SIZE * SIZEOF ( INT32 ) ) ) ; 

for (i a 0; i <= MAX JSAMPLE ; i++) { 

rgb_ycc_tab[i+R_Y_OFF] = FIX(0. 29900) * i; 
rgb_ycc_tab[i+G_Y_OFF] = FIX(0. 58700) * i; 
rgb_ycc_tab[i+B_Y_OFF] = FIX<0. 11400) * i + ONE_HALF; 

rgb_ycc„tab[i+R_CB_OFF] = (-FIX(0 . 16874) ) * i; 
rgb_ycc_tab[i+G_CB_OFF] = (-FIX(0 . 33126) ) * i; 

/* We use a rounding fudge- factor of 0.5-epsilon for Cb and Cr. 

* This ensures that the maximum output will round to MAX JSAMPLE 

* not MAXJSAMPLE+1 , and thus that we don't have to range-limit. 
*/ 

rgb_ycc_tab[i+B_CB_OFF] = FIX (0.50000) * i + CBCR_OFFSET + ONE_HALF-l; 
/* B=>Cb and R=>Cr tables are the same 

rgb__ycc_tab[i+R_CR_OFF] = FIX (0.50000) * i + CBCR_OFFSET + ONE_HALF-l; 

*/ 

rgb_j/cc_tab[i+G_CR_OFF] = <-FIX(0 . 41869) ) * i; 
rgb__ycc_tab[i+B_CR_OFF] = (-FIX(0 . 08131) ) * i; 

>z 

^jConvert some rows of samples to the JPEG colorspace. 

*--=! 

*5fNote that we change from the application's interleaved-pixel format 

g]to our internal noninterleaved, one-plane-per-component format. 

: %=The input buffer is therefore three times as wide as the output buffer. 

* A starting row offset is provided only for the output buffer. The caller 
mean easily adjust the passed input_buf value to accommodate any row 
_IL offset required on that side. 

flj 

METHODDEF (void) 

r§fe_ycc_convert ( j_compress_ptr cinfo, 
Q JSAMPARRAY input_buf, JSAMPIMAGE output_buf # 

fl JDIMENSION output_row, int num__rows) 

my_cconvert_ptr cconvert = (my_ cconvert_ptr) cinf o->cconvert ; 
register int r, g, b; 

register INT32 * ctab = cconvert->rgb_ycc_ tab; 
register JSAMPROW inptr; 

register JSAMPROW outptrO, outptrl, outptr2; 
register JDIMENSION col; 

JDIMENSION nuitu cols = cinf o->image_width; 

while (--num_rows >= 0) { 
inptr = *input_buf ++; 
outptrO = output_buf [0] [output_row] ; 
outptrl = output„buf [1] [output^ row] ; 
outptr2 = output_buf [2] [output_row] ; 
output_row++ ; 

for (col = 0; col < num_cols; col++) { 
r = GET JSAMPLE ( inptr [RGB_REDJ ) ; 
g = GET JSAMPLE ( inptr [RGB_GREEN] ) ; 
b = GET JSAMPLE ( inptr [RGB_BLUE] ) ; 
inptr += RGB_PIXELSIZE; 

/* If the inputs are 0 . .MAX JSAMPLE, the outputs of these equations 

* must be too; we do not need an explicit range -limiting operation. 

* Hence the value being shifted is never negative, and we don't 

* need the general RIGHT_SHI FT macro. 
*/ 

/* Y */ 

outptrO [col] = (JSAMPLE) 

( (ctab[r+R_Y_OFF] + ctab [g+G_Y_OFF] + ctab[b+B_Y_OFF] ) 
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» SCALEBITS) ; 
/* Cb */ 

outptrlfcol] = (JSAMPLEj 

( (ctab[r+R_CB__OFF] + ctab[g+G_CB_OFF] + ctab[b+B__CB_OFF] ) 
» SCALEBITS) ; 
/* Cr */ 

outptr2 [col] = (JS AMPLE) 

( (ctab[r+R__CR_OFF] + ctab [g+G_CR_OFF] + ctab[b+B_CR_OFF] ) 
» SCALEBITS) ; 



/**************** cases other than RGB -> YCbCr **************/ 



/* 

* Convert some rows of samples to the JPEG colorspace. 

* This version handles RGB->grayscale conversion, which is the same 

* as the RGB->Y portion of RGB->YCbCr. 

* We assume rgb_ycc_start has been called (we only use the Y tables) . 
*/ 

METHODDEF (void) 

rgb_gray_convert ( j_compress_ptr cinfo, 

JSAMPARRAY input_buf, JSAMPIMAGE output_buf, 
JDIMENSION output„row, int num_rows) 

{ 

my_cconvert_ptr cconvert = (my_cconvert_ptr) cinf o->cconvert ; 
register int r, g, b; 

register INT32 * ctab = c convert ->rgb_ycc_tab ; 
^register JSAMPROW inptr; 
Register JSAMPROW outptr; 
Register JDIMENSION col; 

"^DIMENSION num_cols = cinf o->image_width; 

^ghile ( — num_rows >= 0) { 

.ji inptr = *input_buf ++; 

=f outptr = output_buf [0] [output_row] ; 

-J J output_row++; 

fn for (col = 0; col < num_cols; col++) { 
E ? * r = GETJSAMPLE ( inptr [ RGB_RED] ) ; 
s g = GETJSAMPLE ( inptr [RGB_GREEN] ) ; 
'^h b = GETJSAMPLE (inptr [RGB_BLUE] ) ; 
« inptr += RGB_PIXELSIZE; 
U /* y */ 

Hi outptrtcol] = (JSAMPLE) 

■2\ ( (ctab[r+R_Y_OFF] + ctab[g+G_Y_OFF] + ctab [b+B_Y_0FF] ) 

2* » SCALEBITS) ; 



/* 

* Convert some rows of samples to the JPEG colorspace. 

* This version handles Adobe-style CMYK->YCCK conversion, 

* where we convert R=l-C, G=l-M, and B=l-Y to YCbCr using the same 

* conversion as above, while passing K (black) unchanged. 

* We assume rgb_ycc_start has been called. 
*/ 

METHODDEF (void) 

cmyk_ycck_convert ( j_compress_ptr cinfo, 

JSAMPARRAY input_buf , JSAMPIMAGE output_buf, 
JDIMENSION output_row, int num_rows) 

{ 

my_cconvert_ptr cconvert = (my_cconvert_ptr) cinf o->cconvert; 
register int r, g, b; 

register INT32 * ctab = cconvert ->rgb_ycc_tab; 
register JSAMPROW inptr; 

register JSAMPROW outptrO, outptrl, outptr2, outptr3 ; 
register JDIMENSION col; 

JDIMENSION num_cols = cinf o->image_width; 

while (--num_ rows >= 0) { 
inptr = *input_buf ++; 
outptrO = output_buf [0] [output_row] ; 
outptrl = output_buf [lj [output_row] ; 
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outptr2 = output„buf [2 ] [oiffet_row] ; 
outptr3 = outputs buf [3 ] [c^^Bt_row] ; 

output_row++ ; 

for (col = 0; col < num_cols; col++) { 
r = MAXJSAMPLE - GET JSAHPLE ( inptr E 0 ] ) ; 
g - MAXJSAMPLE - GET JS AMPLE ( inptr [ 1 ]) ; 
b = MAXJSAMPLE - GETJSAMPLE ( inptr [ 2 ]) ; 
/* K passes through as-is */ 

outptr3[col] = inptr[3]; /* don't need GETJSAMPLE here */ 
inptr += 4; 

/* If the inputs are 0 . .MAXJSAMPLE, the outputs of these equations 

* must be too; we do not need an explicit range- limiting operation. 

* Hence the value being shifted is never negative, and we don't 

* need the general RIGHT_SHIFT macro. 
*/ 

/* Y */ 

outptr0[col] = (JSAMPLE) 

( (ctab[r+R_Y_OFF] + ctab[g+G_Y_OFF] + ctab[b+B_Y„OFF] ) 
» SCALEBITS) ; 
/* Cb */ 

outptrltcol] = (JSAMPLE) 

( (ctab[r+R_CB_OFF] + ctab [g+G_CB_OFF] + ctab [b+B_CB_0FF] ) 
» SCALEBITS) ; 
/* Cr */ 

outptr2[col] = (JSAMPLE) 

( (ctab[r+R„CR_OFF] + ctab [g+G_CR_0FF] + ctab[b+B_CR_OFF] ) 
» SCALEBITS) ; 

) 

} 

} 



/hi 

*IJConvert some rows of samples to the JPEG colorspace. 

fjlThis version handles grayscale output with no conversion. 

*^The source can be either plain grayscale or YCbCr (since Y — gray) . 

ME^HODDEF (void) 

grayscale_convert (j__compress_ptr cinfo, 
Uj JSAMPARRAY input_buf, JSAMPIMAGE output_buf, 

s»s JDIMENSION output_row, int num_rows) 

s register JSAMPROW inptr; 
^register JSAMPROW outptr; 
^register JDIMENSION col; 

^JDIMENSION num_cols - cinf o->image_width; 
faint instride = cinf o->input_components; 

Jfrhile (--num_rows >= 0) { 
L] inptr = *input_buf ++ ; 
pi outptr = output_buf [0] [output_row] ; 
output_row++; 

for (col = 0; col < num_cols; col++) { 

outptr [col] = inptr [0] ; /* don't need GETJSAMPLE () here */ 
inptr += instride; 

} 

} 

} 



/* 

* Convert some rows of samples to the JPEG colorspace. 

* This version handles multi -component colorspaces without conversion. 

* We assume input_components == num_components . 
V 

METHODDEF (void) 

null_convert ( j_compress_ptr cinfo, 

JSAMPARRAY input„buf, JSAMPIMAGE output_buf, 
JDIMENSION output_row, int num_rows) 

{ 

register JSAMPROW inptr; 

register JSAMPROW outptr; 

register JDIMENSION col; 

register int ci; 

int nc = cinf o->num_components ; 

JDIMENSION num_cols = cinf o->image_width; 

while (— num_rows >= 0) { 
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maJ^^k separate pass for each component^^fcL 



/* It seems fastest to 
for (ci = 0; ci < nc; ci 

inptr = *input_buf; 

outptr = output_buf [ci 3 [output_row] ; 

for (col = 0; col < num_cols; col++) { 
outptr[col] = inptrfci]; /* don't need GETJSAMPLE ( ) here */ 
inptr += nc; 

} 

} 

input_buf ++; 
output_row++; 



/* 

* Empty method for start_pass. 
*/ 

METHODDEF (void) 

null_method { j__compress_ptr cinfo) 
{ 

/* no work needed */ 

} 



/* 

* Module initialization routine for input colorspace conversion. 
*/ 

GLOBAL (void) 

jinit_color_converter ( j_ compress_ptr cinfo) 

{ '% 

^&Ey_cconvert_jptr cconvert; 
T&convert = (my_cconvert_ptr) 

^ (*cinfo->mem->alloc_small) ( ( j_common_ptr ) cinfo, JP00L_IMAGE, 

SIZEOF(my_color_converter) ) ; 
.;qinfo->cconvert = (struct jpeg_color_converter *) cconvert; 
~^/* set start__pass to null method until we find out differently */ 
J|convert->pub.start_pass = null_method; 

lz j* Make sure input_components agrees with in_color_jspace */ 

s switch (cinfo->in_color_space) { 

Lgase JCS_GRAYSCALE: 

~ if (cinfo->input_components != 1) 

U ERREXIT (cinfo, JERR_BAD_IN_COLORSPACE) ; 

Oj break; 

Jtase JCS_RGB: 
#31 RGB_PIXELSIZE != 3 

r=3 if (cinfo->input_components != RGB_PIXELSIZE) 
~ ERREXIT (cinfo, JERR_BAD__IN_COLORSPACE) ; 
break; 

#endif /* else share code with YCbCr */ 

case JCS_YCbCr: 

if ( cinfo ->input_components != 3) 

ERREXIT (cinfo, JERR_BAD_IN_COLORSPACE) ; 
break; 

case JCS__CMYK: 
case JCS.YCCK: 

if (cinf o->input_components != 4) 

ERREXIT (cinfo, JERR_BAD_IN_COLORSPACE) ; 

break; 

default: /* JCS_UNKNOWN can be anything */ 

if (cinf o->input_ components < 1) 

ERREXIT (cinfo, JERR_BAD_IN_COLORSPACE) ; 
break; 

} 

/* Check num — components , set conversion method based on requested space */ 
switch (cinfo->jpeg_color_space) { 
case JCS_GRAYSCALE: 

if (cinf o->num_components != 1) 

ERREXIT (cinfo, JERR_BAD_J_COLORSPACE) ; 
if ( cinfo ->in_color_space == JCS_GRAYSCALE) 

cconvert->pub. col or — convert = grayscale_convert; 
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else if (cinfo->in__color_J^ke == JCS_RGB) { 
cconver t - >pub . s t ar t_j?as^^Wrgb_ycc_s tar t ; 

cconvert->pub. color_conv^rx = rgb_gray_convert; 
} else if (cinf o->in_color_space == JCS_YCbCr) 

cconver t->pub. co lor_convert = grayscale_convert; 
else 

ERREXIT (cinf O , JERR_CONVERSION_NOTIMPL) ; 
break; 

case JCS_RGB: 

if (cinf o->nuro_components != 3) 

ERREXIT ( Cinf O , JERR_BAD_J_COLORS PACE ) ; 
if (cinfo->in_color_space == JCS_RGB && RGB_PIXELSIZE == 3) 

cconvert->pub. color_convert = null_convert ; 
else 

ERREXIT ( cinf o, JERR_CONVERSION_NOTIMPL) ; 
break; 

case JCS_YCbCr: 

if (cinf o->num_components != 3) 

ERREXIT ( cinf o , JERR_BAD_J_COLORSPACE ) ; 
if (cinf o->in_color_space == JCS_RGB) { 

cconvert->pub. starts pass = rgb_ycc_start; 

cconver t- >pub. color__convert = rgb_ycc_convert; 
} else if (cinf o->in_color„space == JCS_YCbCr) 

cconvert->pub.color_convert = null„convert ; 
else 

ERREXIT ( cinf o, JERR_CONVERSION_NOTIMPL) ; 
break; 

case JCS_CMYK: 

ri if (cinf o->nunucomponents != 4) 
A ERREXIT ( cinf o, JERR_BAD_J_COLORSPACE) ; 

if (cinfo->in_color_space == JCS_CMYK) 
U; cconver t->pub. col or_convert = null., convert ; 
.fa else 

^ ERREXIT ( cinf o, JERR_CONVERSION_NOTIMPL) ; 
break; 

"liase JCS_YCCK: 

if (cinf o->num_components != 4) 
HI ERREXIT ( cinf o, JERR_BAD_J_COLORSPACE) ; 

if (cinfo->in_color_space — JCS_CMYK) { 
f cconver t->pub. star t_pass = rgb_ycc_start; 
f=i cconvert->pub. color_convert = cmyk_ycck_ convert; 

} else if (cinfo->in_color_space == JCS_YCCK) 
cconvert->pub.color_convert = null_ convert ; 
|?j else 

--5 ERREXIT ( Cinf O, JERR„CONVERSION_NOTIMPL) ; 

J? break; 

_ — ^ 

Hdefault: /* allow null conversion of JCS_UNKNOWN */ 

if (cinf o-> jpeg_color_space != cinf o->in_color_space || 
cinf o->nuitv.components != cinf o->input_components) 

ERREXIT (cinf o, JERR_CONVERSION_NOTIMPL) ; 
cconver t->pub. col or_convert = null„convert ; 
break; 

} 

} 
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/* 

* jcdctmgr.c 
* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains the forward-DCT management logic. 

* This code selects a particular DCT implementation to be used, 

* and it performs related housekeeping chores including coefficient 

* quantization. 
*/ 

#define JPEG_INTERNALS 
#include " j include. h" 
#include "jpeglib.h" 

#include "jdct.h" /* Private declarations for DCT subsystem */ 



/* Private subobject for this module */ 

typedef struct { 

struct jpeg_f orward_dct pub; /* public fields */ 

/* Pointer to the DCT routine actually in use */ 
f o rward_DCT_me thod_p t r do_dc t ; 

/* The actual post-DCT divisors not identical to the quant table 

* entries, because of scaling (especially for an unnormalized DCT) . 

* Each table is given in normal array order. 
_ */ 

HfCTELEM * divisors [NUM_QUANT_TBLS] ; 

#5jfdef DCT_FLOAT_SUPPORTED 

y?* Same as above for the floating-point case. */ 

.j€loat_DCT_method_ptr do_f loat_dc t ; 

ji?AST_FLOAT * float_di visors [NUM_QUANT_TBLS J ; 
#endif 

} ij!fy_ fdct_cont roller ; 

t^|edef my_fdct_controller * my_fdct_ptr; 
/* 

H Initialize for a processing pass. 

^ Verify that all referenced Q- tables are present, and set up 

the divisor table for each one. 
Hj In the current implementation, DCT of all components is done during 
^ j the first pass, even if only some components will be output in the 
£. first scan. Hence all components should be examined here. 

METTHODDEF(void) 

start_pass_fdctmgr ( j_compress_ptr cinfo) 
{ 

my_fdct_ptr fdct = (my_fdct_ptr) cinfo->fdct; 
int ci, qtblno, i; 
jpeg_component_inf o *compptr; 
JQUANT_TBL * qtbl ; 
DCTELEM * dtbl; 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinfo->num_components; 
ci++, compptr++) { 
qtblno = compptr- >quan t_tbl_.no ; 

/* Make sure specified quantization table is present */ 
if (qtblno < 0 | | qtblno >= NUM_QUANT_TBLS | | 
cinf o->quant_tbl_ptrs [qtblno] == NULL) 

ERREXIT1 (cinfo, JERR_NO_QUANT_TABLE , qtblno); 
qtbl = cinf o->quant_tbl._ptrs [qtblno] ; 
/* Compute divisors for this quant table */ 

/* We may do this more than once for same table, but it's not a big deal */ 
switch (cinfo->dct_method) { 
iifdef DCT_ISLOW_SUPPORTED 
case JDCT_ISLOW:' 

/* For LLScM IDCT method, divisors are equal to raw quantization 
* coefficients multiplied by 8 (to counteract scaling) . 
*/ 

if (fdct->divisors [qtblno] == NULL) { 
fdct->divisors [qtblno] = (DCTELEM *) 

(*cinfo->mem->alloc_.small) ( ( j_common_ptr ) cinfo, JP00L_IMAGE, 




1 



DCTSI ZEj^^S I ZEOF (DCTELEM) ) ; 

dtbl = fdct->divisors [qoBio] ; 
for (i = 0; i < DCTSIZE2; { 
dtbl[i] = ( (DCTELEM) qtbl->quantval [i ] ) « 3; 
} 

break; 

#endif 

#ifdef DCT_IFAST_SUPPORTED 
case JDCT_IFAST: 
{ 

/* For AA&N IDCT method, divisors are equal to quantization 

* coefficients scaled by scalefactor [row] *scalefactor [col] , 

* scalefactor [0 J = 1 

* scalefactor [k] = cos(k*PI/16) * sqrt(2) for k=1..7 

* We apply a further scale factor of 8. 



where 



tdefine CONST_BITS 14 

static const INT16 aanscales [DCTSIZE2 ] = { 
/* precomputed values scaled up by 14 bits 



16384, 
22725, 
21407, 
19266, 
16384, 
12873, 

8867, 

4520, 
>; 

SHI FT_TEMPS 



22725, 
31521, 
29692, 
26722, 
22725, 
17855, 
12299, 
6270, 



21407, 
29692, 
27969, 
25172, 
21407, 
16819, 
11585, 
5906, 



19266, 
26722, 
25172, 
22654, 
19266, 
15137, 
10426, 
5315, 



16384, 
22725, 
21407, 
19266, 
16384, 
12873, 
8867, 
4520, 



12873, 
17855, 
16819, 
15137, 
12873, 
10114, 
6967, 
3552, 



*/ 

8867, 
12299, 
11585, 
10426, 
8867, 
6967, 
4799, 
2446, 



4520, 
6270, 
5906, 
5315, 
4520, 
3552, 
2446, 
1247 



F% if (fdct->divisors[qtblno] == NULL) { 
1* f dct->di visors [qtblno] = (DCTELEM *) 

U3 (*cinfo->mem->alloc__small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 

m DCTSIZE2 * S I ZEOF (DCTELEM) ) ; 



( 



} 

dtbl = fdct->di visors [qtblno] ; 
for (i = 0; i < DCTSIZE2; i++) 
dtbl[i] = (DCTELEM) 

DESCALE (MULTIPLY16V16( (INT32) qtbl->quantval [i] , 
(INT32) aanscales [i] ) , 
CONST_BITS-3) ; 



} 



} 



Lb break; 
#endif 

#|fdef DCT_FLOAT_SUPPORTED 
case JDCT_FLOAT: 

L"i { 

_J /* For float AA&N IDCT method, divisors are equal to quantization 
Tj * coefficients scaled by scalefactor [row] *scalef actor [col ] , where 
Fh * scalefactor [0] = 1 

fe * * scalefactor [k] = cos(k*PI/16) * sqrt(2) for k=1..7 

* We apply a further scale factor of 8 . 

* What's actually stored is 1/divisor so that the inner loop can 

* use a multiplication rather than a division. 



FAST_ FLOAT * f dtbl ; 
int row, col; 

static const double aanscalef actor [DCTSIZE] = { 
1.0, 1.387039845, 1.306562965, 1.175875602, 
1.0, 0.785694958, 0.541196100, 0.275899379 

}; 

if (fdct->float_divisors [qtblno] == NULL) { 
fdct->float_divisors [qtblno] = ( FAST_FLOAT *) 

( *cinf o->mem->alloc_small ) ( ( j_common_ptr) cinfo, JPOOL^IMAGE, 
DCTSIZE2 * SIZEOF (FAST_FLOAT) ) ; 

} 

fdtbl = fdct->float_divisors [qtblno] ; 
i = 0; 

for (row = 0; row < DCTSIZE; row++) { 
for (col = 0; col < DCTSIZE; col++) { 
fdtbl [i] = (FAST_FLOAT) 

(1.0 / (((double) qtbl->quantval[i] * 

aanscalef actor [row] * aanscalef actor [col] * 8.0))); 

i++; 



} 



} 
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break; 

# end if 

default: 

ERREXIT ( cinf o , JERR^_NOT_COMPILED) ; 
break; 

} 

} 

} 



/* 

* Perform forward DCT on one or more blocks of a component. 
* 

* The input samples are taken from the sample_data [ 3 array starting at 

* position start_row/start_col , and moving to the right for any additional 

* blocks. The quantized coefficients are returned in coef_blocks [ ] . 
*/ 

METHODDEF(void) 

forward_DCT ( j_compress_ptr cinfo, jpeg_component_inf o * compptr, 

JSAMP ARRAY sample_data, JBLOCKROW coef .blocks, 

JDIMENSION start_row, JDIMENSION start_col, 

JDIMENSION num_blocks) 
/* This version is used for integer DCT implementations. */ 
{ 

/* This routine -is heavily used, so it's worth coding it tightly. */ 

my_fdct_ptr fdct = (my_f dct_ptr ) cinfo->fdct; 

f orward_DCT_method_ptr do_dct = fdct->do_dct ; 

DCTELEM * divisors = f dct->di vis or s [compptr ->quant_tbl_no j ; 

DCTELEM workspace [DCTSI2E2] ; /* work area for FDCT subroutine */ 

JDIMENSION bi; 

lfample_data += start_row; /* fold in the vertical offset once */ 

fdor (bi = 0; bi < num_blocks; bi++, start_col += DCTSIZE) { 
~. /* Load data into workspace, applying unsigned- >signed conversion */ 
«J { register DCTELEM *workspaceptr ; 
\\ register JSAMPROW elemptr; 
« register int elemr; 

'43 workspaceptr = workspace; 

ffl for (elemr = 0; elemr < DCTSIZE; elemr ++) { 

*'* elemptr = sample_data [elemr] + start_col; 
#if DCTSIZE == 8 /* unroll the inner loop */ 

U *workspaceptr++ = GET JSAMPLE (* elemptr ++) - CENTERJSAMPLE ; 

L. *workspaceptr++ = GET JSAMPLE ( *elemptr++ ) - CENTERJSAMPLE; 

«3 *workspaceptr++ - GET JSAMPLE (* el emptr++) - CENTERJSAMPLE; 

Oj *workspaceptr++ = GET JSAMPLE (* el emptr++) - CENTERJSAMPLE; 

L'= *workspaceptr++ = GET JSAMPLE (* el emptr++) - CENTERJSAMPLE; 

y *workspaceptr++ = GET JSAMPLE ( *elemptr++ ) - CENTERJSAMPLE; 

p *workspaceptr++ = GETJSAMPLE (* elemptr ++) - CENTERJSAMPLE; 

f-l *workspaceptr++ = GETJSAMPLE (* elemptr ++) - CENTERJSAMPLE; 
#eise 

{ register int elemc; 

for (elemc = DCTSIZE; elemc > 0; elemc — ) { 

*workspaceptr++ = GETJSAMPLE (* el emptr++) - CENTERJSAMPLE; 

} 

} 

#endif 

} 

} 

/* Perform the DCT */ 
(*do_dct) (workspace) ; 

/* Quantize/descale the coefficients, and store into coef_blocks [ ] */ 
{ register DCTELEM temp, qval; 
register int i; 

register JCOEFPTR outputj)tr = coef_blocks [bi] ; 

for (i = 0; i < DCTSIZE2 ; i++) { 
qval = divisors [i]; 
temp = workspace [ i ] ; 

/* Divide the coefficient value by qval, ensuring proper rounding. 

* Since C does not specify the direction of rounding for negative 

* quotients, we have to force the dividend positive for portability. 
* 

* In most files, at least half of the output values will be zero 

* (at default quantization settings, more like three-quarters...) 

* so we should ensure that this case is fast. On many machines, 
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* a comparison is enough^^fcaper than a divide to make a spec^^^test 

* a win. Since both inp^^Bwill be nonnegative, we need onl^^^Vt 

* for a < b to discover wWther a/b is 0. 

* If your machine's division is fast enough, define FAST_DIVIDE. 
*/ 

iifdef FAST_DIVIDE 

#define DI VI DE_BY ( a , b ) a /= b 

#else 

#define DIVIDE_BY (a, b) if (a >= b) a /= b; else a = 0 
#endif 

if (temp < 0) { 
temp = -temp; 

temp += qval»l; /* for rounding */ 
DIVIDE_BY ( temp , qval ) ; 
temp = -temp; 
} else { 

temp += qval»l; /* for rounding */ 
DIVTDE_BY(temp, qval); 

} 

output_ptr [i] = (JCOEF) temp; 
} 

} 

} 

} 



#ifdef DCT_ FLOAT_SUP PORTED 
METHODDEF (void) 

f orward_DCT_f loat ( j_compress_ptr cinfo, jpeg_component_inf o * compptr, 
JSAMPARRAY sample_data, JBLOCKROW coef .blocks, 

r% JDIMENSION start_row, JDIMENSION start_col, 

~Z JDIMENSION num_blocks) 

/*4?This version is used for floating-point DCT implementations. */ 
{ 01 

This routine is heavily used, so it's worth coding it tightly. */ 
Htiy_fdct_ptr fdct = (my_f dct_ptr ) cinfo->fdct; 
""=4loat_DCT_method_ptr do_dct = fdct->do_f loat_dct; 

; _^AST_FLOAT * divisors = fdct->float_di visor s [compptr->quant_tbl_no] ; 
~"¥asT_FLOAT workspace [DCTS I ZE2 ] ; /* work area for FDCT subroutine */ 
^DIMENSION bi; 

fi 1 

" Sample_data += start_row; /* fold in the vertical offset once */ 

Lfor (bi = 0; bi < num_blocks; bi++, start_col += DCTSIZE) { 
^ /* Load data into workspace, applying unsigned->signed conversion */ 
jj=^ { register FAST_FLOAT *workspaceptr ; 
Oj register JSAMPROW elemptr; 
= register int elemr; 

O workspaceptr = workspace; 

==1 for (elemr = 0; elemr < DCTSIZE; elemr++) { 
elemptr = sample_data [elemr] + start„col; 

#if DCTSIZE ==8 /* unroll the inner loop */ 

*workspaceptr++ = (FAST_FLOAT) ( GET JS AMPLE ( *elemptr++ ) 
*workspaceptr++ = (FAST_FLOAT) (GETJSAMPLE ( *elemptr++ ) 
*workspaceptr++ = (FAST_FLOAT) (GETJSAMPLE ( *elemptr++) 
*workspaceptr++ = (FAST_FLOAT) (GETJSAMPLE ( *elemptr++) 
*workspaceptr++ = (FAST_FLOAT) (GETJSAMPLE ( *elemptr++) 
*workspaceptr++ = (FAST_FLOAT) (GETJSAMPLE ( *elemptr++ ) 
*workspaceptr++ = (FAST_FLOAT) (GETJSAMPLE ( *elemptr++) 
*workspaceptr++ = (FAST_FLOAT) (GETJSAMPLE ( *elemptr++) 

#else 

{ register int elemc; 

for (elemc = DCTSIZE; elemc > 0; elemc — ) { 
*workspaceptr++ = (FAST_FL0AT) 

(GETJSAMPLE (* elemptr ++ ) - CENTER J SAMPLE ) ; 

} 

} 

#endif 

} 

} 

/* Perform the DCT */ 
(*do_dct) (workspace) ; 

/* Quantize/descale the coefficients, and store into coef _blocks [ ] */ 
{ register FAST_FLOAT temp; 
register int i; 

register JCOEFPTR output_ptr = coef_blocks [bi] ; 



- CENTERJ SAMPLE ) 

- CENTERJ SAMPLE ) 

- CENTERJ SAMPLE ) 

- CENTER JSAMPLE) 

- CENTERJ SAMPLE ) 

- CENTER J SAMPLE ) 

- CENTERJ SAMPLE ) 

- CENTERJSAMPLE) 



4 



sn^^B scaling factor */ 



for (i = 0; i < DCTSIZE 
/* Apply the quant ization^PB scaling factor 
temp = workspace [i 3 * divisors [i]; 
/* Round to nearest integer. 

* Since C does not specify the direction of rounding for negative 

* quotients, we have to force the dividend positive for portability. 

* The maximum coefficient size is +-16K (for 12-bit data), so this 

* code should work for either 16-bit or 32-bit ints. 
*/ 

output_ptr[i] = (JCOEF) ( (int) (temp + ( FAST — FLOAT ) 16384.5) - 16384); 
> 

} 



#endif /* DCT_FLOAT — SUPPORTED */ 



/* 

* Initialize FDCT manager. 
*/ 

GLOBAL (void) 

jinit_forward_dct ( j_compress — ptr cinfo) 
{ 

my_fdct_ptr fdct; 
int i; 

fdct = (my_fdct_ptr) 

(*cinfo->mem->alloc_small) ( ( j_common__ptr) cinfo, JPOOL_IMAGE, 
SIZEOF(my_fdct_controller) ) ; 
^efinfo->fdct = (struct jpeg_f orward_dct *) fdct; 
-j§ict->pub.start_pass = start_pass_f dctmgr ; 

Switch (cinf o->dct_method) { 
#iHdef DCT_ISLOW_SUPPORTED 
NSase JDCT_ISLOW: 

ti l fdct->pub.forward_DCT = forward_DCT; 
UJ fdct->do_dct = jpeg„fdct_islow; 
-jl break; 
#eiidif 

#i¥def DCT_IFAST_SUPPORTED 
scase JDCT_IFAST: 

L.i, fdct->pub.forward_DCT = forward_DCT; 
L.. fdct->do_dct = jpeg_fdct„ifast; 
U break; 
#.eodi f 

#a|def DCT_FLOAT_SUPPORTED 
Jcase JDCT_FLOAT: 

Q fdct->pub. forward_DCT = f orward_DCT_ float ; 
^1 fdct->do_f loat_dct = jpeg_f dct_f loat ; 

break; 
#endif 
default: 

ERREXIT( cinfo, JERR_NOT„COMPILED) ; 
break; 

} 

/* Mark divisor tables unallocated */ 
for (i = 0; i < NUH_QUANT_TBLS ; i++) { 
fdct->divisors [i] = NULL; 
#ifdef DCT_FLOAT_SUPPORTED 

fdct->f loat__di visors [i] = NULL; 
#endif 
} 
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/* 

* jchuff.c 
* 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains Huffman entropy encoding routines. 
* 

* Much of the complexity here has to do with supporting output suspension. 

* If the data destination module demands suspension, we want to be able to 

* back up to the start of the current MCU. To do this, we copy state 

* variables into local working storage, and update them back to the 

* permanent JPEG objects only upon successful completion of an MCU. 
*/ 

#define JPEG_INTERNALS 
# include "j include. h" 
# include "jpeglib.h" 

# include "j chuff .h" /* Declarations shared with jcphuff .c */ 




/* Expanded entropy encoder object for Huffman encoding. 
* 

* The savable_state subrecord contains fields that change within an MCU, 

* but must not be updated permanently until we complete the MCU. 
*/ 

typedef struct { 

INT32 put_buffer? /* current bit-accumulation buffer */ 

int putjbits; /* # of bits now in it */ 

fint last_dc_val[MAX_COMPS_IN_SCAN] ; /* last DC coef for each component */ 
} *sjavable_state; 

%y 

/fraThis macro is to work around compilers with missing or broken 
*^=jstructure assignment. You'll need to fix this code if you have 
*^"such a compiler and you change MAX_ COMPS„IN_SCAN. 

H 

#Sfndef NO_STRUCT_ASSIGN 

#<flfine ASSIGN_STATE(dest,src) ( (dest) = (src) ) 

#i : f MAX_COMPS_IN_SCAN ==4 
#define ASSIGN_STATE (dest , src) \ 

( (dest) .put_buffer = (src) ,put_buffer, \ 

L=. (dest) .put_bits = (src) .put_bits, \ 

« (dest) .last_dc_val [0] = (src) .last_dc_val [0] , \ 

Hi (dest) .last_dc_val[l] = (src) . last_dc_val [1] , \ 

l_\ (dest) . last_dc_val[2] = (src) . last_dc_val [2 ] , \ 

ja (dest) ,last_dc_val[3] = (src) . last_dc_val [3 3 ) 
«§hdif 
fcehdif 



typedef struct { 

struct jpeg_entropy_encoder pub; /* public fields */ 

savable_state saved; /* Bit buffer & DC state at start of MCU */ 

/* These fields are NOT loaded into local working state. */ 

unsigned int restarts_to_go; /* MCUs left in this restart interval */ 

int next_restart_num; /* next restart number to write (0-7) */ 

/* Pointers to derived tables (these workspaces have image lifespan) */ 
c_derived_tbl * dc_derived_tbls [NUM_HUFF_TBLS] ; 
c_derive6Ltbl * ac_derived_tbls [NUM_HUFF_TBLS] ; 

fifdef ENTROPY_OPT_SUPPORTED /* Statistics tables for optimization */ 

long * dc_count_ptrs[NUM_HUFF_TBLS] ; 

long * ac_count_ptrs[NUM_HUFF_TBLS3 ; 
#endif 

} huf f_entropy_encoder ; 

typedef huf f_entropy_encoder * huf f_entropy_ptr ; 

/* Working state while writing an MCU. 
* This struct contains all the fields that are needed by subroutines. 
*/ 

typedef struct { 
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JOCTET * next_output_byte ; ^^L* => next byte to write in buffer^^^ 
size_t free_in__buf fer; /^^Hof byte spaces remaining in buffe^^H 
savable_state cur; /^Krrent bit buffer & DC state */ 

j_compress_ptr cinfo; /* dump_buffer needs access to this */ 

working_state ; 



/* Forward declarations */ 

METHODDEF (boolean) encode_mcu_huf f JPP ( ( j_compress_ptr cinfo, 

JBLOCKROW *MCU_data) ) ; 
METHODDEF (void) f inish_pass_huf f JPP ( ( j_compress_ptr cinfo)); 
#ifdef ENTROPY_OPT_SUPPORTED 

METHODDEF (boolean) encode_mcu_gather JPP ( ( j_compress_ptr cinfo, 

JBLOCKROW *MCU_data) ) ; 
METHODDEF (void) f inish_jpass_gather JPP ( ( j_compress_ptr cinfo)); 
tendif 



/* 

* Initialize for a Huffman-compressed scan. 

* If gather_statistics is TRUE, we do not output anything during the scan, 

* just count the Huffman symbols used and generate Huffman code tables. 
*/ 

METHODDEF (void) 

start_pass_huf f ( j_compress_ptr cinfo, boolean gather_statistics) 
{ 

huf f_entropy_ptr entropy = (huf f_entropy„ptr ) cinf o->entropy; 
int ci, dctbl, actbl; 
jpeg_component_inf o * compptr ,- 

d£ (gather_statistics) { 
#Mtef ENTROPY_OPT_SUPPORTED 
d 1 entropy- >pub. encode_mcu = encode__mcu_ gather ; 
f==| entropy->pub. f inish_pass = f inish_pass_gather ; 

Ul ERREXIT( cinfo, JERR_NOT_COMPILED) ; 
#eridif 
jt else { 

=f entropy->pub. encode_mcu = encode_mcu_ huf f ; 
L Jl entropy- >pub. finish_pass = f inish__pass_huf f ; 

n! 

sfor (ci =0; ci < cinf o->comps_in_scan; ci++) { 
Ls. compptr = cinfo~>cur_comp_info[ci] ; 
'z=l dctbl = compptr->dc_tbl_no; 
LJ actbl = compptr- >ac_tbl_no; 
HI if (gather_statistics) { 
#a|def ENTROPY_OPT_SUPPORTED 
2% /* Check for invalid table indexes */ 

p /* (make_c_derived_tbl does this in the other path) */ 

if (dctbl < 0 I I dctbl >= NUM_HUFF_TBLS ) 
ERREXIT1 (cinfo, JERR_NO_HUFF_TABLE , dctbl); 

if (actbl < 0 || actbl >= NUM_HUFF_TBLS ) 
ERREXIT1 (cinfo, JERR_NO_HUFF_TABLE , actbl); 

/* Allocate and zero the statistics tables */ 

/* Note that jpeg_gen_optimal_table expects 257 entries in each table! * 

if ( entropy- >dc_count_ptrs [dctbl] == NULL) 
entropy->dc_count_ptrs [dctbl] = (long *) 

(*cinfo->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
257 * SIZEOF(long) ) ; 

MEMZERO (entropy->dc_count„ptrs [dctbl ] , 257 * SIZEOF (long) ) ; 

if ( en t ropy- >ac_count_ptrs [actbl] == NULL) 
entropy- >ac_count_j?trs [actbl] = (long *) 

(*cinf o->mem->alloc„small) ( ( j_common_ptr ) cinfo, JPOOL_IMAGE, 
257 * SIZEOF (long) ) ; 

MEMZERO (entropy->ac_count_ptrs [actbl ] , 257 * SIZEOF (long) ) ; 

#endif 

} else { 

/* Compute derived values for Huffman tables */ 

/* We may do this more than once for a table, but it's not expensive */ 
jpeg_jnake_c_derived^tbl (cinfo, TRUE, dctbl, 

& entropy- >dc_derived_tbls [dctbl] ) ; 
jpeg_make_c_derived_tbl (cinfo, FALSE, actbl, 

& entropy- >ac_derived_tbls [actbl] ) ; 

} 

/* Initialize DC predictions to 0 */ 
entropy->saved. last_dc_val [ci] = 0; 

} 
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/* Initialize bit buffer to^^|ty */ 
entropy->saved.put_buf f er =^^H 

entropy->saved.put_bits = 0^^^ 

/* Initialize restart stuff */ 
entropy->restarts_to_go = cinf o->restart_interval ; 
entropy- >next_res tar t_num = 0; 




/* 

* Compute the derived values for a Huffman table. 

* This routine also performs some validation checks on the table. 
* 

* Note this is also used by jcphuff .c. 
*/ 

GLOBAL (void) 

jpeg_make_c_derived_tbl ( j_compress_ptr cinfo, boolean isDC, int tblno, 
c_derived_ tbl ** pdtbl) 

{ 

JHUFFJTBL *htbl; 

c_derived_tbl *dtbl; 

int p, i, 1, lastp, si, maxsymbol; 

char huf fsize[257] ; 

unsigned int huf f code [257] ; 

unsigned int code; 

/* Note that huffsize[] and huffcode[] are filled in code-length order, 
* paralleling the order of the symbols themselves in htbl->huf fval [ 3 . 

_* / 

~£* Find the input Huffman table */ 

Wf (tblno < 0 | | tblno >= NUM_HUFF_TBLS) 

pi ERREXIT1 (cinf o, JERR_NO_HUFF_TABLE , tblno); 

,htbl = 

isDC ? cinfo->dc_huff_tbl_ptrs [tblno] : cinf o->ac_huff_tbl_ptrs [tblno] ; 
'~4f (htbl == NULL) 

Jj ERREXIT1 (cinf o, JERR_NO_HUFF_TABLE , tblno); 

Uj* Allocate a workspace if we haven't already done so. */ 
P=if (*pdtbl == NULL) 

*pdtbl = (c_derived_tbl *) 
B (*cinf o->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
SIZEOF(c_derived_tbl) ) ; 

P^tbl = *pdtbl; 

(ll* Figure C.l: make table of Huffman code length for each symbol */ 
3 = 0; 

Lfor (1 = 1; 1 <= 16; 1++) { 
p i = (int) htbl->bits[l] ; 

™~ if (i < 0 | | p + i > 256) /* protect against table overrun */ 
ERREXIT( cinfo, JERR_BAD_HUFF_TABLE ) ; 
while (i--) 

huf f size [p++] = (char) 1; 

} 

huf f size [p] = 0; 
lastp = p; 

/* Figure C.2: generate the codes themselves */ 

/* We also validate that the counts represent a legal Huffman code tree. */ 

code = 0; 

si = huffsize[0]; 

p = 0; 

while (huf f size [p] ) { 

while (((int) huffsize[p]) == si) { 
huf f code [p++] = code; 
code++ ; 

} 

/* code is now 1 more than the last code used for codelength si; but 
* it must still fit in si bits, since no code is allowed to be all ones. 
*/ 

if (((INT32) code) >= (((INT32) 1) « si)) 

ERREXIT (cinfo, JERR_BAD_HUFF_TABLE ) ; 
code «= 1; 
si++; 

} 
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/* Figure C.3: generate enci 
/* These are code and size 1 




r tables */ 

:ed by symbol value */ 




/* Set all codeless symbols to have code length 0; 

* this lets us detect duplicate VAL entries here, and later 

* allows emitjbits to detect any attempt to emit such symbols. 
*/ 

MEMZERO(dtbl->ehufsi, SIZEOF (dtbl->ehuf si ) ) ; 

/* This is also a convenient place to check for out-of -range 

* and duplicated VAL entries. We allow 0..255 for AC symbols 

* but only 0..15 for DC. (We could constrain them further 

* based on data depth and mode, but this seems enough.) 
*/ 

maxsymbol = isDC ? 15 : 255; 

for (p = 0; p < lastp; p++) { 
i = htbl->huffval[p] ; 

if (i < 0 || i > maxsymbol || dtbl->ehuf si [i] ) 

ERREXIT ( cinf o , JERR_BAD_HUFF_TABLE ) ; 
dtbl->ehufco[i] = huffcodetp]; 
dtbl->ehufsi [i] = huf£size[pj; 



/* Outputting bytes to the file */ 

/* Emit a byte, taking 'action' if must suspend. */ 
#define emit_byte (state, val , action) \ 

{ * (state) ->next_output_byte++ = (JOCTET) (val); \ 
if ( — (state) ->free_in_buf f er ==0) \ 
if ( ! dump_buffer (state) ) \ 
{ action; } } 



LGSAL (boolean) 

dutsp_buffer (working_state * state) 

/♦—Empty the output buffer; return TRUE if successful, FALSE if must suspend */ 
-is true t jpeg_destination_mgr * dest = state- >cinf o->dest; 



- return FALSE; 

Li* After a successful buffer dump, must reset buffer pointers */ 
pstate->next_output_byte = dest->next_output_byte; 
Estate- >free_in_buf f er = dest->f ree__ in_buf f er ; 
Fife turn TRUE; 



/* Only the right 24 bits of put_buffer are used; the valid bits are 

* left- justified in this part. At most 16 bits can be passed to emit_bits 

* in one call, and we never retain more than 7 bits in put_buffer 

* between calls, so 24 bits are sufficient. 
*/ 

INLINE 

LOCAL (boolean) 

emit_bits (working_state * state, unsigned int code, int size) 

/* Emit some bits; return TRUE if successful, FALSE if must suspend */ 

{ 

/* This routine is heavily used, so it's worth coding tightly. */ 
register INT32 put_buffer = (INT32) code; 
register int put_bits = state ->cur ,put_bits; 

/* if size is 0, caller used an invalid Huffman table entry */ 
if (size == 0) 

ERREXIT (state->cinfo, JERR_HUFF_MISSING__CODE) ; 

put_buffer &= (((INT32) l)«size) - 1; /* mask off any extra bits in code */ 

put^ bits += size; /* new number of bits in buffer */ 

put^ buffer <<= 24 - put_bits; /* align incoming bits */ 

put_buffer |= state->cur .put_buf fer; /* and merge with old buffer contents */ 



} 
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ff\ Outputting bits to the file */ 
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while (put_bits >= 8) { 
int c = (int) ( (put__buf f 



e^^ 16) & 



emit_byte (state, c, return FALSE); 

if (c == OxFF) { /* need to stuff a zero byte? */ 

emit_byte (state, 0, return FALSE); 

} 

put_buffer «= 8; 
put_bits -= 8; 

} 

state->cur .put_buf f er = put_buffer; /* update state variables */ 
state->cur .put_bits = put_bits; 

return TRUE; 



LOCAL (boolean) 

flush_bits (working_state * state) 
{ 

if (! emit_bits (state, 0x7F, 7)) /* fill any partial byte with ones */ 
return FALSE; 

state->cur .put_buf f er =0; /* and reset bit-buffer to empty */ 
state->cur .put_bits = 0; 
return TRUE; 

} 



/* Encode a single block's worth of coefficients */ 
L0CAL (boolean) 

enaode_one_block (working_state * state, JCOEFPTR block, int last_dc__val , 
c_derived_tbl *dctbl, c_derived_tbl *actbl) 

(01 

Register int temp, temp2 ; 
j¥egister int nbits; 
""Register int k, r, i; 

rt* Encode the DC coefficient difference per section F. 1.2.1 */ 
n|emp = temp2 = block [0] - last_dc_val; 
~ if (temp < 0) { 

Lb temp = -temp; /* temp is abs value of input */ 

/* For a negative input, want temp2 = bitwise complement of abs (input) */ 
~ /* This code assumes we are on a two's complement machine */ 
jlj temp2--; 

O* Find the number of bits needed for the magnitude of the coefficient */ 
p nbits = 0; 
"while (temp) { 

nbits++; 

temp »= 1; 

} 

/* Check for out-of-range coefficient values. 
* Since we're encoding a difference, the range limit is twice as much. 
*/ 

if (nbits > MAX_COEF_BITS+l) 

ERREXIT(state->cinfo, JERR_BAD_DCT_COEF) ; 

/* Emit the Huffman-coded symbol for the number of bits */ 
if (! emit_bits (state, dctbl->ehufco [nbits] , dctbl->ehuf si [nbits] ) ) 
return FALSE; 

/* Emit that number of bits of the value, if positive, */ 
/* or the complement of its magnitude, if negative. */ 
if (nbits) /* emit_bits rejects calls with size 0 */ 

if (! emit_bits (state, (unsigned int) temp2 , nbits)) 
return FALSE; 

/* Encode the AC coefficients per section F. 1.2.2 */ 

r = 0; /* r = run length of zeros */ 

for (k = 1; k < DCTSIZE2 ; k++) { 

if ((temp = block[ jpeg_natural_order [k] 3 ) == 0) { 

r++; 
} else { 
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j^^k emit special run-length- 16 codes^^kF 

c9^>>ehuf co [OxFO] , actbl->ehuf si [OxFO^^r 



/* if run length > 15, j^^^ emit special run-length- 16 codes^^^FO) 

while (r > 15) { 
if (! emit_bits (state, ac? 

return FALSE; 
r -= 16; 

} 



temp 2 = temp; 

if (temp < 0) { 
temp = -temp; /* temp is abs value of input */ 

/* This code assumes we are on a two's complement machine */ 
temp2--; 

} 

/* Find the number of bits needed for the magnitude of the coefficient */ 
nbits =1; /* there must be at least one 1 bit */ 

while ((temp »= 1)) 
nbits++; 

/* Check for out-of-range coefficient values */ 
if (nbits > MAX_COEF_BITS) 
ERREXIT(state->cinfo, JERR_BAD_DCT_COEF) ; 

/* Emit Huffman symbol for run length / number of bits */ 
i = (r « 4) + nbits; 

if (! emit_bits (state, actbl->ehuf co [i] , actbl->ehuf si [i] ) ) 
return FALSE; 

/* Emit that number of bits of the value, if positive, */ 
/* or the complement of its magnitude, if negative. */ 
if (! emit_bits (state, (unsigned int) temp2 , nbits)) 
return FALSE; 

r = 0; 

} 

m 

If the last coef (s) were zero, emit an end-of -block code */ 
Hf (r > 0) 

•J% if (! emit_bits (state, actbl->ehuf co [0] , actbl->ehuf si [03 ) ) 
return FALSE; 

Hie turn TRUE; 

^Emit a restart marker & resynchronize predictions. 

m 

LfiCAL (boolean) 

omlt_restart (working_state * state, int restart_num) 
"int ci; 

if (! flush_bits (state) ) 
return FALSE; 

emit_byte( state, OxFF, return FALSE); 

emit_byte( state, JPEG_RST0 + restart_num, return FALSE); 

/* Re-initialize DC predictions to 0 */ 
for (ci =0; ci < state->cinf o->comps_in_scan; ci++) 
state ->cur . last_dc_val [ci] = 0; 

/* The restart counter is not updated until we successfully write the MCU. */ 

return TRUE; 



/* 

* Encode and output one MCU's worth of Huffman- compressed coefficients. 
*/ 

METHODDEF (boolean) 

encode_mcu_huf f ( j_compress_ptr cinfo, JBLOCKROW *MCU_data) 
{ 

huf f_entropy_ptr entropy - (huf f„entropy_ptr) cinf o->entropy; 
working_state state; 
int blkn, ci; 
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jpeg_component_inf o * comppj^^^ 
/* Load up working state */^^^ 

state. next_output_byte = cinf o->dest->next_output_ byte; 
state. f ree_in_buf f er = cinf o->dest->f ree_in_buf f er ; 
AS SIGN__STATE( state, cur, entropy- > saved) ; 
state. cinf o = cinfo; 

/* Emit restart marker if needed */ 
if ( cinf o->restart_ interval) { 

if ( entropy- >res tar ts_to_go == 0) 

if (! emit_restart (&state, entropy- >next_res tar t_num) ) 

return FALSE; 

} 

/* Encode the MCU data blocks */ 

for (blkn = 0; blkn < cinf o->blocks_ii^MCU; blkn++) { 
ci - cinf o->MCU_member ship [blkn] ; 
compptr = cinfo->cur_comp_inf o [ci] ; 
if ( ! encode_one__block(&state, 

MCU_data[blkn] [0] , state. cur . last_dc_val [ci] , 
entropy- >dc_derived_tbls [compptr->dc_tbl_no] , 
entropy- >ac_derived_tbls [compptr ->ac_tbl_no] ) ) 
return FALSE; 
/* Update last_dc_val */ 

state. cur. last_dc_val [ci ] = MCU_data [blkn] [0] [0] ; 

} 

/* Completed MCU, so update state */ 

cinf o->dest->next_output_byte = state.next_output_byte; 
cinfo->dest->f ree_in_buf f er = state . f ree_in_buf f er ; 
f§S S IGN_STATE{ en tropy-> saved, state. cur) ; 

_M* Update restart- interval state too */ 
yif (cinfo->restart_interval) { 

if ( entropy- >res tar ts_.to_.go ==0) { 
-=f entropy->restarts_to_go = cinf o->restart_interval ; 
~-j entropy- >next_res tar t_num+ + ; 
•j-. entropy- >next_res tar t_num &= 7; 

> 

entropy->restarts_to_go--; 

m 

* return TRUE; 

9 
m 

-_*= Finish up at the end of a Huffman- compressed scan. 

M 

M3STH0DDEF (void) 

r¥nish__pass_huf f { j_compress_ptr cinfo) 
{ 

huf f_entropy_ptr entropy = (huf f_entropy_ptr) cinf o->entropy; 
working_state state; 

/* Load up working state . . . flush__bits needs it */ 
state. next_output_byte = cinf o->dest->next_output_byte; 
state. free_in_buf f er = cinf o->dest->f ree_in_buf f er ; 
ASSIGN^ STATE (state . cur , entropy- >saved) ; 
state. cinfo = cinfo; 

/* Flush out the last data */ 
if (! flush_bits(&state) ) 

ERREXIT( cinfo, JERR_CANT_SUSPEND) ; 

/* Update state */ 

cinfo->dest->next_output_byte = state .next_output_byte; 
cinfo->dest->free_in_buf f er = state . free_in_buffer; 
AS SIGN_STATE(entropy-> saved, state. cur) ; 




/* 

* Huffman coding optimization. 

* We first scan the supplied data and count the number of uses of each symbol 

* that is to be Huf f man -coded. (This process MUST agree with the code above.) 

* Then we build a Huffman coding tree for the observed counts. 
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* Symbols which are not needj 

* assigned any code, which 

* the compressed data. 
*/ 



d^^fct all for the particular image ar^^fet 
s^^H space in the DHT marker as well ^^B" 



#ifdef ENTROPY_OPT_SUPPORTED 



/* Process a single block's worth of coefficients */ 
LOCAL (void) 

htest„one_block ( j_compress_ ptr cinfo, JCOEFPTR block, int last_dc_val, 
long dc_counts [ ] , long ac_counts [ ] ) 

{ 

register int temp; 
register int nbits; 
register int k, r; 

/* Encode the DC coefficient difference per section F. 1.2.1 */ 

temp = block [0] - last_dc_val; 
if (temp < 0) 
temp = -temp; 

/* Find the number of bits needed for the magnitude of the coefficient */ 
nbits = 0; 
while (temp) { 

nbits++; 

temp »= 1; 

} 

/* Check for out-of -range coefficient values. 

Since we're encoding a difference, the range limit is twice as much. 

St (nbits > MAX_COEF„BITS+l) 

Q] ERREXIT( cinfo, JERR_BAD_DCT_COEF ) ; 

Count the Huffman symbol for the number of bits */ 
Mc_counts [nbits ] + + ; 

Encode the AC coefficients per section F.l.2.2 */ 

fpf = 0; /* r = run length of zeros */ 

sfor (k = 1; k < DCTSIZE2; k++) { 

Lh if ((temp = block [ jpeg_natural_order [k] ] ) == 0) { 
} else { 

nl /* if run length > 15, must emit special run-length-16 codes (OxFO) */ 
H while (r > 15) ( 
y ac_counts [OxFO] ++; 
P r -= 16; 

/* Find the number of bits needed for the magnitude of the coefficient */ 
if (temp < 0) 
temp = -temp; 

/* Find the number of bits needed for the magnitude of the coefficient */ 
nbits =1; /* there must be at least one 1 bit */ 

while ((temp »= 1)) 
nbits++; 

/* Check for out-of -range coefficient values */ 
if (nbits > MAX_COEF_BITS) 
ERREXIT( cinfo, JERR_BAD_DCT_COEF) ; 

/* Count Huffman symbol for run length / number of bits */ 
ac_counts[(r « 4) + nbits J++; 

r = 0; 

} 

} 

/* If the last coef (s) were zero, emit an end-of -block code */ 
if (r > 0) 

accounts [0]++; 

} 



/* 

* Trial-encode one MCU's worth of Huffman -compressed coefficients. 
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* No data is actually outpu 
*/ 



t^^^ no suspension return is possible^^^ 



METHODDEF < boo 1 ean ) 

encode_mcu_gather ( j_compress_ptr cinfo, JBLOCKROW *MCU_data) 
{ 

huf f_entropy_ptr entropy = (huf f_entropy_ptr) cinf o->entropy; 
int blkn, ci; 

jpeg_component_inf o * compptr; 

/* Take care of restart intervals if needed */ 
if (cinfo->restart_interval) { 

if (entropy->restarts_to_go ==0) { 

/* Re-initialize DC predictions to 0 */ 
for (ci =0; ci < cinf o->comps_in_scan; ci++) 
en t ropy- > saved. las t_dc_val [ci] = 0; 
/* Update restart state */ 

entropy- >res tar ts_to_go = cinf o->restart_interval ; 

} 

entropy- >res tar ts_to_go — ; 

} 

for (blkn = 0; blkn < cinf o->blocks_in_MCU; blkn++) { 
ci = cinfo->MCU_jnember ship [blkn] ; 
compptr = cinfo->cur_comp__inf o [ci] ; 

htest_one_block( cinfo, MCU_data[blkn] [0], en tropy-> saved. last_dc_val [ci] , 

entropy- >dc_count_ptrs [compptr->dc_tbl_no] , 

entropy- >ac_count_ptrs [compptr->ac_tbl_no] ) ; 
entropy->saved.last_dc_val[ci] = MCU_data [blkn] [0] [0] ; 

} 



return TRUE; 

/?! 

^jGenerate the best Huffman code table for the given counts, fill htbl. 
tjNote this is also used by jcphuff .c. 

^The JPEG standard requires that no symbol be assigned a codeword of all 
2none bits (so that padding bits added at the end of a compressed segment 
sl^can't look like a valid code). Because of the canonical ordering of 
codewords, this just means that there must be an unused slot in the 

* longest codeword length category. Section K.2 of the JPEG spec suggests 
£. k reserving such a slot by pretending that symbol 256 is a valid symbol 
;*~with count 1. In theory that's not optimal; giving it count zero but 
^including it in the symbol set anyway should give a better Huffman code. 
fll But the theoretically better code actually seems to come out worse in 

practice, because it produces more all-ones bytes (which incur stuffed 
zero bytes in the final file). In any case the difference is tiny. 

i-L The JPEG standard requires Huffman codes to be no more than 16 bits long. 
If some symbols have a very small but nonzero probability, the Huffman tree 

* must be adjusted to meet the code length restriction. We currently use 

* the adjustment method suggested in JPEG section K.2. This method is *not* 

* optimal; it may not choose the best possible limited- length code. But 

* typically only very- low- frequency symbols will be given less -than- optimal 

* lengths, so the code is almost optimal. Experimental comparisons against 

* an optimal limited- length-code algorithm indicate that the difference is 

* microscopic usually less than a hundredth of a percent of total size. 

* So the extra complexity of an optimal algorithm doesn't seem worthwhile. 
*/ 



GLOBAL (void) 

jpeg_gen_optimal_table ( j_compress_ptr cinfo, JHUFFJTBL * htbl, long freq[]) 
{ 

#define MAX_CLEN 32 /* assumed maximum initial code length */ 

UINT8 bits [MAX_CLEN+1] ; /* bits[k] = # of symbols with code length k */ 
int codesize[257] ; /* codesize[k] = code length of symbol k */ 

int others [257]; /* next symbol in current branch of tree */ 

int cl, c2; 
int p, i, j; 
long v; 

/* This algorithm is explained in section K.2 of the JPEG standard */ 

MEMZERO (bits , SIZEOF (bits) ) ; 
MEMZERO(codesize, SIZEOF (codesize) ) ; 
for (i =0; i < 257; i++) 

others [i] = -1; /* init links to empty */ 
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ma^^Bure 256 has a nonzero count */ 

synfli^256 in the Huffman procedure guaraBKe 



freq[256] = 1; /* 
/* Including the pseudo-s> 

* that no real symbol is given code-value of all ones, because 256 

* will be placed last in the largest codeword category. 
*/ 

/* Huffman's basic algorithm to assign optimal code lengths to symbols */ 
for (;;) { 

/* Find the smallest nonzero frequency, set cl = its symbol */ 
/* In case of ties, take the larger symbol number */ 
cl - -1; 

v = 1000000000L; 

for (i = 0; i <= 256; i++) { 

if (freq[i] && freqti] <= v) { 
v = freqti] ; 
cl = i; 

} 

} 

/* Find the next smallest nonzero frequency, set c2 = its symbol */ 
/* In case of ties, take the larger symbol number */ 
c2 = -1; 

v = 1000000000L; 

for (i = 0; i <= 256; i++) { 

if (freqti] && freqti] <= v && i != cl) { 
v = freqti] ; 
c2 = i; 

} 

} 

/* Done if we've merged everything into one frequency */ 
1 if (c2 < 0) 
E *s break; 

3 /* Else merge the two counts /trees */ 
j freqtcl] += freq[c2]; 
! freq[c2] = 0; 

1 /* Increment the codesize of everything in el's tree branch */ 

"= codesize [cl 3 ++; 

* while (others [cl] >= 0) { 

cl = others [cl] ; 
; codesize [cl] ++ ; 
I } 

I others [cl ] = c2 ; /* chain c2 onto el's tree branch */ 

J /* Increment the codesize of everything in c2's tree branch */ 
j codesize [c2 ] ++; 
L while (others [c2] >= 0) { 
J c2 = others[c2]; 
codesize [c2] ++ ; 

} 



/* Now count the number of symbols of each code length */ 
for (i = 0; i <= 256; i++) { 
if (codesizefi] ) { 

/* The JPEG standard seems to think that this can't happen, */ 
/* but I'm paranoid... */ 
if (codesize [i] > MAX_CLEN) 
ERREXIT ( cinf O , JERR_HUFF_CLEN_OVERFLOW) ; 



bits [codesize [i] ] ++; 

} 

} 

/* JPEG doesn't allow symbols with code lengths over 16 bits, so if the pure 

* Huffman procedure assigned any such lengths, we must adjust the coding. 

* Here is what the JPEG spec says about how this next bit works: 

* Since symbols are paired for the longest Huffman code, the symbols are 

* removed from this length category two at a time. The prefix for the pair 

* (which is one bit shorter) is allocated to one of the pair; then, 

* skipping the BITS entry for that prefix length, a code word from the next 

* shortest nonzero BITS entry is converted into a prefix for two code words 

* one bit longer. 
V 
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for (i = MAX_CLEN; i > 16; itt { 
while <bits[i] > 0) { 

j = i - 2; /* firaKength of new prefix to be used */ 

while (bits[j] == 0) 
3 — ; 



bits[i] -= 2; /* remove two symbols */ 

bits[i-l]++; /* one goes in this length */ 

bits[j+l] +=2; /* two new symbols in this length */ 

bits[j]--; /* symbol of this length is now a prefix */ 

} 

} 

/* Remove the count for the pseudo- symbol 256 from the largest code length */ 
while (bits[i] == 0) /* find largest codelength still in use */ 

i--; 
bitsti]--; 

/* Return final symbol counts (only for lengths 0..16) */ 
MEMCOPY(htbl->bits, bits, SIZEOF (htbl->bits )) ; 

/* Return a list of the symbols sorted by code length */ 

/* It's not real clear to me why we don't need to consider the codelength 

* changes made above, but the JPEG spec seems to think this works. 
*/ 

P = 0; 

for (i = 1; i <= MAX_CLEN; i++) { 
for (j = 0; j <= 255; j++) { 

if (codesize[j] == i) { 
htbl->huffval[p] = (UINT8) j; 
P++; 

« > 

U } 

ijg 

W* Set sent_table FALSE so updated table will be written to JPEG file. */ 
ygtbl->sent_table = FALSE; 

^Finish up a statistics-gathering pass and create the new Huffman tables. 
METHODDEF(void) 

faMsh_pass_ gather ( j_compress„ptr cinfo) 

ij&uf f_entropy__ptr entropy = (huf f_entropy„ptr) cinf o->entropy; 

J'int ci, dctbl, actbl; 

\ljpeg_component_info * compptr; 

POTUFF_TBL **htblptr; 

^boolean did_dc [NUM_HUFF_TBLS] ; 

Lboolean did_ac [NUM_HUFF_TBLS] ; 

/* It's important not to apply jpeg_gen_optimal_table more than once 

* per table, because it clobbers the input frequency counts! 
*/ 

MEMZERO (did_dc , SIZEOF (did_dc ) ) ; 
MEMZERO (did_ac , SIZEOF (did_ac ) ) ; 

for (ci = 0; ci < cinf o->comps_in_scan; ci++) { 
compptr = cinfo->cur_comp_info[ci] ; 
dctbl = compptr- >dc_tbl_no; 
actbl = compptr->ac_tbl_no; 
if (! did_dc [dctbl ] ) { 

htblptr s & cinfo->dc_huf f_tbl_ptrs [dctbl] ; 

if (*htblptr == NULL) 
*htblptr = jpeg„alloc_huf f_table( ( j_common_ptr) cinfo); 

jpeg_gen_optimal_table (cinf o, *htblptr , entropy- >dc_count_ptrs [dctbl] ) ; 

did_dc [dctbl] = TRUE; 

} 

if (! did_ac [actbl ] ) { 

htblptr = & cinfo->ac„huff_tbl_j?trs [actbl ] ; 

if (*htblptr == NULL) 
*htblptr = jpeg_alloc_huff_table( ( j_common_ptr) cinfo); 

jpeg_gen_optimal_table< cinfo, *htblptr, entropy- >ac_count_ptrs [actbl] ) ; 

did_ac [actbl] = TRUE; 

} 

} 
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iendif /* ENTROPY_OPT_SUPPORTj 



/* 

* Module initialization routine for Huffman entropy encoding. 
*/ 

GLOBAL (void) 

jinit_huf f_encoder { j_ compress_ptr cinfo) 
{ 

huf f_entropy_ptr entropy; 
int i; 

entropy = (huf f_entropy„ptr) 

(*cinfo->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE , 
SIZEOF(huf f _entropy_encoder ) ) ; 
cinf o->entropy = (struct jpeg_entropy_encoder *) entropy; 
entropy->pub.start_pass = start_pass_huf f ; 

/* Mark tables unallocated */ 

for (i = 0; i < NUM_HUFF_TBLS ; i++) { 

entropy- >dc_der i ved_ tbls [i] = entropy->ac_derived_tbls [i] = NULL; 
#ifdef ENTROPY_OPT_SUPPORTED 

entropy- >dc_ count„ptrs [i] = entropy- >ac_coun t_p trs [i] = NULL; 
#endif 
} 



01 
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/* 

* jcinit.c 
* 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains initialization logic for the JPEG compressor. 

* This routine is in charge of selecting the modules to be executed and 

* making an initialization call to each one. 
* 

* Logically, this code belongs in jcmaster.c. It's split out because 

* linking this routine implies linking the entire compression library. 

* For a transcoding-only application, we want to be able to use jcmaster.c 

* without linking in the whole library. 
*/ 

idefine JPEG_INTERNALS 
# include "j include. h" 
tinclude "jpeglib.h" 



/* 

* Master selection of compression modules. 

* This is done once at the start of processing an image. We determine 

* which modules will be used and give them appropriate initialization calls. 
*/ 

GLOBAL (void) 

jinit_compress_master ( j_compress_ptr cinfo) 
{ 

f&* Initialize master control (includes parameter checking/processing) */ 
^5init_c_master_control (cinfo, FALSE /* full compression */); 

Q%* Preprocessing */ 

~ f if ( ! cinf o->raw_data_in) { 

jinit_color_converter (cinfo) ; 

jinit_ downsampler (cinf o) ; 
=1 jinit_c_prep_controller (cinf o, FALSE /* never need full buffer here */); 

^4 

47* Forward DCT */ 
fj|init_ f orward_dct (cinf o) ; 

Entropy encoding: either Huffman or arithmetic coding. */ 
2 if (cinf o->arith_code) { 
Li ERREXIT (cinfo , JERR_ARITH_NOTIMPL) ; 
1.J else { 

U if (cinf o->progressive_mode) { 
fljdef C„PROGRESSIVE_SUPPORTED 

I jinit__phuf f__ encoder (cinf o) ; 
#¥lse 

p ERREXIT (cinfo, JERR_NOT_COMPILED) ; 
#endif 

} else 

jinit_huf f_encoder (cinf o) ; 

} 

/* Need a full-image coefficient buffer in any multi-pass mode. */ 
jinit_c — coef_controller (cinfo, 

(boolean) (cinf o->num_s cans > 1 | | cinf o->optimize_coding) ) ; 
jinit_c_main_contr oiler (cinfo, FALSE /* never need full buffer here */); 

jinit^ mar ker — wr iter (cinf o) ; 

/* We can now tell the memory manager to allocate virtual arrays. */ 
(*cinfo->mem->realize_virt_arrays) ( ( j_common__ ptr) cinfo) ; 

/* Write the datastream header (SOI) immediately. 

* Frame and scan headers are postponed till later. 

* This lets application insert special markers after the SOI. 
*/ 

(*cinfo->marker->write_f ile_header) (cinfo) ; 
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/* 

* jcmainct.c 
* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains the main buffer controller for compression. 

* The main buffer lies between the pre-processor and the JPEG 

* compressor proper; it holds downsampled data in the JPEG colorspace. 
V 

#define JPEG_INTERNALS 
# include ■ j include. h" 
tinclude "jpeglib.h" 




/* Note: currently, there is no operating mode in which a full -image buffer 

* is needed at this step. If there were, that mode could not be used with 

* "raw data" input, since this module is bypassed in that case. However, 

* we've left the code here for possible use in special applications. 
*/ 

#undef FULL_J1AIN_BUFFER_SUP PORTED 



/* Private buffer controller object */ 

typedef struct { 

struct jpeg_c_main_controller pub; /* public fields */ 

JDIMENSION cur_iMCU_row; /* number of current iMCU row */ 

r=»JDIMENSION rowgroup_ctr; /* counts row groups received in iMCU row */ 

^boolean suspended; /* remember if we suspended output */ 

"Jj_BUF_MODE pass_mode; /* current operating mode */ 

If using just a strip buffer, this points to the entire set of buffers 
Ui* (we allocate one for each component) . In the full-image case, this 
^s* points to the currently accessible strips of the virtual arrays. 
J*/ 

^JSAMPARRAY buf f er [MAX_COMPONENTS] ; 
#Ifdef FULL_MAIN_BUFFER__SUPPORTED 

=-t* If using full-image storage, this array holds pointers to virtual-array 
a * control blocks for each component. Unused if not full-image storage. 

*/ 

L : jvirt_sarray_j?tr whole_image [MAX_COMPONENTS] ; 
iehdif 

}f1 fny^ nia i n_c on t r o 1 1 e r ; 

typedef my_main_controller * my_main_ptr ; 

Forward declarations */ 
METHODDEF (void) process_data_simple_main 

JPP( ( j_compress_ptr cinfo, JSAMP ARRAY input_buf, 

JDIMENSION *in_row_ctr, JDIMENSION in_rows_avail ) ) ; 
#ifdef FULL_MAIN_BUFFER_SUPPORTED 
METHODDEF (void) process_data_buf f er_main 

JPP( ( j_compress__ptr cinfo, JSAMP ARRAY input_buf, 

JDIMENS I ON * i n_r ow_c t r , JDIMENS I ON i n_r ows„ava i 1 ) ) ; 

#endif 



/* 

* Initialize for a processing pass. 
*/ 

METHODDEF (void) 

start_pass_main ( j_compress_ptr cinfo, J_BUF_ MODE pass_mode) 
{ 

my_main_ptr main = (my_main_j?tr) cinfo->main; 

/* Do nothing in raw-data mode. */ 
if (cinf o->raw_data_in) 
return; 

main->cur_iMCU_row =0; /* initialize counters */ 
main->rowgroup_ctr = 0; 
main->suspended = FALSE; 

main->pass_mode = pass_mode; /* save mode for use by process_data */ 
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swi tch ( pas s_mode ) { 
case JBUF_PASS_THRU: 




#ifdef FULL^MAIN_BUFFER_SUPPORTED 

if (main->whole_image[0] != NULL) 

ERREXIT ( cinf O , JERR_BAD_BUFFER_MODE ) ; 

#endif 

main->pub.process_data - process^ data_simple_main; 
break; 

#ifdef FULL_J1AIN_BUFFER_SUPP0RTED 
case JBUF_SAVE_SOURCE : 
case JBUF_CRANK_DEST : 
case JBUF_SAVE_AND_PASS: 

if (main->whole_image [0 J == NULL) 

ERREXIT ( c info , JERR_BAD_BUFFER_MODE ) ; 
main->pnb.process_ data = process_data__ buf fer_main; 
break ; 
#endif 
default: 

ERREXIT ( cinf O, JERR_BAD_BUFFER_MODE) ; 
break; 

} 



/* 

* Process some data. 

* This routine handles the simple pass-through mode, 

* where we have only a strip buffer. 
*/ 

MpHODDEF(void) 

pr6cess_data_simple_main ( j_compress_ptr cinfo, 

JSAMPARRAY input_buf, JDIMENSION *in_row_ctr, 
01 JDIMENSION in_rows — avail) 

0% 

~W_nia i n_p t r main = (my_main_ptr) cinfo->main; 

jwhile (main->cur_iMCU„ row < cinf o->total__iMCU_rows) { 

Zl /* Read input data if we haven't filled the main buffer yet */ 

-4J if (main->rowgroup_ctr < DCTSIZE) 

(*cinfo->prep->pre_process_data) (cinfo, 

inpu t_bu f , in_r ow_c t r , in_r ows_ava i 1 , 
main->buf f er , &main->rowgroup_ctr, 
(JDIMENSION) DCTSIZE) ; 

/* If we don't have a full iMCU row buffered, return to application for 

* more data. Note that preprocessor will always pad to fill the iMCU row 

* at the bottom of the image. 
*/ 

if (main->rowgroup_ctr != DCTSIZE) 
return ; 

/* Send the completed row to the compressor */ 
if (! (*cinfo->coef->compress_data) (cinfo, main->buf fer) ) { 

/* If compressor did not consume the whole row, then we must need to 

* suspend processing and return to the application. In this situation 

* we pretend we didn't yet consume the last input row; otherwise, if 

* it happened to be the last row of the image, the application would 

* think we were done. 
*/ 

if ( ! main->suspended) { 
( * in_row_c tr ) - - ; 
main- > suspended = TRUE; 
} 

return; 

} 

/* We did finish the row. Undo our little suspension hack if a previous 

* call suspended; then mark the main buffer empty. 
*/ 

if (main->suspended) { 
( * in_r ow_ c tr ) + + ; 
main->suspended - FALSE; 

} 

main->rowgroup_ctr = 0; 
main->cur_iMCU_row++ ; 
} 

} 
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iifdef FULL_J1AIN_BUFFER_SUPP(| 

* Process some data. 

* This routine handles all of the modes that use a full-size buffer. 
*/ 

METHODDEF ( VO id ) 

process_data_buf f er_main ( j_ compress_ptr cinfo, 

JSAMPARRAY inputjbuf, JDIMENSION *in_row_ctr, 
JDIMENSION in_rows_avail) 

{ 

my_main_jptr main = (my_jnain_ptr) cinfo->main; 
int ci; 

jpeg_component_inf o *compptr; 

boolean writing = (main->pass_mode != JBUF_CRANK_DEST) ; 

while (main->cur„iMCU_row < cinf o->total_ iMCU_rows) { 

/* Realign the virtual buffers if at the start of an iMCU row. */ 
if (main->rowgroup_ctr ==0) { 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components; 
ci++, compptr++) { 
main->buf fer [ci] = ( *cinf o->mem->access_virt_sarray) 
( ( j_common_ptr) cinfo, main->whole„image [ci] , 
main->cur_iMCU_row * (compptr->v_samp_f actor * DCTSIZE) , 
(JDIMENSION) (compptr->v_samp_factor * DCTSIZE) , writing) ; 

} 

/* In a read pass, pretend we just read some source data. */ 

if (! writing) { 
*in_row_ctr += cinf o->max_v_samp_f actor * DCTSIZE; 
main->rowgroup_ctr = DCTSIZE; 

/* If a write pass, read input data until the current iMCU row is full. */ 
/* Note: preprocessor will pad if necessary to fill the last iMCU row. */ 
-IJ if (writing) { 

Vl ( *cinf o->prep->pre_process_data) (cinfo, 

i npu t_bu f , i n_r ow_c t r , i n_r ows_avai 1 , 
L 4J main->buf f er , £cmain->rowgroup_ctr, 

■Jj (JDIMENSION) DCTSIZE) ; 

/* Return to application if we need more data to fill the iMCU row. */ 
iiJ if (main->rowgroup_ctr < DCTSIZE) 
= return; 

Lk } 

O /* Emit data, unless this is a sink-only pass. */ 
fTs if (main->pass_mode != JBUF_SAVE_SOURCE) { 

if (! (*cinf o->coef->compress_data) (cinfo, main- >buf fer) ) { 
'""4 /* If compressor did not consume the whole row, then we must need to 
r% * suspend processing and return to the application. In this situation 
ZZ * we pretend we didn't yet consume the last input row; otherwise, if 
l=J * it happened to be the last row of the image, the application would 

* think we were done. 

*/ 

if ( ! main->suspended) { 
( * in_r ow_c tr ) - - ; 
main->suspended = TRUE; 

} 

return; 
} 

/* We did finish the row. Undo our little suspension hack if a previous 
* call suspended; then mark the main buffer empty. 
V 

if (main->suspended) { 
( *in_row_ctr) ++ ; 
main->suspended = FALSE; 
} 

) 

/* If get here, we are done with this iMCU row. Mark buffer empty. */ 
main->rowgroup_ctr = 0; 
main->cur_iMCU_row++ ; 

} 

} 

#endif /* FULL_MAIN_BUFFER_SUPPORTED */ 



/* 
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* Initialize main buffer co: 
*/ 



GLOBAL (void) 

jinit_c_main_contr oiler ( j_compress_ptr cinfo, boolean need_f ull_buf f er) 
{ 

my_main_ptr main; 
int ci; 

jpeg_component_inf o * compptr; 

main = (my_main_ptr) 

(*cinf o->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
SI ZEOF (my_main_ contr oiler) ) ; 
cinfo->main = (struct jpeg_c_main_controller *) main; 
main- >pub. star t_pass = start_pass_main; 

/* We don't need to create a buffer in raw-data mode. */ 
if (cinf o->raw_data_in) 
return; 



/* Create the buffer. It holds downsampled data, so each component 
* may be of a different size. 
*/ 

if (need_full_buffer) { 
#ifdef FULL_MAIN_BUFFER_SUPPORTED 

/* Allocate a full-image virtual array for each component */ 
/* Note we pad the bottom to a multiple of the iMCU height */ 
for (ci = 0, compptr = cinf o->comp_inf o; ci < cinfo->num_components; 
ci++, compptr++) { 

main->whole_image [ci] = ( *cinf o->mem->request_virt_sarray) 
( ( j_common_ptr) cinfo, JPOOL_IMAGE, FALSE, 
P * compptr->width_in_blocks * DCTSIZE, 

(JDIMENSION) jround_up ( (long) compptr->height_in_blocks, 
dj (long) compptr- >v_samp_f actor) * DCTSIZE, 

(JDIMENSION) ( compptr- >v_samp_f actor * DCTSIZE)); 

relse 

v= ERREXIT (cinfo, JERR_BAD_BUFFER_MODE) ; 
#e&dif 
^4 else { 

#ijdef FULL_MAIN_BUFFER_SUPPORTED 

main->whole_image[0] = NULL; /* flag for no virtual arrays */ 
fehdif 

a /* Allocate a strip buffer for each component */ 

!_.!. for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components ; 
L.! ci++, compptr++) { 

Ll main->buf fer [ci] = ( *cinf o->mem->alloc_s array) 
Ffl ( ( j_common__ptr) cinfo, JPOOL_IMAGE, 
V* compptr->width_in_blocks * DCTSIZE, 
~s (JDIMENSION) (compptr->v_samp_f actor * DCTSIZE)); 

S' 
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/* 

* j cmarker . c 
* 

* Copyright (C) 1991-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains routines to write JPEG datastream markers. 
*/ 

#define JPEG_INTERNALS 
# include " j include .h" 
iinclude "jpeglib.h" 




typedef enum { /* JPEG marker codes */ 



M_SOF0 


= 


OxcO, 


M SOFl 




Oxcl 


MIS0F2 


= 


0xc2, 


M_S0F3 


- 


0xc3, 


M_S0F5 




0xc5, 


M_S0F6 




0xc6, 


M_S0F7 


= 


0xc7, 


M„JPG 


= 


0xc8, 


iri our y 




nvr< q 


M_SOF10 


= 


Oxca, 


M_S0F11 


= 


Oxcb, 


M_S0F13 




Oxcd, 


~M_S0F14 


- 


Oxce, 


=M_S0F15 


= 


Oxcf , 






0xc4, 


Jm_dac 


— 


Oxcc, 


s.l 

.&_RST0 


= 


OxdO, 


^k.RSTl 


= 


Oxdl, 


JM_RST2 


= 


0xd2, 


^M_RST3 


= 


0xd3, 


^ll_RST4 


= 


0xd4, 


~ M„RST5 


= 


0xd5, 


e ^„RST6 


= 


0xd6, 


£X_RST7 


= 


0xd7, 


rfMJSOI 


= 


0xd8, 


; %_EOI 


= 


0xd9, 


~~--M_sos 


= 


Oxda, 




= 


Oxdb, 


^?M_DNL 


= 


Oxdc, 


— n Lfi\x 






M DHP 


— 


Oxde, 


M_EXP 


= 


Oxdf , 








M_APP1 


= 


Oxel, 








M_APP3 


= 


0xe3, 


M_APP4 




0xe4, 


M_APP5 




0xe5, 


M_APP6 




0xe6, 


M_APP7 




0xe7, 


M_APP8 




0xe8, 


M_APP9 




0xe9, 


M„APP10 




Oxea, 


M_APP11 




Oxeb, 


M_ APP12 




Oxec, 


M^APP13 




Oxed, 


M_APP14 




Oxee, 


M_APP15 




Oxef , 


M_JPG0 




OxfO, 


M_JPG13 




Oxfd, 


M_COM 




Oxf e, 


M„TEM 




0x01, 


M_ERROR 




0x100 
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} JPEG_tfARKER; 



/* Private state */ 

typedef struct { 

struct jpeg_marker_writer pub; /* public fields */ 

unsigned int last_restart_interval ; /* last DRI value emitted; 0 after SOI */ 
} my_marker_writer; 

typedef my_marker_writer * my_jnarker_ptr ; 



/* 

* Basic output routines . 
* 

* Note that we do not support suspension while writing a marker. 

* Therefore, an application using suspension must ensure that there is 

* enough buffer space for the initial markers (typ. 600-700 bytes) before 

* calling jpeg_ start_compress, and enough space to write the trailing EOI 

* (a few bytes) before calling jpeg_f inish_compress . Multipass compression 

* modes are not supported at all with suspension, so those two are the only 

* points where markers will be written. 
*/ 

LOCAL (void) 

emit_byte ( j_compress_ptr cinfo, int val) 

/* Emit a byte */ 

{ 

struct jpeg_destination_jngr * dest = cinfo->dest; 

±* (dest->next_output_byte)++ = (JOCTET) val; 
Uif ( — dest->free_in_buf fer ==0) { 
i*\ if (! (*dest->empty_output_buf fer) (cinfo)) 
~ s ERREXIT( cinfo, JERR_CANT_SUSPEND) ; 



IiOpAL(void) 

emit_marker ( j_compress_ptr cinfo, JPEG_MARKER mark) 
Emit a marker code */ 

s^emitjayte (cinfo, OxFF) ; 
[]emit_byte (cinfo, (int) mark); 

o 

nl 

fiCfcAL(void) 

gftit_2bytes ( j„compress_ptr cinfo, int value) 

£f Emit a 2 -byte integer; these are always MSB first in JPEG files */ 

emit_byte (cinfo, (value » 8) & OxFF) ; 
emit_byte{ cinfo, value fie OxFF) ; 

} 



/* 

* Routines to write specific marker types. 
*/ 

LOCAL (int) 

emit_dqt ( j_compress_ptr cinfo, int index) 
/* Emit a DQT marker */ 

/* Returns the precision used (0 = 8bits, 1 = 16bits) for baseline checking */ 
{ 

JQUANT_TBL * qtbl = cinf o->quant_tbl_ptrs [index] ; 
int prec; 
int i; 

if (qtbl == NULL) 

ERREXIT1 (cinfo, JERR_NO_QUANT_TABLE , index); 

prec = 0; 

for (i = 0; i < DCTSIZE2; i++) { 
if (qtbl->quantval [i] > 255) 
prec = 1 ; 

} 
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if (! qtbl->sent_table) { 
emit_marker (cinfo, M_DQT 

emit_2bytes (cinfo, prec ? DCTSIZE2*2 + 1 + 2 : DCTSIZE2 +1+2); 

end t_byte (cinfo, index + (prec«4)); 

for (i = 0; i < DCTSIZE2 ; i++) { 

/* The table entries must be emitted in zigzag order. */ 
unsigned int qval = qtbl->quantval [ jpeg_natural_order [i] J ; 
if (prec) 

emit_byte (cinfo, (int) (qval » 8)); 
emi t_byte( cinfo, (int) (qval & OxFF) ) ; 

} 

qtbl->sent_table = TRUE; 

} 

return prec; 

} 



LOCAL (void) 

emit_dht ( j_compress_ptr cinfo, int index, boolean is_ac) 

/* Emit a DHT marker */ 

{ 

JHUFF_TBL * htbl; 
int length, i; 

if (is_ac) { 

htbl = cinfo->ac_huff_tbl_ptrs [index] ; 
index += 0x10; /* output index has AC bit set */ 

Lj else { 

htbl = cinfo->dc__huf f_tbl_ptrs [index] ; 

3! 

,jif (htbl == NULL) 

r". ERREXITl (cinfo, JERR_NO_HUFF_TABLE , index); 

Jlf (! htbl->sent_table) { 
emi t_mar ker (cinfo, M_DHT ) ; 

fij length = 0; 

1" for (i = 1; i <= 16; i++) 
* length += htbl->bits [i] ; 

Pj emi t_2bytes (cinfo, length + 2 + 1 + 16); 
Z'z emi t„byte (cinf o, index); 

Sj for (i = 1; i <= 16; i++) 

t=l emit^ byte (cinfo, htbl->bits [ i ] ) ; 

Q for (i = 0; i < length; i++) 

emi t_by te ( cinfo , htbl - >huf f val [ i ] ) ; 

htbl->sent_table = TRUE; 

} 

} 



LOCAL (void) 
emit_dac ( j_compress_ptr cinfo) 
/* Emit a DAC marker */ 

/* Since the useful info is so small, we want to emit all the tables in */ 
/* one DAC marker. Therefore this routine does its own scan of the table. */ 
{ 

#ifdef C„ARITH_CODING_SUPPORTED 
char dc_in_use[NUM_ARITH„TBLS] ; 
char ac_in_use[NUM_ARITH_JTBLS] ; 
int length, i; 

jpeg_component_inf o *compptr; 

for (i = 0; i < NUM_ARITH_TBLS ; i++) 
dc_in_use[i] = ac_in_use[i] = 0; 

for (i = 0; i < cinf o->comps_in_scan; i++) { 
compptr = cinf o->cur_comp_info [i] ; 
dc_in_use[compptr->dc_tbl_no] = 1; 
ac_in_use[compptr->ac_tbl_no] = 1; 

} 
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length = 0; 

for (i = 0; i < NUM_ARITH_T*MP; i+ + ) 

length += dc_in_use t i J + ac_in_ use [ i ] ; 

emi tjnarker (cinfo, M_DAC) ; 

emi t_2bytes (cinfo, length*2 + 2); 

for {i = 0; i < NUM_ARITH_TBLS ; i++) { 
if (dc_in_use [i] ) { 
emit_byte (cinf o, i) ; 

emit_byte (cinf o, cinf o->arith_dc_ L [i] + (cinf o->arith_dc_U [i] «4) ) ; 

} 

if (ac_in_use [i] ) { 

emit^byte (cinfo, i + 0x10); 

emi t_byte (cinf o, cinf o->arith_ac_K [i] ) ; 

} 

} 

#endif /* C^ARITH_CODING_SUPPORTED */ 
} 

LOCAL (void) 

emit_dri ( j_compress_ptr cinfo) 

/* Emit a DRI marker */ 

{ 

emi t_marker (cinfo , M_DRI ) ; 

emit_2bytes (cinfo, 4); /* fixed length */ 
^emit_2bytes (cinfo, (int) cinf o->restart_interval ) ; 

lM6AL(void) 

ed3.t„sof ( j_compress_ptr cinfo, JPEG_MARKER code) 
Emit a SOF marker */ 

UjLnt ci; 

,j^jpeg_component_inf o *compptr; 
f^mit_marker( cinfo, code); 

^ : emit_2bytes (cinfo, 3 * cinf o->num_components + 2 + 5 + 1); /* length */ 

CI/* Make sure image isn't bigger than SOF field can handle */ 
fTdf ( (long) cinf o->image_height > 65535L | | 

(long) cinf o->image_width > 65535L) 
Si ERREXIT1 (cinfo, JERR_IMAGE_TOO_BIG, (unsigned int) 65535); 

Jlemit^bytet cinfo, cinf o->data_precision) ; 
WJemit_2bytes (cinfo, (int) cinf o->image_height) ; 
emi t_2 bytes (cinfo, (int) cinf o->image_width) ; 

emi t_byte (cinf o , cinf o->num_components ) ; 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components ; 
ci++, compptr++) { 
emi t_byte (cinf o, compptr->component_id) ; 

emit_byte( cinfo, (compptr->h_samp_f actor « 4) + compptr ->v_jsamp_f actor) 
emi t_byte( cinfo, compptr->quant_tbl_no) ; 

} 

} 

LOCAL (void) 

emit_sos ( j_compress__ptr cinfo) 

/* Emit a SOS marker */ 

{ 

int i, td, ta; 

jpeg_component_inf o *compptr; 
emi t__marker (cinf o, M_SOS) ; 

emi t_2bytes (cinfo, 2 * cinf o->comps_in_scan +2+1+3); /* length */ 

emi t_byte (cinf o, cinf o->comps_in_scan) ; 

for (i = 0; i < cinf o->comps_i n_s can; i++) { 
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corapptr = cinf o->cur_comp^fcf o ( i ] ; 
emit_byte (cinf o, compptr-^^Bponent_id) ; 

td = compptr->dc_tbl_no; 
ta - compptr->ac_tbl_no; 
if (cinfo->progressive_ mode) { 

/* Progressive mode: only DC or only AC tables are used in one scan; 

* furthermore, Huffman coding of DC refinement uses no table at all. 

* We emit 0 for unused field(s) ; this is recommended by the P&M text 

* but does not seem to be specified in the standard. 
*/ 

if (cinfo->Ss == 0) { 
ta = 0; /* DC scan */ 

if (cinfo->Ah ■= 0 && ! cinf o->arith_code) 

td = 0; /* no DC table either */ 

} else { 
td = 0; /* AC scan */ 

} 

} 

emit — byte (cinf o, (td « 4) + ta) ; 




emit_byte (cinfo, cinfo->Ss) ; 
emit_byte (cinf o, cinfo->Se) ; 

emit_byte (cinfo, (cinfo->Ah « 4) + cinfo->Al) ; 



LOCAL (void) 

emit_jf if_app0 ( j_compress_ptr cinfo) 
/* Emit a JFIF- compliant APPO marker */ 
{ 

Length of APPO block (2 bytes) 
4j* Block ID (4 bytes - ASCII "JFIF" ) 

i*\ * Zero byte (1 byte to terminate the ID string) 

* Version Major, Minor (2 bytes - major first) 



Units 

Xdpu 

Ydpu 

Thumbnail 
Thumbnail 



is */ 



(1 byte - 0x00 = none, 0x01 = inch, 0x02 = cm) 
(2 bytes - dots per unit horizontal) 
(2 bytes - dots per unit vertical) 
size (1 byte) 

size (1 byte) 



= emi t_marker ( cinfo , M_ APPO ) ; 

C.emit_2bytes (cinfo, 2+4+1+2+1+2+2+1+1); /* length */ 



n jjend t_ 
I "*emi t_ 
^emi t_ 
r jemi t_ 
P^emi t_ 
^- s emit_ 

emit, 

emit. 

emit. 

emit. 

emit. 

emit 

} 



/* Version fields 



.byte(cinfo, 0x4A) ; /* Identifier: ASCII "JFIF" */ 
.byte (cinfo, 0x46); 
.byte (cinfo, 0x49) ; 
byte(cinfo, 0x46); 
byte (cinfo, 0) ; 

byte (cinfo, cinf o->JFIF_major_vers ion) ; 
.byte (cinfo, cinf o->JFIF_minor_vers ion) ; 
,byte(cinfo, cinf o->density_unit) ; /* Pixel size information */ 
kbytes (cinf o, (int) cinf o->X_density) ; 
.2bytes (cinf o, (int) cinf o->Y_density) ; 
.byte (cinfo, 0); /* No thumbnail image */ 

byte(cinfo, 0); 



LOCAL (void) 

emit_adobe_appl4 ( j_compress_ptr cinfo) 

/* Emit an Adobe APP14 marker */ 

{ 

/* 

* Length of APP14 block (2 bytes) 

* Block ID (5 bytes - ASCII "Adobe") 

* Version Number (2 bytes - currently 100) 

* FlagsO (2 bytes - currently 0) 

* Flagsl (2 bytes - currently 0) 

* Color transform (1 byte) 
* 

* Although Adobe TN 5116 mentions Version = 101, all the Adobe files 

* now in circulation seem to use Version = 100, so that's what we write. 
* 

* We write the color transform byte as 1 if the JPEG color space is 

* YCbCr, 2 if it's YCCK, 0 otherwise. Adobe's definition has to do with 

* whether the encoder performed a transformation, which is pretty useless. 
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emit_marker (cinf o, M_APP14)™ 

emit_2bytes (cinfo, 2+5+2+2+2+1); /* length */ 

end tjbyte (cinf o ( 0x41); /* Identifier: ASCII "Adobe" */ 
emi t_byte( cinfo, 0x64); 
emi t_byte( cinfo, 0x6F) ; 
emi t_byte( cinfo, 0x62); 
emit_byte (cinf o, 0x65); 
emit_2bytes( cinfo, 100) ; 
emi t_2 bytes (cinf o, 0) ; 
end t_2 bytes (cinf o, 0) ; 
switch (cinf o->jpeg_color_space) { 
case JCS_YCbCr: 

emit_ byte (cinf o, 1); /* Color transform = 1 */ 

break; 
case JCS_YCCK: 

end t_byte (cinf o, 2) ; 

break; 
default: 

emit_byte (cinf o, 0); 

break; 

} 



/* Version */ 
/* FlagsO */ 
/* Flagsl */ 



/* Color transform = 2 */ 
/* Color transform = 0 */ 



/* 

* These routines allow writing an arbitrary marker with parameters. 

* The only intended use is to emit COM or APPn markers after calling 
* 5 write_f ile_header and before calling write_frame_header . 
Mother uses are not guaranteed to produce desirable results. 
^Counting the parameter bytes properly is the caller's responsibility. 

hi 

y s 

M#HODDEF (void) 

write _jnarker_header { j_compress_ptr cinfo, int marker, unsigned int datalen) 
/*rEmit an arbitrary marker header */ 

m 

jtf (datalen > (unsigned int) 65533) /* safety check */ 

~t ERREXIT (cinfo, JERR_BAD — LENGTH) ; 

= emi t_marker (cinfo, ( JPEG_MARKER) marker); 

^emit_2bytes (cinfo, (int) (datalen + 2)); /* total length */ 

>P 

tiE^HODDEF (void) 

wr|Lte_marker_byte ( j_compress_ptr cinfo, int val) 

/f*3 Emit one byte of marker parameters following write_marker_header */ 

^=Jemi t_by te (cinfo , val ) ; 
> 



/* 

* Write datastream header. 

* This consists of an SOI and optional APPn markers. 

* We recommend use of the JFIF marker, but not the Adobe marker, 

* when using YCbCr or grayscale data. The JFIF marker should NOT 

* be used for any other JPEG colorspace. The Adobe marker is helpful 

* to distinguish RGB, CMYK, and YCCK colorspaces. 

* Note that an application can write additional header markers after 

* jpeg_start_compress returns. 
*/ 

METHODDEF(void) 

write_f ile_header ( j_compress_ptr cinfo) 
{ 

my_niarker_ptr marker = (my„marker_ptr) cinf o->marker ; 

emi t_marker (cinfo, M_SOI) ; /* first the SOI */ 

/* SOI is defined to reset restart interval to 0 */ 
marker->last_ restart_interval = 0; 

if (cinfo->write_JFIF_header) /* next an optional JFIF APP0 */ 

emit^jf if_app0 (cinfo) ; 
if (cinf o->write_Adobe_marker) /* next an optional Adobe APP14 */ 
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end t_ adobe_ app 1 4 ( c i n f o ) ; 



/* 

* Write frame header. 

* This consists of DQT and SOFn markers. 

* Note that we do not emit the SOF until we have emitted the DQT(s) . 

* This avoids compatibility problems with incorrect implementations that 

* try to error-check the quant table numbers as soon as they see the SOF. 
*/ 

METHODDEF (void) 

write_f rame_header ( j_compress_ptr cinfo) 
{ 

int ci, prec; 
boolean is_baseline; 
jpeg_component_inf o * compptr; 

/* Emit DQT for each quantization table. 

* Note that emit_dqt() suppresses any duplicate tables. 
*/ 

prec = 0; 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components; 
ci++, compptr++) { 
prec += emit_dqt (cinfo, compptr- >quant_tbl_no ) ; 

} 

/* now prec is nonzero iff there are any 16 -bit quant tables. */ 

/* Check for a non-baseline specification. 

* Note we assume that Huffman table numbers won't be changed later. 

«*/ 

*=if (cinf o->arith_ code | | cinf o- >pr ogres si ve_mode | | 
•Jj cinf o->data_precision != 8) { 
~\ is_baseline = FALSE; 
^} else { 

J| is_baseline = TRUE; 

-j for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components; 

ci++, compptr++) { 
y[j if ( compptr ->dc_tbl_no > 1 | | compptr->ac_tbl_no > 1) 
is_baseline = FALSE; 

HI if (prec && is_baseline) { . 

= is_baseline = FALSE; 

l_- /* If it's baseline except for quantizer size, warn the user */ 

5 " a TRACEMS (cinfo, 0, JTRC_16BIT_TABLES) ; 

} 

Emit the proper SOF marker */ 
fjif (cinf o->ari th_c ode) { 

Zl emit_sof (cinf o, t$_SOF9); /* SOF code for arithmetic coding */ 
^- s ) else { 

if (cinfo->progressive_mode) 

emit_sof (cinf o, M_S0F2); 
else if ( is_baseline) 

emit_sof (cinf o, M_SOF0); 
else 

emit_sof (cinf o, M_S0F1) ; /* SOF code for non-baseline Huffman file */ 

) 

} 



/* SOF code for progressive Huffman */ 

/* SOF code for baseline implementation */ 



/* 

* Write scan header. 

* This consists of DHT or DAC markers, optional DRI, and SOS. 

* Compressed data will be written following the SOS. 
*/ 

METHODDEF (void) 

write_scan„header ( j_ compress_ptr cinfo) 
{ 

my__marker_ptr marker = (my_marker _ptr ) cinf o->marker ; 
int i; 

jpeg_component_ inf o * compptr ; 

if (cinfo->arith_code) { 

/* Emit arith conditioning info. We may have some duplication 

* if the file has multiple scans, but it's so small it's hardly 

* worth worrying about. 
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*/ 

emit_ dac (cinf o) ; 
} else { 

/* Emit Huffman tables. 

* Note that emit_dht() suppresses any duplicate tables. 

*/ 

for (i = 0; i < cinf o->comps_in_scan; i++) { 

compptr = cinf o->cur_comp__ info [i] ; 

if (cinfo->progressive_mode) { 
/* Progressive mode: only DC or only AC tables are used in one scan */ 
if (cinfo->Ss == 0) { 

if (cinfo->Ah ==0) /* DC needs no table for refinement scan */ 
emit_dht (cinfo, compptr->dc_tbl_no, FALSE); 
} else { 

emit_ dht (cinfo, compptr->ac_tbl_no, TRUE); 

} 

} else { 

/* Sequential mode: need both DC and AC tables */ 
emit_dht (cinf o, compptr->dc_tbl_no, FALSE); 
emit_dht (cinf o, compptr->ac_tbl_no, TRUE); 
} 

} 

} 

/* Emit DRI if required note that DRI value could change for each scan. 

* We avoid wasting space with unnecessary DRIs, however. 
*/ 

if (cinf o->restart_interval != marker->last_restart_interval) { 
emit_ dri (cinfo) ; 

marker->last„restart_interval = cinfo->restart_interval; 

} 

^=emit„sos (cinf o) ; 

MS 



'-*~z Write datastream trailer. 

METHODDEF (void) 
write_f ile_trailer ( j_compress_ptr cinfo) 

|U 

s emi t_marker (cinfo , M_E0I ) ; 

Write an abbreviated table-specification datastream. 
'H This consists of SOI, DQT and DHT tables, and EOI . 

f* Any table that is defined and not marked sent„table = TRUE will be 

zl emitted. Note that all tables will be marked sent_table = TRUE at exit. 

U/ 

METHODDEF (void) 

write_tables_only ( j_compress_ptr cinfo) 
{ 

int i; 

emit^ marker (cinfo, M_S0I) ; 

for (i = 0; i < NU^_QUANT_TBLS ; i++) { 
if (cinfo->quant_tbl_ptrs[i] != NULL) 
(void) emit_dqt (cinf o, i) ; 

} 

if (! cinf o->arith_ code) { 

for (i = 0; i < NUM_HUFF_TBLS ; i++) { 

if (cinfo->dc_huff_tbl_ptrs[i] != NULL) 
emi t_dht (cinfo, i, FALSE); 

if <cinfo->ac_huff_tbl_ptrs[i] != NULL) 
emi t_dht (cinfo, i, TRUE) ; 
} 

} 

emi t_mar ke r ( c in f o , M_EO I ) ; 

} 



/* 
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* Initialize the marker writj^module . 



GLOBAL (void) 

jinit_marker_writer ( j„compress_ptr cinfo) 
{ 

my__marker_ptr marker; 

/* Create the subobject */ 
marker = (my_marker_ptr) 

(*cinfo->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE 
SIZEOF(my_marker_writer) ) ; 
cinfo->marker = (struct jpeg_marker_writer *) marker; 
/* Initialize method pointers */ 

marker->pub.write_f ile_header = write_f ile_header; 
marker->pub.write._frame_header = write_f rame_header; 
marker ->pub . wri te_scan_header = wri te_scan_header ; 
marker - >pub. wr i t e_f ile_t rail er = write_f ile_trailer; 
marker->pub.write_tables_only = write_tables_only; 
marker- >pub . wri te_marker_header = wri te_marker_header ; 
marker->pub.write_marker_byte = write_marker_byte; 
/* Initialize private state */ 
marker- > las t_res tar t_interval = 0; 



/* 

* jcmaster.c 
* 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains master control logic for the JPEG compressor. 

* These routines are concerned with parameter validation, initial setup, 

* and inter-pass control (determining the number of passes and the work 

* to be done in each pass) . 
*/ 

#define JPEG_INTERNALS 
# include " j include .h" 
# include "jpeglib.h" 



/* Private state */ 
typedef enum { 

main_pass, /* input data, also do first output step */ 

huf f_opt_pass , /* Huffman code optimization pass */ 

output_pass /* data output pass */ 

} c_pass_type; 

typedef struct { 

struct jpeg_comp_master pub; /* public fields */ 

c_pass_type pass_type; /* the type of the current pass */ 

_int pass^ number; /* # of passes completed */ 

^int total_passes; /* total # of passes needed */ 

Jlnt scan_number; /* current index in scan_info[] */ 

}^my_c omp_mas t e r ; 

typedef my„comp_master * my„master_ptr ; 



AH 

5; Support routines that do various essential calculations. 
LOCAL (void) 

l!fitial_setup ( j_compress_j?tr cinfo) 

£*l Do computations that are needed before master selection phase */ 
fai 

;-^Lnt ci; 

^jDpeg_component_inf o *compptr; 
r^Long samplesperrow; 
jfJDIMENSION j d_s ample sper row; 

/* Sanity check on image dimensions */ 

if (cinf o->image_height <= 0 | | cinfo- >image_width <= 0 

| | cinfo->num_components <= 0 | | cinf o->input_components <= 0) 
ERREXIT( cinfo, JERR_EMPTY_IMAGE) ; 

/* Make sure image isn't bigger than I can handle */ 
if ((long) cinfo->image_height > (long) JPEG_MAX_DIMENSION || 
(long) cinfo->image_width > (long) JPEG_MAX_DIMENSION) 
ERREXIT1 (cinfo, JERR_IMAGE_TOO_BIG, (unsigned int) JPEG_MAX_DIMENSION) ; 

/* Width of an input scanline must be representable as JDIMENSION. */ 
samplesperrow = (long) cinf o->image_width * (long) cinf o->input_components 
jd_samplesperrow = (JDIMENSION) samplesperrow; 
if ((long) jd_samplesperrow ■ = samplesperrow) 
ERREXIT ( cinfo , JERR^_WI DTH_0 VERFLOW ) ; 

/* For now, precision must match compiled-in value... */ 
if (cinfo->data_precision != BITS_IN_JSAMPLE) 

ERREXIT1 (cinfo, JERR_BAD_PRECISION, cinf o->data_precision) ; 

/* Check that number of components won't exceed internal array sizes */ 
if (cinfo->num_components > MAX__COMPONENTS) 

ERREXIT2 (cinfo, JERR_COMPONENT_COUNT, cinf o->num_components , 
MAX_C0MP0NENTS) ; 

/* Compute maximum sampling factors; check factor validity */ 
cinfo->max_h_samp_f actor = 1; 
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cinf o->max_v_samp_f actor = 

for (ci = 0, compptr = cin*^^^omp_inf o; ci < cinf o->num_compon 
ci++, compptr++) { 

if (compptr->n_samp_factor<=0 | | c ompp t r - > h_samp_f ac t or >MAX_S AMP_FACTOR | | 
compptr->v_samp_f actor<=0 | | compptr- >v_samp_f actor >MAX_SAMP_F ACTOR) 

ERREXIT ( cinf O , JERR_BAD_SAMPLING) ; 
cinf o->max_h_jsamp_f actor = MAX (cinf o->max_h_samp_ factor , 

compptr->h_samp_f actor) ; 
cinf o->max_v_samp_f actor = MAX (cinf o->max_v_samp_f actor , 

compptr->v_samp_f actor) ; 

} 

/* Compute dimensions of components */ 

for (ci = 0, compptr = cinf o->comp_ info; ci < cinf o->num_components ; 
ci++, compptr++) { 

/* Fill in the correct component_index value; don't rely on application */ 
compptr- >component_index = ci; 

/* For compression, we never do DCT scaling. */ 

compptr->DCT_scaled_size = DCTSIZE; 

/* Size in DCT blocks */ 

compptr- >width_in_blocks = (JDIMENSION) 

jdiv_round_up ( (long) cinf o->image__width * (long) compptr->h_samp_f actor , 
(long) (cinf o->max_h_samp_f actor * DCTSIZE)); 
compptr->height_in_blocks = (JDIMENSION) 

jdiv_round_up( (long) cinf o->image_height * (long) compptr- > v_samp_f actor , 
(long) (cinf o->max_v_samp_f actor * DCTSIZE)); 
/* Size in samples */ 

compptr->downsampled__ width = (JDIMENSION) 

jdiv_round_up ( (long) cinf o->image_width * (long) compptr ->h_samp_f actor, 
(long) cinf o->max_h_samp_f actor) ; 
compptr->downsampled_height = (JDIMENSION) 

jdiv_rouncL_up( (long) cinf o->image_Jieight * (long) c ompp tr->v_samp_f actor, 
LJ (long) c info- >max_v_samp_fac tor ) ; 

>j% /* Mark component needed (this flag isn't actually used for compression) */ 

~: compptr->component_needed = TRUE; 

«} 

%TV* Compute number of fully interleaved MCU rows (number of times that 
"= * main controller will call coefficient controller) . 
*/ 

,?i:info->total_iMCU_rows = (JDIMENSION) 

jS; j di v_r ound_up ( (long) cinf o->image_height, 

Hi (long) (cinf o->max_v_samp_f act or* DCTSIZE) ) ; 

\ 



frfdef C_MULTISCAN_FILES_SUPPORTED 
ibfcAL(void) 

v^lidate_script ( j_compress_ptr cinfo) 

^4 Verify that the scan script in cinf o->scan_inf o [ ] is valid; also 

determine whether it uses progressive JPEG, and set cinf o->progressive_mode . 

01/ 

const jpeg_scan_info * scanptr; 

int scanno, ncomps, ci, coefi, thisi; 

int Ss, Se, Ah, Al ; 

boolean component_sent [MAX_COMPONENTS ] ; 
#ifdef C_PROGRESSIVE_SUPPORTED 
int * last_bitpos_ptr ; 

int last_bitpos[MAX_COMPONENTS] [DCTSIZE2]; 

/* -1 until that coefficient has been seen; then last Al for it */ 
#endif 

if (cinf o->num_scans <= 0) 

ERREXITK cinfo, JERR„BAD_SCAN_SCRIPT, 0) ; 

/* For sequential JPEG, all scans must have Ss=0, Se=DCTSIZE2-l; 
* for progressive JPEG, no scan can have this. 
*/ 

scanptr = cinfo->scan_inf o; 

if (scanptr->Ss != 0 | | scanptr->Se != DCTSIZE2-1) { 
#ifdef C_PROGRESSIVE_SUPPORTED 

cinf o->pr ogres si ve_mode = TRUE; 

last_bitpos_ptr = & last_bitpos [0] [0] ; 

for (ci = 0; ci < cinf o->num_components ; ci++) 

for (coefi = 0; coefi < DCTSIZE2 ; coefi++) 
*last_bitpos_ptr++ = -1; 
#else 

ERREXIT (cinfo, JERR_NOT_COMPILED) ; 
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iendif 
} else { 

cinfo- >progressive_mode =^RlSE; 
for (ci = 0; ci < cinf o->num_components; ci++) 
components en t [ ci ] = FALSE ; 

} 



for (scanno = 1; scanno <= cinfo->num_scans; scanptr++, scanno++) { 
/* Validate component indexes */ 
ncomps = scanptr->comps_in_scan; 
if (ncomps <= 0 | | ncomps > MAX_COMPS_IN_SCAN ) 

ERREXIT2 (cinfo, JERR_C0MP0NENT_C0UNT , ncomps, MAX_COMPS_IN_SCAN) ; 
for (ci = 0; ci < ncomps; ci++) { 

thisi = scanptr->component_index[ci] ; 

if (thisi < 0 | | thisi >= cinf o->num_components) 
ERREXIT1 (cinfo, JERR_BAD_SCAN_SCRIPT, scanno); 

/* Components must appear in SOF order within each scan */ 

if (ci > 0 && thisi <= scanptr->component_index[ci-l] ) 
ERREXIT1 (cinfo , JERR_BAD_SCAN_SCRIPT , scanno) ; 
} 

/* Validate progression parameters */ 
Ss = scanptr->Ss; 
Se = scanptr->Se; 
Ah = scanptr->Ah; 
Al = scanptr->Al; 
if (cinfo->progressive_mode) { 
#ifdef C_PROGRESSIVE_SUPPORTED 

/* The JPEG spec simply gives the ranges 0..13 for Ah and Al, but that 

* seems wrong: the upper bound ought to depend on data precision. 

* Perhaps they really meant 0..N+1 for N-bit precision. 

* Here we allow 0..10 for 8-bit data; Al larger than 10 results in 
^ * out-of-range reconstructed DC values during the first DC scan, 
^ * which might cause problems for some decoders. 

J] */ 
#££ BITS_IN_JSAMPLE == 8 
#H_efine MAX_AH_AL 10 

$ft§]Lse 

tdefine MAX_AH_AL 13 
tendif 

%I if (Ss < 0 || Ss >= DCTSIZE2 | | Se < Ss | | Se >= DCTSIZE2 | | 
,fj Ah < 0 | | Ah > MAX_AH_AL | | Al < 0 | | Al > MAX_AH_AL) 
«" g ERREXIT1 (cinfo, JERR_BAD_PROG_SCRIPT, scanno); 

if (Ss == 0) { 
if (Se != 0) /* DC and AC together not OK */ 

i h ERREXIT1 (cinfo, JERR_BAD_PROG_SCRIPT, scanno); 

} else { 

L] if (ncomps != 1) /* AC scans must be for only one component */ 
ry ERREXIT1 (cinfo, JERR_BAD_PROG_SCRIPT, scanno); 

""J for (ci = 0; ci < ncomps; ci++) { 

r% last_bitpos_ptr = & last_bitpos [scanptr->component„index [ci] ] [0] ; 

if (Ss != 0 && last_bitpos_ptr [0] < 0) /* AC without prior DC scan */ 
W ERREXITK cinfo, JERR_BAD_PROG_SCRIPT, scanno); 
for (coefi = Ss; coefi <= Se; coefi++) { 
if (last_bitpos_ptr [coefi] < 0) { 

/* first scan of this coefficient */ 
if (Ah != 0) 

ERREXIT1 (cinfo, JERR_BAD_PROG_SCRIPT, scanno) ; 
} else { 

/* not first scan */ 

if (Ah != last_bitpos_ptr [coefi] || Al != Ah-1) 
ERREXIT1 (cinfo, JERR_BAD_PROG_SCRIPT, scanno); 

} 

last_bitpos_ptr [coefi] = Al; 

} 

} 

#endif 

} else { 

/* For sequential JPEG, all progression parameters must be these: */ 

if (Ss != 0 || Se != DCTSIZE2-1 | | Ah ! = 0 | | Al ! = 0 ) 
ERREXIT1 (cinfo, JERR_BAD_PROG_SCRIPT, scanno) ; 

/* Make sure components are not sent twice */ 

for (ci =0; ci < ncomps; ci++) { 
thisi = scanptr->component_index [ci] ; 
if ( component_s en t [thisi] ) 

ERREXIT1 (cinfo, JERR_BAD_SCAN_SCRIPT, scanno); 
comp onent_s en t [thisi] = TRUE; 

} 

} 

} 
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/* Now verify that every thj 
if (cinf o->pr ogres si ve_ model 
iifdef C_PROGRESSIVE_SUPPORTED 

/* For progressive mode, we only check that at least some DC data 

* got sent for each component; the spec does not require that all bits 

* of all coefficients be transmitted. Would it be wiser to enforce 

* transmission of all coefficient bits?? 
*/ 

for (ci = 0; ci < cinf o->num„components ; ci++) { 

if (last_bitpos[ci] [0] < 0) 
ERREXIT (cinfo , JERR_MISSING_DATA) ; 
} 

#endif 
} else { 

for (ci = 0; ci < cinf o->num_components ; ci++) { 

if {! component^ sent [ci] ) 
ERREXIT ( cinf o, JERR_MISSING_DATA) ; 
} 

} 

} 

#endif /* C_MULTISCAN_FILES_SUPPORTED */ 



LOCAL (void) 



select_scan_parameters ( j_compress_ptr cinfo) 

/* Set up the scan parameters for the current scan */ 

{ 



int ci; 

#4|def C_J1ULTISCAN_FILES_SUPP0RTED 
^df (cinf o->scan_ info ! = NULL) { 

'dl /* Prepare for current scan the script is already validated */ 

ff\ my_master_ptr master = (my_master__ptr) cinf o->master ; 

~L = const jpeg_scan_inf o * scanptr = cinf o->scan_inf o + master->scan_number ; 

S.l cinf o->comps_in_scan = scanptr->comps_in_scan; 
.! for (ci = 0; ci < scanptr->comps_in_scan; ci++) { 

cinfo->cur_comp_info[ci] = 
Jl fccinf o->comp_inf o [scanptr->component_index[ci] ] ; 

^! > 

cinfo->Ss = scanptr->Ss; 
» cinfo->Se = scanptr->Se; 
L.^ cinfo- >Ah = scanptr->Ah; 
^1 cinfo->Al = scanptr->Al; 

U> 

pfelse 
#£hdif 

"~-k 

f=j /* Prepare for single sequential -JPEG scan containing all components */ 
SI if (cinf o->num_ components > MAX_COMPS_IN_SCAN ) 

^ ERREXIT2 (cinfo, JERR_COMPONENT_COUNT , cinf o->num„components , 
MAX_COMPS_IN_SCAN) ; 
cinf o->comps_in_s can = cinf o->num_components ; 
for (ci = 0; ci < cinf o->num_components ; ci++) { 
cinfo->cur_comp_info [ci] = &cinf o->comp_inf o [ci] ; 

} 

cinfo->Ss = 0; 
cinfo->Se = DCTSIZE2-1; 
cinfo- >Ah = 0; 
cinfo->Al = 0; 



LOCAL (void) 

per_scan_setup ( j_compress_ptr cinfo) 

/* Do computations that are needed before processing a JPEG scan */ 
/* cinfo- >comps_in_s can and cinf o->cur_comp_inf o [ ] are already set */ 
{ 

int ci, mcublks, tmp; 
jpeg_component_ inf o *compptr; 

if (cinf o->comps_in_scan ==1) { 

/* Noninter leaved (single-component) scan */ 
compptr = cinf o->cur_ comp_inf o [0] ; 

/* Overall image size in MCUs */ 
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cinf o->MCUs_per_row = comj^^f->width_in_blocks; 

c in f o - >MCU_ rows_i n_s can 



Dira^te:->width_in_blocks ; 
^^Hipptr->height_in_blocks ; 



/* For noninter leaved scan, always one block per MCU */ 

compptr->MCU_width = 1; 

compp tr->MCU — height = 1; 

compptr->MCU_bloc)cs = 1; 

compptr- >MCU_sample_width = DCTSIZE; 

compptr->last_col_width = 1; 

/* For noninter leaved scans, it is convenient to define last_row_height 
* as the number of block rows present in the last iMCU row. 
*/ 

trap = (int) ( compp tr->height_in_blocks % corapptr->v_samp_f actor) ; 
if (tmp == 0) tmp = compp tr->v_samp_f actor; 
compptr->last_row_height = tmp; 

/* Prepare array describing MCU composition */ 
cinf o->blocks_in_J!CU - 1; 
cinf o->MCU_jnember ship [0] = 0; 

} else { 

/* Interleaved (multi -component) scan */ 

if (cinfo->comps_ in„scan <= 0 | | cinf o->comps_in_s can > MAX_COMPS_IN_SCAN ) 
ERREXIT2 (cinf o, JERR — COMPONENT_COUNT , cinf o->comps_in_scan, 
MAX_COMPS_IN_SCAN) ; 

/* Overall image size in MCUs */ 
cinfo->MCUs_per_row = (JDIMENSION) 

jdiv_round_up( (long) cinf o->image_width, 

(long) ( cinf o->max_h_samp_fac tor *DCTSI ZE ) ) ; 
„ cinfo->MCU_rows_in_scan = (JDIMENSION) 
CJ jdiv_round_up( (long) cinf o->image_height, 
Jj (long) (cinfo->max_v_samp_f act or* DCTSIZE) ) ; 

^ H cinf o->blocks__in_J!CU = 0; 

C~5 for (ci = 0; ci < cinf o->comps_in_scan; ci++) { 

compptr = cinf o->cur_comp_ info [ci] ; 
yj /* Sampling factors give # of blocks of component in each MCU */ 

compp tr->MCU_width = compptr ->h_samp_f actor ; 
2; compptr->MCU_ height = compptr->v_samp_f actor; 

Hi compptr->MCU_blocks = compptr- >MCU_width * compptr- >MCU_height ; 

compptr- >MCU_sample_width = compptr~>MCU_width * DCTSIZE; 
^ 3 /* Figure number of non-dummy blocks in last MCU column & row */ 
^ 3 tmp = (int) ( compp tr->width_in_blocks % compptr- >MCU_width ) ; 
Q if (tmp == 0) tmp = compptr- >MCU_width; 
S's compptr- >last_col_width = tmp; 

tmp = (int) (compptr->height_in_blocks % compptr- >MCU_height ) ; 

if (tmp == 0) tmp = compp tr->MCU_height; 
f^-~ compptr->last_row„height = tmp; 
=f /* Prepare array describing MCU composition */ 

mcublks = compptr ->MCU_blocks; 

if (cinfo->blocks_in_MCU + mcublks > C_MAX_BLOCKS_IN_MCU) 
ERREXIT ( cinf o , JERR_BAD_MCU_SIZE) ; 

while (mcublks-- > 0) { 
cinf o->MCU_membership [cinf o->blocks_in_MCU++] = ci; 

} 

} 

} 

/* Convert restart specified in rows to actual MCU count. */ 

/* Note that count must fit in 16 bits, so we provide limiting. */ 

if ( cinf o->res tar t_in_rows > 0) { 

long nominal = (long) cinf o->res tar t_in_rows * (long) cinf o->MCUs_per_row; 

cinfo->restart_interval = (unsigned int) MIN(nominal, 65535L) ; 

} 



/* 

* Per-pass setup. 

* This is called at the beginning of each pass. We determine which modules 

* will be active during this pass and give them appropriate start_pass calls. 

* We also set is_last_pass to indicate whether any more passes will be 

* required. 
*/ 

METHODDEF (void) 
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prepar e_f or__pas s ( j _compr es s -J^k c in f o ) 

my_master_ptr master = (my_JWter_ptr) cinf o->master ; 

switch (master->pass_type) { 
case main_pass : 

/* Initial pass: will collect input data, and do either Huffman 
* optimization or data output for the first scan. 
*/ 

select_scan_parameters (cinfo) ; 

per_scan_s e tup (cinf o) ; 

if (! cinf o->raw_data_in) { 

(*cinfo->cconvert->start_pass) (cinfo) ; 

(*cinfo->downsample->start_pass) (cinfo) ; 

(*cinfo->prep->start_pass) (cinfo, JBUF_PASS_THRU) ; 

) 

(*cinfo->fdct->start_pass) (cinfo) ; 

(*cinfo->entropy->start_pass) (cinfo, cinf o->optimize_ coding) ; 
( *cinfo->coef->start_pass) (cinfo, 

(master->total_passes > 1 ? 
JBUF_SAVE_AND_PASS : JBUF_PASS_THRU) ) ; 
(*cinfo->main->start_pass) (cinfo, JBUF_PASS_THRU) ; 
if (cinf o->optimize_coding) { 

/* No immediate data output; postpone writing frame /scan headers */ 
master->pub.call_pass_startup = FALSE; 
} else { 

/* Will write frame/scan headers at first jpeg_write_scanlines call */ 
master->pub. call_pass__startup - TRUE; 

} 

break; 

#ifdef ENTROPY_OPT_SUPPORTED 

case huf f_opt_pass : 
O /* Do Huffman optimization for a scan after the first one. */ 
.« select_scan_parameters (cinfo) ; 
z; per_scan_se tup (cinf o) ; 

yl if (cinfo->Ss != 0 | | cinfo->Ah == 0 | | cinf o->arith_code) { 
r= (*cinfo->entropy->start_pass) (cinfo, TRUE) ; 

<*cinfo->coef->start_pass) (cinfo, JBUF_CRANK_DEST) ; 
"*J master->pub.call_pass — startup = FALSE; 
■J'i break; 
> 

/* Special case: Huffman DC refinement scans need no Huffman table 
pi * and therefore we can skip the optimization pass for them. 

1"" */ 

7 master->pass_type = output_pass; 
H master->pass_number++; 
r== / *FALLTHROUGH* / 
fendif 

incase output__pass: 

SJ /* Do a data-output pass. */ 

^ /* We need not repeat per-scan setup if prior optimization pass did it. */ 
^ if ( ! cinf o->optimize_coding) { 
fjj select„scan_parameters (cinf o) ; 
per_scan_setup (cinfo) ; 

} 

(*cinf o->entropy->start_pass) (cinfo, FALSE) ; 
(*cinfo->coef->start_pass) (cinfo, JBUF_CRANK_DEST) ; 
/* We emit frame /scan headers now */ 
if ( mas ter->scan — number == 0) 

(*cinf o->marker->write_f rame_header) (cinfo) ; 
(*cinf o->marker->write_scan_header) (cinfo) ; 
master->pub.call_pass_startup = FALSE; 
break; 
default : 

ERREXIT (cinfo , JERR_NOT_COMPILED) ; 

} 

master->pub. is_last_pass = (master->pass_number == master->total_passes-l) ; 

/* Set up progress monitor's pass info if present */ 
if (cinf o->progress != NULL) { 

cinfo->progress->completed_passes = master->pass_number ; 

cinf o->progress->total_passes = master->total„passes; 

} 




/* 

* Special start-of-pass hook. 

* This is called by jpeg_write_scanlines if call_pass_startup is TRUE. 
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* In single-pass processing need this hook because we don't w^^^to 

* write frame/scan headers c^Bg jpeg_start_compress ; we want t<^^B the 

* application write COM markwBr etc. between jpeg_start_compress aMr the 

* jpeg_write_scanlines loop. 

* In multi-pass processing, this routine is not used. 
*/ 

METHODDEF(void) 

pas s_s tar tup ( j_compress_ptr cinfo) 
{ 

cinf o->master->call_pass_ startup = FALSE; /* reset flag so call only once */ 

{* cinfo ->marker->write_frame_header) (cinfo) ; 
( *cinf o->marker->write_scan_header) (cinfo) ; 

} 



/* 

* Finish up at end of pass . 
*/ 

METHODDEF (void) 

f inish_pass_master ( j_compress_ptr cinfo) 
{ 

my_master_ptr master = (my_master_ptr) cinf o->master ; 

/* The entropy coder always needs an end-of-pass call, 
* either to analyze statistics or to flush its output buffer. 
*/ 

(*cinfo->entropy->f inish_pass) (cinfo) ; 

/* Update state for next pass */ 
witch (master->pass_type) { 
,?case main_j?ass: 

/* next pass is either output of scan 0 (after optimization) 
y] * or output of scan 1 (if no optimization) . 
~~ * / 

[~ master->pass_type = output_j?ass; 
~~H if ( ! cinfo->optimize_coding) 
-J] master->scan_number++; 
~:! break; 

^iase huf f_opt_pass : 

nj /* next pass is always output of current scan */ 

master->pass_type = output_pass; 
5 break; 

Please output_pass : 

p% /* next pass is either optimization or output of next scan */ 

J* if (cinfo->optimize_coding) 

Hj mas ter->pass_ type = huf f_opt_pass; 

\\ master->scan„number++; 

~ break; 

jJ) 

~ master- >pass_number++ ; 
} 



/* 

* Initialize master compression control. 
*/ 

GLOBAL (void) 

jinit_c_master_control ( j_compress_ptr cinfo, boolean transcode_only) 
{ 

my_master_j?tr master; 

master = (my_jnaster_ptr) 

(*cinfo->mem->alloc_small) ( { j_common_ptr) cinfo, JPOOL_IMAGE, 
SIZEOF (my_comp_master) ) ; 
cinfo->master = (struct jpeg_comp_master *) master; 
master->pub.prepare_f or_pass = prepare^ f or_pass; 
master->pub.pass_startup = pass_startup; 
master->pub. f inish_j?ass = f inish_pass_master ; 
master->pub. is_last_ pass = FALSE; 

/* Validate parameters, determine derived values */ 
initial_setup (cinfo) ; 

if (cinf o->scan_ info != NULL) { 
#ifdef C_MULTISCAN_FILES_SUPPORTED 
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LED) ; 



validate_script (cinf o) ; 
#else 

ERREXIT {cinf o, JERR_NOTJ 
iendif 
} else { 

cinf o - >pr ogres si ve_mode = FALSE; 
cinf o->num__s cans = 1; 

} 

if (cinfo->progressive_jnode) /* TEMPORARY HACK ??? */ 

cinf o->opt imiz encoding = TRUE; /* assume default tables no good for progressive mode 

/* Initialize my private state */ 
if (transcode_only) { 

/* no main pass in transcoding */ 

if <cinf o->optimize_coding) 

master->pass_type = huf f_ opt_ pass; 

else 

master->pass_type - output_pass; 
} else { 

/* for normal compression, first pass is always this type: */ 
mas ter->pass_ type = main_pass; 

} 

master->scan_number = 0; 
master->pass_number = 0; 
if (cinf o->optimize_coding) 

master->total_passes = cinf o->num_scans * 2; 
else 

master->total_passes = cinf o->num_scans ; 

> 
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/* 

* jcomapi.c 
* 

* Copyright (C) 1994-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains application interface routines that are used for both 

* compression and decompression. 
*/ 

#define JPEG_INTERNALS 
# include ■ j include. h" 
tinclude "jpeglib.h" 



/* 

* Abort processing of a JPEG compression or decompression operation, 

* but don't destroy the object itself. 

* ■ 

* For this, we merely clean up all the nonpermanent memory pools. 

* Note that temp files (virtual arrays) are not allowed to belong to 

* the permanent pool, so we will be able to close all temp files here. 

* Closing a data source or destination, if necessary, is the application's 

* responsibility. 
*/ 

GLOBAL (void) 

jpeg_abort ( j_common_j?tr cinfo) 
{ 

int pool; 

Lj'* Do nothing if called on a not-initialized or destroyed JPEG object. */ 
JJf (cinfo->mem NULL) 
return ; 

Releasing pools in reverse order might help avoid fragmentation 
* with some (brain-damaged) malloc libraries. 
1 */ 

yjEor (pool = JP00L_NUMP00LS-1; pool > JPO0L_PERMANENT ; pool — ) { 
if'd (*cinf o->mem->f ree_pool) (cinfo, pool) ; 

s /* Reset overall state for possible reuse of object */ 

r .if (cinf o->is_decompressor) { 

^ cinfo->global_state = DSTATE_START ; 

p /* Try to keep application from accessing now-deleted marker list. 
F="i * A bit kludgy to do it here, but this is the most central place. 

SU */ 

~"l ( ( j_decompress_ptr ) cinf o) ->marker_list = NULL; 
fi} else { 

™f cinfo->global__state = C STATE_START ; 

r 



/* 

* Destruction of a JPEG object. 

* Everything gets deallocated except the master jpeg_compress_struct itself 

* and the error manager struct. Both of these are supplied by the application 

* and must be freed, if necessary, by the application. (Often they are on 

* the stack and so don't need to be freed anyway.) 

* Closing a data source or destination, if necessary, is the application's 

* responsibility. 
*/ 

GLOBAL (void) 

jpeg_destroy ( j_common_ptr cinfo) 
{ 

/* We need only tell the memory manager to release everything. */ 
/* NB: mem pointer is NULL if memory mgr failed to initialize. */ 
if (cinfo->mem != NULL) 

(*cinf o->mem->self_destruct) (cinfo) ; 
cinfo->mem = NULL; /* be safe if jpeg_destroy is called twice */ 

cinfo->global_state =0; /* mark it destroyed */ 

} 



/* 
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* Convenience routines for < 

* (Would jutils.c be a more 
*/ 




:ating quantization and Huffman t< 
lonable place to put these?) 




GLOBAL { JQUANT_TBL *) 

jpeg_alloc_quant_table ( j_common_ptr cinfo) 
{ 

JQUANTJTBL *tbl; 

tbl = (JQUANT_TBL *) 

(*cinfo->mem->alloc_small) (cinfo, JPOOL_PERMANENT , SIZEOF (JQUANT_TBL> ) ; 
tbl -> s en t_ table = FALSE; /* make sure this is false in any new table */ 
return tbl; 



GLOBAL ( JHUFFJTBL *) 

jpeg_alloc^ huff „t able ( j_common_ptr cinfo) 
{ 

JHUFFJTBL *tbl; 

tbl = (JHUFFJTBL *) 

(*cinfo->mem->alloc_small) (cinfo, JPOOL_PERMANENT , SIZEOF (JHUFF_TBL) ) ; 
tbl -> sen t_t able = FALSE; /* make sure this is false in any new table */ 
return tbl; 



} 



} 
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/* 

* jcparam.c 
* 

* Copyright (C) 1991-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains optional default-setting code for the JPEG compressor. 

* Applications do not have to use this file, but those that don't use it 

* must know a lot more about the innards of the JPEG code. 
*/ 

#define JPEG_INTERNALS 
# include ■ j include .h" 
#include "jpeglib.h" 



/* 

* Quantization table setup routines 
*/ 

GLOBAL (void) 

jpeg_add_quant_ table ( j_compress_ptr cinfo, int which_tbl, 

const unsigned int *basic_table, 

int scale. factor, boolean f orce_baseline) 
/* Define a quantization table equal to the basic_table times 

* a scale factor (given as a percentage) . 

* If force_baseline is TRUE, the computed quantization table entries 

* are limited to 1..255 for JPEG baseline compatibility. 
*/ 

{ 

JQUANT_TBL ** qtblptr; 
fint i; 
^long temp; 

»J 

QY* Safety check to ensure start_compress not called yet. */ 

"If (cinfo->global_state != CSTATE_START) 

^ ERREXIT1 (cinfo, JERR_BAD — STATE , cinf o->global_state) ; 

4-f (which_tbl < 0 | | which_tbl >= NUM_QUANT_TBLS ) 
ERREXIT1 (cinfo, JERR_DQT_INDEX , which_tbl) ; 

^gtblptr = & cinf o->quant_tbl_ptrs [which_tbl] ; 

= if (*qtblptr == NULL) 

Ll *qtblptr = jpeg_alloc_quant_table ( (j_common_ptr) cinfo); 
Qor (i = 0; i < DCTSIZE2; { 

n| temp = ((long) basic_table[i] * scale_factor + SOL) / 100L; 
V\ /* limit the values to the valid range */ 
J'f if (temp <= 0L) temp = 1L; 

EJ if (temp > 32767L) temp = 32767L; /* max quantizer needed for 12 bits */ 

if (f orce_baseline && temp > 255L) 
53 - temp = 255L; /* limit to baseline range if requested */ 

(*qtblptr)->quantval[i] = (UINT16) temp; 

} 

/* Initialize sent_table FALSE so table will be written to JPEG file. */ 
(*qtblptr) ->sent_table = FALSE; 

} 



GLOBAL (void) 

jpeg_ set_linear_quality ( j_corapress_ptr cinfo, int scale_f actor, 

boolean f orce_baseline) 
/* Set or change the 'quality' (quantization) setting, using default tables 

* and a straight percentage-scaling quality scale. In most cases it's better 

* to use jpeg_set_quality (below) ; this entry point is provided for 

* applications that insist on a linear percentage scaling. 
V 

{ 

/* These are the sample quantization tables given in JPEG spec section K.l. 

* The spec says that the values given produce "good" quality, and 

* when divided by 2, "very good" quality. 
*/ 

static const unsigned int std_luminance_quant_tbl [DCTSIZE2 ] = { 



16, 


11, 


10, 


16, 


24, 


40, 


51, 


61, 


12, 


12, 


14, 


19, 


26, 


58, 


60, 


55, 


14, 


13, 


16, 


24, 


40, 


57, 


69, 


56, 


14, 


17, 


22, 


29, 


51, 


87, 


80, 


62, 




1 



3J^103, 77, 

iHfii3, 

1W120, 101, 



} 



18, 22, 37, 56, 68, 
24, 35, 55, 64, 81, 
49, 64, 78, 87, 103, 15 
72, 92, 95, 98, 112, 100, 103, 99 
}; 

static const unsigned int std_chrominance_quant_tbl [DCTSIZE2] = { 

17, 18, 24, 47, 99, 99, 99, 99, 

18, 21, 26, 66, 99, 99, 99, 99, 
24, 26, 56, 99, 99, 99, 99, 99, 
47, 66, 99, 99, 99, 99, 99, 99, 
99, 99, 99, 99, 99, 99, 99, 99, 
99, 99, 99, 99, 99, 99, 99, 99, 
99, 99, 99, 99, 99, 99, 99, 99, 
99, 99, 99, 99, 99, 99, 99, 99 

}; 

/* Set up two quantization tables using the specified scaling */ 
jpeg_add_quant_table (cinfo, 0, std_luminance_quant_tbl , 

scale_f actor , f orce_baseline) ; 
j P e g_add_qu an t_ t ab 1 e ( cinfo , 1 , s td_chrominance_quant_tbl , 
scale_f actor , f orcejbaseline) ; 



GLOBAL (int) 

jpeg_quality_scaling (int quality) 

/* Convert a user-specified quality rating to a percentage scaling factor 

* for an underlying quantization table, using our recommended scaling curve. 

* The input 'quality' factor should be 0 (terrible) to 100 (very good) . 
*/ 

{ 

/* Safety limit on quality factor. Convert 0 to 1 to avoid zero divide. */ 
flf (quality <= 0) quality = 1; 
llf (quality > 100) quality = 100; 

is? 

OV* The basic table is used as-is (scaling 100) for a quality of 50. 

„i% * Qualities 50.. 100 are converted to scaling percentage 200 - 2*Q; 

r 1 ; * note that at Q=100 the scaling is 0, which will cause jpeg_add_quant_table 

"~j * to make all the table entries 1 (hence, minimum quantization loss) . 

.ri * Qualities 1..50 are converted to scaling percentage 5000/Q. 

"If */ 

«lf (quality < 50) 

Pjj quality = 5000 / quality; 

''else 

s quality = 200 - quality*2; 

Li. 
t — 

Return quality; 
GfipBAL(void) 

Jpfeg_set_quality ( j_compress_ptr cinfo, int quality, boolean f orce_baseline) 
ypj Set or change the 'quality' (quantization) setting, using default tables. 
^ This is the standard quality-adjusting entry point for typical user 

* interfaces; only those who want detailed control over quantization tables 

* would use the preceding three routines directly. 
*/ 

{ 

/* Convert user 0-100 rating to percentage scaling */ 
quality = jpeg_quality_scaling (quality) ; 

/* Set up standard quality tables */ 

jpeg_set_linear_quality (cinfo, quality, f orce_baseline) ; 

} 



/* 

* Huffman table setup routines 
*/ 

LOCAL (void) 

add_huf f_table ( j_compress_ptr cinfo, 

JHUFF_TBL **htblptr, const UINT8 *bits, const UINT8 *val) 
/* Define a Huffman table */ 
( 

int nsymbols, len; 

if (*htblptr == NULL) 

*htblptr = jpeg_alloc_huf f_table( ( j_common_ptr) cinfo); 
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/* Copy the number-of -symbqj^^>f -each- code- length counts 
MEMCOPY( (*htblptr)->bits. 



boJ^^>f- each- code -length counts */ 
ij^H SIZEOF( (*htblptr)->bits) ) ; 



} 



/* Validate the counts. We do this here mainly so we can copy the right 

* number of symbols from the val[] array, without risking marching off 

* the end of memory, jchuff .c will do a more thorough test later. 
*/ 

nsymbols = 0; 

for (len = 1; len <- 16; len++) 

nsymbols += bits [len]; 
if (nsymbols < 1 | | nsymbols > 256) 

EKREXIT ( cinf o , JERR_BAD_HUFF_TABLE ) ; 

MEMCOPY( (*htblptr)->huffval, val, nsymbols * SIZEOF(UINT8) ) ; 

/* Initialize sent_table FALSE so table will be written to JPEG file. */ 
(*htblptr)->sent_table = FALSE; 



LOCAL (void) 

std_huf f_tables ( j_compress_ptr cinfo) 

/* Set up the standard Huffman tables (cf . JPEG standard section K.3) */ 

/* IMPORTANT: these are only valid for 8 -bit data precision! */ 

{ 

static const UINT8 bits_dc_lumi nance [17] = 

{ /* 0-base */ 0, 0, 1, 5, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0 }; 
static const UINT8 val_dc_lumi nance [ ] = 

{ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11 }; 

static const UINT8 bits_dc_chrominance[17] = 

{ /* 0-base */ 0, 0, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0 }; 
[^static const UINT8 val_dc_chromi nance [ ] = 
i: { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11 }; 



□Static const UINT8 bits_ac. 
7& { /* 0-base */ 0, 0, 2, 
^static const UINT8 val_ac. 

-J { 0x01, 0x02, 0x03, 0x00 

0x21, 0x31, 0x41, 0x06 

0x22, 0x71, 0x14, 0x32 

-iJ 0x23, 0x42, Oxbl, Oxcl 

Hi 0x24, 0x33, 0x62, 0x72 

0x17, 0x18, 0x19, 0x1a 

5 0x29, 0x2a, 0x34, 0x35 

M> 0x3a, 0x43, 0x44, 0x45 

» 0x4a, 0x53, 0x54, 0x55 

u - 0x5a, 0x63, 0x64, 0x65 

fy 0x6a, 0x73, 0x74, 0x75 

0x7a, 0x83, 0x84, 0x85 

Jf 0x8a, 0x92, 0x93, 0x94 

tj 0x99, 0x9a, 0xa2 , 0xa3 

fl 0xa8, 0xa9, Oxaa, 0xb2 

~ r 0xb7, 0xb8, 0xb9, Oxba 

0xc6, 0xc7, 0xc8, 0xc9 

0xd5, 0xd6, 0xd7, 0xd8 

0xe3, 0xe4, 0xe5, 0xe6 

Oxfl, 0xf2, 0xf3, 0xf4 

0xf9, Oxfa }; 



_luminance [17] = 
1, 3, 3, 2, 4, 3, 5, 5, 4, 
luminance [ ] = 

0x04, 0x11, 0x05, 0x12, 

0x13, 0x51, 0x61, 0x07, 

0x81, 0x91, Oxal, 0x08, 

0x15, 0x52, Oxdl, OxfO, 

0x82, 0x09, 0x0a, 0x16, 

0x25, 0x26, 0x27, 0x28, 

0x36, 0x37, 0x38, 0x39, 

0x46, 0x47, 0x48, 0x49, 

0x56, 0x57, 0x58, 0x59, 

0x66, 0x67, 0x68, 0x69, 

0x76, 0x77, 0x78, 0x79, 

0x86, 0x87, 0x88, 0x89, 

0x95, 0x96, 0x97, 0x98, 

0xa4, 0xa5, 0xa6, 0xa7, 

0xb3, 0xb4, 0xb5, 0xb6, 

0xc2, 0xc3, 0xc4, 0xc5, 

Oxca, 0xd2, 0xd3 , 0xd4, 

0xd9, Oxda, Oxel, 0xe2, 

0xe7, 0xe8, 0xe9, Oxea, 

0xf5, 0xf6, 0xf7, 0xf8, 



4, 0, 0, 1, 0x7d }; 



static const UINT8 bits_ac_chrominance[17] = 

{ /* 0-base */ 0, 0, 2, 1, 2, 4, 4, 3, 4, 7, 5, 4, 4, 0, 1, 2, 0x77 }; 
static const UINT8 val_ac_chrominance [ ] = 

{ 0x00, 0x01, 0x02, 0x03, 0x11, 0x04, 0x05, 0x21, 

0x31, 0x06, 0x12, 0x41, 0x51, 0x07, 0x61, 0x71, 

0x13, 0x22, 0x32, 0x81, 0x08, 0x14, 0x42, 0x91, 

Oxal, Oxbl, Oxcl, 0x09, 0x23, 0x33, 0x52, OxfO, 

0x15, 0x62, 0x72, Oxdl, 0x0a, 0x16, 0x24, 0x34, 

Oxel, 0x25, Oxfl, 0x17, 0x18, 0x19, 0x1a, 0x26, 

0x27, 0x28, 0x29, 0x2a, 0x35, 0x36, 0x37, 0x38, 

0x39, 0x3a, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48, 

0x49, 0x4a, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58, 



0x59, 0x5a, 0x63, 



0x65, 0x66, 0x67, 0x68, 
0x78, 



0x64 

0x69, 0x6a, 0x73, 0x74, 0x75, 0x76, 0x77 

0x79, 0x7a, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87, 

0x88, 0x89, 0x8a, 0x92, 0x93, 0x94, 0x95, 0x96, 

0x97, 0x98, 0x99, 0x9a, 0xa2, 0xa3, 0xa4, 0xa5, 

0xa6, 0xa7, 0xa8, 0xa9, Oxaa, 0xb2, 0xb3 , 0xb4 , 

0xb5, 0xb6, 0xb7, 0xb8, 0xb9, Oxba, 0xc2, 0xc3, 

0xc4, 0xc5, 0xc6, 0xc7, 0xc8, 0xc9, Oxca, 0xd2 , 
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0xd3, 0xd4, 0xd5, 0xd6,^fcKl7, 0xd8, Oxd9, Oxda, 

0xe2, 0xe3, 0xe4, 0xe5j^^^6, 0xe7 , 0xe8, 0xe9, 

Oxea, 0xf2, Oxf3, 0xf4,^Pf5, 0xf6, 0xf7, 0xf8, 

0xf9, Oxfa }; 

add_huff_table( cinfo, fccinf o->dc_ huf f_tbl_ptrs [0] , 

bits„dc_luminance, val_dc_luminance) ; 
add__huf f_table( cinfo, &cinf o->ac_huf f_tbl_ptrs [0] , 

bits_ac_ luminance, val_ac_luminance) ; 
add_huff_t able {cinfo, &cinf o->dc_huf f_tbl_ptrs [1] , 

bits_dc — chrominance, val_dc_chrominance) ; 
add_huff_t able (cinfo, fccinf o->ac_huf f_tbl_ptrs [1 J , 

bits_ac_chrominance, val_ac_ chrominance) ; 



• 



/* 

* Default parameter setup for compression. 
* 

* Applications that don't choose to use this routine must do their 

* own setup of all these parameters. Alternately, you can call this 

* to establish defaults and then alter parameters selectively. This 

* is the recommended approach since, if we add any new parameters, 

* your code will still work (they'll be set to reasonable defaults). 
*/ 

GLOBAL (void) 

jpeg_set_defaults ( j_compress_ptr cinfo) 
{ 

int i; 

/* Safety check to ensure start_compress not called yet. */ 
=df (cinfo->global_state != CSTATE_START) 
« ERREXIT1 (cinfo, JERR„BAD_STATE , cinf o->global_state) ; 

QY* Allocate comp_info array large enough for maximum component count. 

* Array is made permanent in case application wants to compress 
L iJ * multiple images at same param settings. 

\f*/ 

,aif (cinf o->comp_inf o == NULL) 

cinf o->comp_info = { jpeg_component__ inf o *) 
J] (*cinfo->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_PERMANENT , 
n\ MAX_COMPONENTS * SIZEOF ( jpeg_component_inf o) ) ; 

s /* Initialize everything not dependent on the color space */ 

^cinfo->data_precision = BITS_IN_JSAMPLE; 

M'* Set up two quantization tables using default quality of 75 */ 
HJpeg_set_quality (cinfo, 75, TRUE) ; 
^7* Set up two Huffman tables */ 
Jjstd_huf f_tables (cinfo) ; 

fV* Initialize default arithmetic coding conditioning */ 
^for (i = 0; i < NUM_ARITH_TBLS ; i++) { 

cinfo->arith__dc_L[i] = 0 ; 

cinfo->arith_dc_U[i] = 1; 

cinfo->arith_ac_K[i] = 5; 

} 

/* Default is no multiple-scan output */ 
cinf o->scan_inf o = NULL; 
c info ->num_s cans = 0; 

/* Expect normal source image, not raw downsampled data */ 
cinfo->raw_ data_in = FALSE; 

/* Use Huffman coding, not arithmetic coding, by default */ 
cinfo- >arith_code = FALSE; 

/* By default, don't do extra passes to optimize entropy coding */ 
cinfo- >optimize_coding = FALSE; 

/* The standard Huffman tables are only valid for 8-bit data precision. 

* If the precision is higher, force optimization on so that usable 

* tables will be computed. This test can be removed if default tables 

* are supplied that are valid for the desired precision. 
*/ 

if (cinf o->data_precision > 8) 
cinf o->opt imiz encoding = TRUE; 

/* By default, use the simpler non-cosited sampling alignment */ 



4 



cinfo->CCIR601_sampling 



/* No input smoothing */ 
cinfo->smoothing_f actor = 0; 

/* DCT algorithm preference */ 
cinfo->dct_method = JDCT_DEFAULT; 



W • 



/* No restart markers */ 
cinfo->restart_interval = 0; 
cinfo->restart_in_rows = 0; 



/* Fill in default JFIF marker parameters. Note that whether the marker 

* will actually be written is determined by jpeg_ set_colorspace . 
* 

* By default, the library emits JFIF version code 1.01. 

* An application that wants to emit JFIF 1.02 extension markers should set 

* JFIF„minor_version to 2 . We could probably get away with just defaulting 

* to 1.02, but there may still be some decoders in use that will complain 

* about that; saying 1.01 should minimize compatibility problems. 
*/ 

cinfo->JFIF_maj ©reversion =1; /* Default JFIF version = 1.01 */ 
cinfo->JFIF_minor_ version = 1; 

cinfo->density_unit =0; /* Pixel size is unknown by default */ 
cinfo->X__density =1; /* Pixel aspect ratio is square by default */ 

cinfo->Y_density = 1; 

/* Choose JPEG colorspace based on input space, set defaults accordingly */ 
jpeg_def ault_col or space (cinf o) ; 

} 



Ml 

^11 Select an appropriate JPEG colorspace for in_color_space . 
Gg)BAL(void) 

i$>eg_def ault_co lor space ( j__compress_ptr cinfo) 

{,! 

Switch (cinf o->in„color_space) { 
ijpase JCS_GRAYSCALE : 

=1 jpeg_set_color space (cinf o, JCS_GRAYSCALE) ; 

i=J break; 

= case JCS_RGB: 

L.5. jpeg_set_colorspace (cinf o, JCS_ YCbCr) ; 

= break; 

Cease JCS_YCbCr: 

nl jpeg_set_co lor space (cinf o, JCS_YCbCr) ; 
! : ; break; 
Hase JCS_CMYK: 

r\ jpeg_set_colorspace (cinf o, JCS_CMYK) ; /* By default, no translation */ 
Zl break; 
Wease JCS_YCCK: 

jpeg_set_color space (cinf o, JCS_YCCK) ,* 
break; 
case JCS_UNKNOWN: 

jpeg_set_color space (cinf o, JCS_UNKNOWN) ; 
break; 
default: 

ERREXIT ( cinfo ( JERR_BAD_IN_COLORSPACE) ; 

} 

} 



/* 

* Set the JPEG colorspace, and choose colorspace-dependent default values. 
*/ 

GLOBAL (void) 

jpeg_set_co lor space ( j_compress_ptr cinfo, J_COLOR_SPACE colorspace) 
{ 

jpeg_component_inf o * compptr; 
int ci; 

#define SET_COMP (index, id, hsamp,vsamp, quant , dctbl , actbl) \ 
(compptr = &cinfo->comp_info [index] , \ 
compptr ->component_id = (id) , \ 
compptr->h_samp_f actor = (hsamp) , \ 
compptr->v„samp_f actor = (vsamp) , \ 
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compptr->quant_tbl_no = (<»g:) , \ 
compptr->dc_tbl_no = (dctl^^H\ 
compptr->ac_tbl_no = (acti^^R 

/* Safety check to ensure start_compress not called yet. */ 
if (cinfo->global_state != CSTATE_START) 

ERREXIT1 (cinfo, JERR_BAD_STATE , cinf o->global_state) ; 

/* For all colorspaces, we use Q and Huff tables 0 for luminance components, 
* tables 1 for chrominance components . 
*/ 

cinfo->jpeg_color_space = colorspace; 

cinfo->write_JFIF_header = FALSE; /* No marker for non-JFIF colorspaces */ 
cinfo->write_Adobe_marker = FALSE; /* write no Adobe marker by default */ 

switch (colorspace) { 
case JCS_GRAYSCALE : 

cinf o->write_JFIF_header = TRUE; /* Write a JFIF marker */ 

cinf o->num_components = 1; 

/* JFIF specifies component ID 1 */ 

SET_COMP<0, 1, 1,1, 0, 0,0); 

break; 
case JCS_ RGB: 

cinf o->write_Adobe_marker = TRUE; /* write Adobe marker to flag RGB */ 
cinf o->num_components = 3; 

SET_COMP(0, 0x52 /* 'R' */, 1,1, 0, 0,0); 
SET_C0MP(1, 0x47 /* 'G' */, 1,1, 0, 0,0); 
SET_C0MP(2, 0x42 /* 'B' */, 1,1, 0, 0,0); 
break; 
case JCS_YCbCr: 

=^ cinfo->write_JFIF_header = TRUE; /* Write a JFIF marker */ 

cinf o->num_ components = 3; 
ds /* JFIF specifies component IDs 1,2,3 */ 
rii /* We default to 2x2 subsamples of chrominance */ 
~. s SET„COMP(0, 1, 2,2, 0, 0,0); 
J? SET_COMP(l, 2, 1,1, 1, 1,1); 
Vf SET_C0MP(2, 3, 1,1, 1, 1,1); 
.! break; 
'&ise JCS_CMYK: 

yp cinf o->write_Adobe__marker = TRUE; /* write Adobe marker to flag CMYK */ 

cinf o->num_components = 4; 
HJ SET_COMP(0, 0x43 /* 'C */, 1,1, 0, 0,0); 
» SET_COMP(l, 0x4D /* 'M' */, 1,1, 0, 0,0); 
L: SET„COMP(2, 0x59 /* 'Y' */, 1,1, 0, 0,0); 
^ SET_COMP(3, 0x4B /* 'K' */, 1,1, 0, 0,0); 
Lj break; 
[ease JCS_YCCK: 

l** cinfo->write_Adobe_marker = TRUE; /* write Adobe marker to flag YCCK */ 



'---I cinf o->num_ 


components 


= 4; 


f 1 SET_C0MP ( 0 , 


1, 


2,2, 


0, 


0,0) 


Zl SET_C0MP ( 1 , 


2, 


1,1, 


1, 


1,1) 


U SET_C0MP(2, 


3, 


1,1, 


1, 


1,1) 


SET_C0MP(3, 


4, 


2,2, 


0, 


0,0) 



break; 
case JCS_UNKNOWN: 

cinf o->num_components = cinf o->input_components ; 

if (cinf o->num_components < 1 | | cinf o->num__components > MAX_COMPONENTS) 
ERREXIT2 (cinf o, JERR_COMP0NENT_COUNT , cinf o->num_components , 
MAX_COMPONENTS) ; 

for (ci = 0; ci < cinf o->num_components ; ci++) { 
SET_COMP(ci, ci, 1,1, 0, 0,0); 

} 

break; 
default : 

ERREXIT ( cinf o , JERR_BAD_J_COLORSPACE ) ; 

} 

} 



#ifdef C_PROGRESSIVE_SUPPORTED 
LOCAL (jpeg_scan_info *) 

fill_a„scan ( jpeg_scan_inf o * scanptr, int ci, 

int Ss, int Se, int Ah, int Al) 
/* Support routine: generate one scan for specified component */ 
{ 

scanptr- >comps_in_scan = 1; 
scanptr->component_index[0] = ci; 
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scanptr->Ss = Ss; 
scanptr->Se = Se; 
scanptr->Ah = Ah; 
scanptr->Al = Al; 
scanptr++; 
return scanptr; 

} 

LOCAL ( jpeg_scan_info *) 
fill_scans ( jpeg_scan_info * scanptr, int ncomps, 

int Ss, int Se, int Ah, int Al) 
/* Support routine: generate one scan for each component */ 
{ 

int ci; 

for (ci = 0; ci < ncomps; ci++) { 
scanptr- >comps_in_ scan = 1; 
scanptr ->component_ index [0] = ci; 
scanptr->Ss - Ss; 
scanptr->Se = Se; 
scanptr- >Ah = Ah; 
scanptr->Al = Al; 
scanptr ++; 

} 

return scanptr; 



LOCAL ( jpeg_scan_inf o *) 
f ill_dc_scans { jpeg_scan_inf o * scanptr, int ncomps, int Ah, int Al) 
/* Support routine: generate interleaved DC scan if possible, else N scans */ 
{ 

_int ci; 

jif (ncomps <= MAX_COMPS_IN_SCAN) { 
~~z /* Single interleaved DC scan */ 

scanptr->comps__in_scan = ncomps; 
J] for (ci = 0; ci < ncomps; ci++) 

scanptr- >component„index[ci] = ci; 

scanptr->Ss = scanptr->Se = 0; 

scanptr- >Ah = Ah; 
t l scanptr->Al - Al; 

scanptr++; 
|i| else { 

/* Noninter leaved DC scan for each component */ 
scanptr = fill_scans (scanptr , ncomps, 0, 0, Ah, Al); 

H 

r^eturn scanptr; 

*=fCreate a recommended progressive- JPEG script. 

Ocinf o->num_components and cinf o->jpeg_color_space must be correct. 
*/ 

GLOBAL (void) 

jpeg_simple__progression ( j_compress_ptr cinfo) 
{ 

int ncomps = cinf o->num_components ; 
int nscans; 

jpeg_scan_inf o * scanptr; 

/* Safety check to ensure start_compress not called yet. */ 
if (cinfo->global_state != CSTATE_START) 

ERREXIT1 (cinfo, JERR_BAD_STATE , cinf o->global_state) ; 

/* Figure space needed for script. Calculation must match code below! */ 
if (ncomps — 3 && cinf o->jpeg_color_space ~ JCS„YCbCr) { 

/* Custom script for YCbCr color images. */ 

nscans = 10; 
} else { 

/* All-purpose script for other color spaces. */ 
if (ncomps > MAX_COMPS_IN_SCAN) 

nscans = 6 * ncomps; /* 2 DC + 4 AC scans per component */ 
else 

nscans = 2 + 4 * ncomps; /* 2 DC scans; 4 AC scans per component */ 

} 

/* Allocate space for script. 
* We need to put it in the permanent pool in case the application performs 
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* multiple compressions wijteut changing the settings. To avoid^^memory 

* leak if jpeg_simple_prog^^Bion is called repeatedly for the JPEG 

* object, we try to re-use^Bfviously allocated space, and we al^Rate 

* enough space to handle YCbCr even if initially asked for grayscale. 
*/ 

if (cinfo->script_space == NULL | | cinf o->script_space_size < nscans) { 
cinf o->script_space_size = MAX (nscans , 10) ; 
cinf o->script_space = { jpeg_ scan_inf o *) 

(*cinfo->mem->alloc — small) ( ( j_common_ptr) cinfo, JPOOL__PERMANENT , 
cinfo->script_space_size * SIZEOF ( jpeg_scan„info) ) ; 

} 

scanptr = cinf o->script_space; 
cinfo->scan_info = scanptr; 
cinf o->num_ scans = nscans; 

if (ncomps == 3 && cinf o->jpeg_color_space == JCS_YCbCr) { 
/* Custom script for YCbCr color images. */ 
/* Initial DC scan */ 

scanptr = f ill_dc_scans (scanptr, ncomps, 0, 1); 

/* Initial AC scan: get some luma data out in a hurry */ 

scanptr = f ill_a_s can (scanptr , 0, 1, 5, 0, 2); 

/* Chroma data is too small to be worth expending many scans on */ 

scanptr = fill_a_scan (scanptr , 2, 1, 63, 0, 1) ; 

scanptr = fill_a_s can (scanptr, 1, 1, 63, 0, 1); 

/* Complete spectral selection for luma AC */ 

scanptr = fill_a_scan (scanptr, 0, 6, 63, 0, 2); 

/* Refine next bit of luma AC */ 

scanptr = fill_a_ scan (scanptr , 0, 1, 63, 2, 1) ; 

/* Finish DC successive approximation */ 

scanptr = fill_dc_scans (scanptr, ncomps, 1, 0) ; 
CJ /* Finish AC successive approximation */ 
.jS scanptr = fill_a_scan (scanptr , 2, 1, 63, 1, 0) ; 
2? scanptr = fill_a_scan (scanptr , 1, 1, 63, 1, 0) ; 

/* Luma bottom bit comes last since it's usually largest scan */ 
•J% scanptr = fill_a_scan (scanptr , 0, 1, 63, 1, 0) ; 
r% else { 

"s /* All-purpose script for other color spaces. */ 
UJ /* Successive approximation first pass */ 
~4 scanptr = f ill_dc_scans (scanptr , ncomps, 0, 1) ; 
J* scanptr = fill„scans (scanptr , ncomps, 1, 5, 0, 2); 
pi scanptr = fill_scans (scanptr , ncomps, 6, 63, 0, 2); 

/* Successive approximation second pass */ 
* scanptr = fill_scans (scanptr , ncomps, 1, 63, 2, 1) ; 

/* Successive approximation final pass */ 
f% scanptr = f ill_dc_s cans (scanptr , ncomps, 1, 0) ; 
Z T - scanptr = fill_scans (scanptr , ncomps, 1, 63, 1, 0) ; 
III 

# ; endif /* C_PROGRESSIVE_SUPPORTED */ 
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/* 

* jcphuff.c 

* Copyright (C) 1995-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains Huffman entropy encoding routines for progressive JPEG. 
* 

* We do not support output suspension in this module, since the library 

* currently does not allow multiple-scan files to be written with output 

* suspension. 
*/ 

#define JPEG_ INTERNALS 
# include "j include. h" 
#include "jpeglib.h" 

# include "j chuff .h" /* Declarations shared with j chuff .c */ 

#ifdef C_PROGRESSIVE_SUPPORTED 

/* Expanded entropy encoder object for progressive Huffman encoding. */ 

typedef struct { 

struct jpeg_entropy_encoder pub; /* public fields */ 

/* Mode flag: TRUE for optimization, FALSE for actual data output */ 
boolean gather_statistics; 

/* Bit-level coding status. 

* next_output_byte/f ree_in_buf f er are local copies of cinfo->dest fields. 

^dOCTET * next_output_by te ; /* => next byte to write in buffer */ 
tfeize_t f ree_in_buf f er ; /* # of byte spaces remaining in buffer */ 
QINT32 put_buffer; /* current bit-accumulation buffer */ 

lint put_bits; /* # of bits now in it */ 

Uij_compress_ptr cinfo; /* link to cinfo (needed for dump_buffer) */ 

.fj* Coding status for DC components */ 

*^int last_dc_val[MAX_COMPS_IN_SCAN] ; /* last DC coef for each component */ 
f\{* Coding status for AC components */ 

E 'lnt ac_tbl_no; /* the table number of the single component */ 

s unsigned int EOBRUN; /* run length of EOBs */ 

Lunsigned int BE; /* # of buffered correction bits before MCU */ 

Lichar * bit__buffer; /* buffer for correction bits (1 per char) */ 

M'* packing correction bits tightly would save some space but cost time... */ 

1_ "unsigned int restarts_to_go; /* MCUs left in this restart interval */ 
^3-nt next_restart_num; /* next restart number to write (0-7) */ 

Pointers to derived tables (these workspaces have image lifespan) . 

* Since any one scan codes only DC or only AC, we only need one set 

* of tables, not one for DC and one for AC. 
*/ 

c_derived_tbl * derived_tbls [NUM_HUFF_TBLS] ; 

/* Statistics tables for optimization; again, one set is enough */ 
long * count_ptrs[NUM_HUFF_TBLS] ; 
} phuf f_entropy_encoder ; 

typedef phuf f_entropy_enc ode r * phuf f_entropy_jptr ; 

/* MAX_CORR_BITS is the number of bits the AC refinement correction-bit 

* buffer can hold. Larger sizes may slightly improve compression, but 

* 1000 is already well into the realm of overkill . 

* The minimum safe size is 64 bits. 
*/ 

#define MAX_CORR_BITS 1000 /* Max # of correction bits I can buffer */ 

/* I RIGHT_SHI FT is like RIGHT_SHIFT, but works on int rather than INT32. 

* We assume that int right shift is unsigned if INT32 right shift is, 

* which should be safe. 
*/ 

iifdef RI GHT_SH I FT_I S_UNS IGNED 
#define ISHIFTJTEMPS int ishift_temp; 
#define IRIGHT_SHIFT (x, shf t) \ 
( (ishift_temp = (x) ) < 0 ? \ 
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(ishift_temp » (shf t) ) ^k(-0) « (16-(shft))) : \ 
(ishift_temp >> (shft) ) 

#else 

#define ISHIFT_TEMPS 

#define IRIGHT_SHIFT (x, shf t) ( (x) » (shft)) 
iendif 

/* Forward declarations */ 
METHODDEF (boolean) encode_mcu_JX_ first JPP ( ( j_compress_ptr cinfo, 

JBLOCKROW *MCU_data)); 
METHODDEF (boolean) encode_mcu_AC_f irst JPP( ( j_compress_ptr cinfo, 

JBLOCKROW *MCU_data)); 
METHODDEF (boolean) encode_mcu_ DC„ref ine JPP ( ( j_compress_ptr cinfo, 

JBLOCKROW *MCU_data) ) ; 
METHODDEF (boolean) encode_mcu_AQ_ref ine JPP ( ( j_compress_ptr cinfo, 

JBLOCKROW *MCU_data) ) ; 
METHODDEF (void) f inish_pass_phuf f JPP ( ( j_compress_ptr cinfo)); 
METHODDEF (void) f inish_j?ass_gather_phuf f JPP( (j_compress_ptr cinfo)); 




/* 

* Initialize for a Huffman- compressed scan using progressive JPEG. 
*/ 

METHODDEF (void) 

start_pass_phuf f ( j_compress_ptr cinfo, boolean gather_statistics) 
{ 

phuf f_entropy_ptr entropy = (phuf f_entropy_ptr ) cinf o->entropy; 
boolean is_DC_band; 
int ci, tbl; 
-Jpeg_component_inf o * compptr; 

J%ntropy->cinf o = cinfo; 

^fentropy->gather„stati sties = gather„statistics; 
jis_DC_band = (cinfo->Ss == 0) ; 

y* We assume jcmaster.c already validated the scan parameters. */ 

Select execution routines */ 
21f (cinfo->Ah == 0) { 
Hi if ( i s_DC_ band ) 

s entropy->pub.encode_mcu = encode_mcu_DC_f irst; 
s . else 

r 3 * entropy - >pub . encode_mcu = encode_mcu_AC_f irst; 

rj} else { 

^ if (is_DC_band) 

entropy->pub. encode_mcu = encode_mcu_DC_ref ine; 
else { 

entropy - >pub . encode_mcu = encode__mcu_AC_ref ine; 
]r: /* AC refinement needs a correction bit buffer */ 
U if ( entropy- >bit_buffer == NULL) 
entropy- >bit_buffer = (char *) 

(*cinf o->mem->alloc_small ) ( ( j_common_ptr ) cinfo, JPOOL_IMAGE, 
MAX_CORR_BITS * SIZEOF (char) ) ; 

) 

} 

if (gather_statistics) 

entropy->pub. f inish_pass = f inish_pass_gather_phuf f ; 
else 

entropy- >pub. f inish_pass = f inish_pass_j?huf f ; 

/* Only DC coefficients may be interleaved, so cinf o->comps_in_scan = 1 
* for AC coefficients. 
*/ 

for (ci = 0; ci < cinf o->comps_in_scan; ci++) { 
compptr = cinf o->cur_comp_inf o [ci] ; 
/* Initialize DC predictions to 0 */ 
ent ropy- > las t_dc_val tci] = 0; 
/* Get table index */ 
if (is_DC_band) { 

if ( cinfo- >Ah != 0) /* DC refinement needs no table */ 
continue; 

tbl = compptr- >dc_tbl_no; 
} else { 

entropy- >ac_ tbl_no = tbl = compptr->ac_tbl_no; 

} 

if (gather_statistics) { 

/* Check for invalid table index */ 

/* (make_c_derived_tbl does this in the other path) */ 
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if (tbl < 0 I I tbl >= Njfl^{UFF_TBLS) 

ERREXIT1 (cinf o, JERR_^^BuFF_TABLE , tbl); 

/* Allocate and zero thi^Ratistics tables */ 

/* Note that jpeg_gen_optimal_table expects 257 entries in each table! */ 

if (entropy->count_ptrs [tbl] == NULL) 
ent ropy-> conn t_ptrs [tbl] = (long *) 

(*cinf o->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
257 * SIZEOF(long) ) ; 

MEMZERO (ent ropy- >count_ptrs [tbl] , 257 * SIZEOF (long) ) ; 
} else { 

/* Compute derived values for Huffman table */ 

/* We may do this more than once for a table, but it's not expensive */ 
jpeg_make_c_derived_tbl (cinf o, is_DC_band, tbl, 
& entropy- >derived_tbls [ tbl] ) ; 

} 

} 

/* Initialize AC stuff */ 
ent ropy- >EOBRUN = 0; 
entropy->BE = 0; 

/* Initialize bit buffer to empty */ 
entropy- >put_buffer = 0; 
entropy->put_bits = 0; 

/* Initialize restart stuff */ 

entropy->restarts_to_go = cinf o->restart_interval; 
entropy- >next_restart_num = 0; 



/=** Outputting bytes to the file. 

1:NB: these must be called only when actually outputting, 
that is, entropy- >gather_statistics == FALSE. 

0Y 

fe\ Emit a byte */ 

define emit_byte (entropy, val) \ 

t fi { * (entropy) ->next_output_byte++ = (JOCTET) (val); \ 

if ( — (entropy) ->free_in_buffer == 0) \ 
J J dump_buffer (entropy) ; } 




EOCAL(void) 

di?mp_buffer (phuf f_entropy__ptr entropy) 

>L\ Empty the output buffer; we do not support suspension in this module. */ 

jljstruct jpeg„destination_mgr * dest = entropy->cinf o->dest ; 

"^if ( ! (*dest->empty_output_buf fer) (entropy->cinf o) ) 
p ERREXIT(entropy->cinfo, JERR_CANT_SUSPEND) ; 

i=~J* After a successful buffer dump, must reset buffer pointers */ 
^entropy->next_output_byte = dest->next_output_byte; 
entropy->free_in_buf fer = dest->free_in_buf f er ; 

} 



/* Outputting bits to the file */ 

/* Only the right 24 bits of put_buffer are used; the valid bits are 

* left- justified in this part. At most 16 bits can be passed to emit_bits 

* in one call, and we never retain more than 7 bits in put_ buffer 

* between calls, so 24 bits are sufficient. 
*/ 

INLINE 
LOCAL (void) 

emit_bits (phuf f_entropy_ptr entropy, unsigned int code, int size) 

/* Emit some bits, unless we are in gather mode */ 

{ 

/* This routine is heavily used, so it's worth coding tightly. */ 
register INT32 put_buffer = (INT32) code; 
register int put_bits = entropy- >put_bits; 

/* if size is 0, caller used an invalid Huffman table entry */ 
if (size == 0) 

ERREXIT( entropy- >cinfo, JERR__HUFF_MISSING_CODE) ; 

if (entropy->gather_ statistics) 

return; /* do nothing if we're only getting stats */ 
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putjbuffer &= (((INT32) l)<^^e) - 1; /* mask off any extra bit^^^ code */ 
put_ bits += size; /* new number of bits in buffer */ 

putjbuffer <<= 24 - put_ bits; /* align incoming bits */ 

put_buffer |= entropy- >put_buffer; /* and merge with old buffer contents */ 

while (put_bits >= 8) { 

int c = (int) {(putjbuffer » 16) & OxFF); 

emi t_by t e ( entropy , c ) ; 

if (c == OxFF) { /* need to stuff a zero byte? */ 

emi t_by t e ( en t r opy , 0 ) ; 

> 

put_buffer «= 8; 
put_bits -= 8; 

> 

entropy- >put_buffer = put_buffer; /* update variables */ 
entropy- >put_bits = put_bits; 

} 

LOCAL (void) 

flush_bits (phuf f_entropy_ptr entropy) 
{ 

emi t_bits (entropy, 0x7F f 7); /* fill any partial byte with ones */ 
entropy- >put_buffer =0; /* and reset bit-buffer to empty */ 

entropy- >put_bits = 0; 

>□ 

Emit (or just count) a Huffman symbol. 

I^INE 
L&CAL(void) 

eJ3.t_symbol (phuf f_entropy_ptr entropy, int tbl_no, int symbol) 

1 'If (entropy->gather„statistics) 

s entropy->count_ptrs [tbl_no] [symbol] ++; 

Ltelse { 

c_derived_tbl * tbl = entropy- >der ived_tbl s [tbl_no] ; 
W emi t_bits (entropy, tbl->ehufco [symbol] , tbl ->ehuf si [symbol] ) ; 

¥\ 

^ Emit bits from a correction bit buffer. 
*/ 

LOCAL (void) 

emit„buf f ered_ bits (phuf f _entropy_j?tr entropy, char * buf start, 
unsigned int nbits) 

{ 

if ( entropy- >gather_statistics) 

return; /* no real work */ 

while (nbits > 0) { 

emi t_bits (entropy, (unsigned int) (*buf start), 1) ; 
buf start++ ; 
nbits — ; 

} 

} 

/* 

* Emit any pending EOBRUN symbol . 
*/ 

LOCAL (void) 

emit_eobrun (phuf f_entropy_ptr entropy) 
{ 

register int temp, nbits; 

if <entropy->EOBRUN > 0) { /* if there is any pending EOBRUN */ 
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temp = entropy- >EOBRUN; 
nbits = 0; 

while ((temp »= 1)) 
nbits++; 

/* safety check: shouldn't happen given limited correction-bit buffer */ 
if (nbits > 14) 

ERREXIT(entropy->cinfo, JERR_HUFF_MISSING_CODE) ; 

emit_symbol (entropy, entropy->ac_tbl_no, nbits << 4); 
if (nbits) 

emit_bits (entropy, entropy->EOBRUN, nbits); 
entropy- >EOBRUN = 0; 

/* Emit any buffered correction bits */ 

emit_buf fered_bits (entropy, entropy->bit_buf f er , entropy->BE) ; 
entropy- >BE = 0; 

} 

} 



/* 

* Emit a restart marker & resynchronize predictions. 
*/ 

LOCAL (void) 

emit_ restart (phuf f_entropy_ptr entropy, int restart_num) 
{ 

int ci; 

emit_eobrun (entropy) ; 

lif (! entropy->gather_statistics) { 

^ flush_bits (entropy) ; 

01 emit_byte (entropy, OxFF) ; 

7~ emit_byte (entropy, JPEG__RST0 + restart_num) ; 

,j4.f (entropy->cinf o->Ss ==0) { 

/* Re-initialize DC predictions to 0 */ 

for (ci =0; ci < entropy->cinf o->comps_in_scan; ci++) 
fij entropy- >1 as t_dc_val [ci] = 0; 
= else { 

f /* Re-initialize all AC-related fields to 0 */ 
Uh entropy- >E0BRUN = 0; 
entropy- >BE = 0; 

~> 

Jlj 



£1 

MCU encoding for DC initial scan (either spectral selection, 
or first pass of successive approximation) . 
*/ 

METHODDEF (boolean) 

encode_mcu_DC_f irst ( j_ compress_ptr cinfo, JBLOCKROW *MCU_data) 
{ 

phuf f_entropy_ptr entropy = (phuf f_entropy_ptr ) cinf o->entropy; 

register int temp, temp2; 

register int nbits; 

int blkn, ci; 

int Al = cinfo->Al; 

JBLOCKROW block; 

jpeg_component_inf o * compptr; 

ISHIFT_TEMPS 

entropy- >next_output„byte = cinf o->dest->next_output_byte; 
entropy- >free_in_buf f er = cinf o->dest->f ree_in_buf f er; 

/* Emit restart marker if needed */ 
if (cinf o->restart_interval) 

if (entropy->restarts_to_go == 0) 

emit_res tart (entropy, entropy- >next_res tar t_ num) ; 

/* Encode the MCU data blocks */ 

for (blkn = 0; blkn < cinf o->blocks_in__MCU; blkn++) { 
block = MCU_data[blkn] ; 
ci = cinf o->MCU_member ship [blkn] ; 
compptr = cinf o->cur_comp_inf o [ci] ; 
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/* Compute the DC value a^^B the required point transform by 

* This is simply an arit^Bcic right shift. 
*/ 

temp2 = IRIGHT_SHIFT( (int) ( ( *block) [0] ) , Al); 

/* DC differences are figured on the point -trans formed values. */ 
temp = temp2 - entropy- >1 as t_dc_val [ci] ; 
entropy- >las t_dc_val [ci] = temp2; 

/* Encode the DC coefficient difference per section G. 1.2.1 */ 
temp 2 = temp; 
if (temp < 0) { 

temp = -temp; /* temp is abs value of input */ 

/* For a negative input, want temp2 = bitwise complement of abs (input) */ 

/* This code assumes we are on a two's complement machine */ 

temp2--; 

} 

/* Find the number of bits needed for the magnitude of the coefficient */ 
nbits = 0; 
while (temp) { 

nbits++; 

temp »= 1; 

} 

/* Check for out-of -range coefficient values. 

* Since we're encoding a difference, the range limit is twice as much. 
*/ 

if (nbits > MAX_COEF_BITS+l) 

ERREXIT ( cinf O , JERR_BAD_DCT_COEF ) ; 

/* Count/ emit the Huffman-coded symbol for the number of bits */ 
emit_symbol (entropy, compptr->dc_tbl_no, nbits); 

ff% /* Emit that number of bits of the value, if positive, */ 

/* or the complement of its magnitude, if negative. */ 
*U if (nbits) /* emit_bits rejects calls with size 0 */ 

si emit_bits (entropy, (unsigned int) temp2, nbits); 

A 

i j§info->dest->next„output_byte = entropy->next_output_byte; 
^qinfo->dest->f ree„in_buf f er = entropy->f ree_in_buf f er ; 

i 

=/* Update restart-interval state too */ 

L_if (cinfo->restart_interval) { 

^™ if (entropy->restarts_to_go ==0) { 

Ll entropy- >res tar ts_to_go = cinf o->restart_interval ; 
n | entropy- >next_res tar t_num++ ; 

entropy- >next„res tar t_num &= 7; 

y } 

ri entropy- >res tar ts_to_ go--; 
return TRUE; 

} 




/* 

* MCU encoding for AC initial scan (either spectral selection, 

* or first pass of successive approximation) . 
*/ 

METHODDEF (boolean) 

encode_mcu_AC_f irst ( j_compress_ptr cinfo, JBLOCKROW *MCU_data) 
{ 

phuf f_entropy_ptr entropy = (phuf f_entropy_ptr) cinf o->entropy; 

register int temp, temp2; 

register int nbits; 

register int r, k; 

int Se = cinfo->Se; 

int Al = cinfo->Al; 

JBLOCKROW block; 

entropy- >next_output_byte = cinf o->dest->next_output_byte; 
entropy- >free_in_buffer = cinf o->dest->f ree_in_buf f er ; 

/* Emit restart marker if needed */ 
if (cinf o->restart_interval ) 

if (entropy->restarts_to_go == 0) 

emit_r est art (entropy, entropy->next_restart_num) ; 
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/* 

* MCU encoding for DC successive approximation refinement scan. 

* Note: we assume such scans can be multi -component, although the spec 

* is not very clear on the point. 
*/ 

METHODDEF (boolean) 

encode_mcu_DC_ref ine ( j_ compress_ptr cinfo, JBLOCKROW *MCU_data) 
{ 

phuf f_entropy_ptr entropy = (phuf f_entropy_ptr) cinf o->entropy; 
register int temp; 
int blkn; 

int Al = cinfo->Al; 
JBLOCKROW block; 

entropy- >next„output_byte = cinf o->dest->next_output_byte; 
entropy->f ree_in_buf f er = cinf o->dest->f ree_in_buf f er ; 

/* Emit restart marker if needed */ 
if (cinfo->restart_interval) 

if (entropy->restarts_to_go == 0) 

emit_res tart (entropy, entropy- >next_res tar t_num) ; 

/* Encode the MCU data blocks */ 

for (blkn = 0; blkn < cinf o->blocks_in_MCU; blkn++) { 
block = MCU_data[blkn] ; 

/* We simply emit the Al'th bit of the DC coefficient value. */ 
temp = (*block) [0] ; 

emit_bits (entropy, (unsigned int) (temp » Al) , 1) ; 

^cinfo->dest->next_output_byte = entropy->next_output_byte; 
d£info->dest->free_in_buf f er = entropy- >f ree_in_buf f er; 

1* Update restart-interval state too */ 
ulf (cinfo->restart_interval) { 

if ( entropy- >res tar ts_to_go ==0) { 

entropy- >res tar ts__to_go = cinf o->restart_interval ; 

entropy->next_restart_num++; 

entropy- >next_res tar t_num &= 7; 

jL=, > 

^ entropy- >res tar ts_to_go — ; 

=11 

; return TRUE; 

Ml 

* MCU encoding for AC successive approximation refinement scan. 
V 

METHODDEF (boolean) 

encode_mcu_AC_ref ine ( j_compress_ptr cinfo, JBLOCKROW *MCU_data) 
{ 

phuf f_entropy_j?tr entropy = (phuf f_entropy_ptr) cinf o->entropy; 
register int temp; 
register int r, k; 
int EOB; 

char *BR_buffer; 

unsigned int BR; 

int Se = cinfo->Se; 

int Al = cinfo->Al; 

JBLOCKROW block; 

int absvalues [DCTSIZE2] ; 

entropy- >next_output_byte = cinf o->dest->next_output_byte; 
entropy->free_in_buf fer = cinf o->dest->f ree_in_buf f er; 

/* Emit restart marker if needed */ 
if (cinf o->restart_interval ) 

if ( entropy- >res tar ts_to_go == 0) 

emit_restart (entropy , entropy- >next_res tar t_num) ; 

/* Encode the MCU data block */ 
block = MCU_data[0] ; 
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/* Encode the MCU data bio 
block = MCU_data[0] ; 

/* Encode the AC coefficients per section G. 1.2.2, fig. G.3 */ 

r = 0; /* r = run length of zeros */ 

for (k = cinfo->Ss; k <= Se; k++) { 

if ((temp = (*block) [ jpeg_natural_order [k] ] ) == 0) { 
r++; 

continue; 

} 

/* We must apply the point transform by Al. For AC coefficients this 

* is an integer division with rounding towards 0. To do this portably 

* in C, we shift after obtaining the absolute value; so the code is 

* interwoven with finding the abs value (temp) and output bits (temp2) . 
*/ 

if (temp < 0) { 

temp = -temp; /* temp is abs value of input */ 

temp »= Al; /* apply the point transform */ 

/* For a negative coef, want temp2 = bitwise complement of abs(coef) */ 
temp 2 = -temp; 
} else { 

temp »= Al ; /* apply the point transform */ 

temp2 = temp; 

} 

/* Watch out for case that nonzero coef is zero after point transform */ 
if (temp == 0) { 
r++; 

continue; 

P } 

/* Emit any pending EOBRUN */ 
yl if (entropy->EOBRUN > 0) 
emit_eobrun (entropy) ; 
/* if length > 15, must emit special run-length- 16 codes (OxFO) */ 

SI while (r > 15) { 

emit_symbol (entropy, entropy- >ac_tbl_no, OxFO) ; 
*i? r -= 16; 
} 

/* Find the number of bits needed for the magnitude of the coefficient */ 
= nbits =1; /* there must be at least one 1 bit */ 

Ll while ({temp »= 1)) 
^ nbits++; 

/* Check for out-of -range coefficient values */ 
faj if (nbits > MAX_COEF_BITS) 
hJ ERREXIT ( cinf o , JERR_BAD_DCT_COEF) ; 

LJ /* Count/emit Huffman symbol for run length / number of bits */ 
f=l end t_symbol (entropy, entropy- >ac_tbl_no, (r << 4) + nbits); 

/* Emit that number of bits of the value, if positive, */ 
/* or the complement of its magnitude, if negative. */ 
emit_bits (entropy, (unsigned int) temp2, nbits); 

r = 0; /* reset zero run length */ 

} 

if (r > 0) { /* If there are trailing zeroes, */ 

entropy->EOBRUN++; /* count an EOB */ 

if ( entropy- >EOBRUN == 0x7FFF) 

emi t_eobrun( entropy) ; /* force it out to avoid overflow */ 

} 

cinfo->dest->next_output_byte = entropy->next_output_byte; 
cinfo->dest->free_in_buf f er = entropy->f ree_in_buf f er ; 

/* Update restart-interval state too */ 
if (cinf o->restart_interval) { 

if (entropy->restarts_to_go ==0) { 

entropy- >res tar ts_to__go = cinf o->res tar t_interval ; 

entropy- >next_res tar t_num++ ; 

entropy- >next_res tar t_num &= 7; 

} 

entropy- >res tar ts_to_go~- ; 

} 

return TRUE; 
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^e^^Bre-pass to determine the transfoi^^B 

vaHEs and the EOB position. 



y s 



/* It is convenient to make 
* coefficients' absolute vlH^s and the EOB position. 
*/ 

EOB = 0; 

for (k = cinfo->Ss; k <= Se; k++) { 

temp = (*block) [jpeg_natural — order [k] ] ; 

/* We must apply the point transform by Al. For AC coefficients this 

* is an integer division with rounding towards 0. To do this portably 

* in C, we shift after obtaining the absolute value. 
*/ 

if (temp < 0) 

temp = -temp; /* temp is abs value of input */ 

temp »= Al; /* apply the point transform */ 

absvalues[k] = temp; /* save abs value for main pass */ 
if (temp == 1) 

EOB = k; /* EOB = index of last newly-nonzero coef */ 

} 

/* Encode the AC coefficients per section G. 1.2.3, fig. G.7 */ 

r = 0; /* r = run length of zeros */ 

BR = 0; /* BR = count of buffered bits added now */ 

BR_buffer = entropy- >bit_buffer + entropy- > BE; /* Append bits to buffer */ 

for (k = cinfo->Ss; k <= Se; k++) { 
if ((temp = absvaluesfk] ) ==0) { 
r++; 

continue; 

} 

/* Emit any required ZRLs, but not if they can be folded into EOB */ 
: ~: while (r > 15 && k <= EOB) { 

dl /* emit any pending EOBRUN and the BE correction bits */ 
emit_eobrun (entropy) ; 
/* Emit ZRL */ 

emit_symbol (entropy, entropy->ac_tbl_no, OxFO) ; 
r -= 16; 

/* Emit buffered correction bits that must be associated with ZRL */ 
emit_buf fer ed_bits (entropy, BR_buffer, BR) ; 
BR_buffer = entropy- >bit_buffer; /* BE bits are gone now */ 
BR = 0; 

} 

,- h /* If the coef was previously nonzero, it only needs a correction bit. 
2 * NOTE: a straight translation of the spec's figure G.7 would suggest 
1 * that we also need to test r > 15. But if r > 15, we can only get here 
is * if k > EOB, which implies that this coefficient is not 1. 

s if (temp > 1) { 

1 /* The correction bit is the next bit of the absolute value. */ 
\ BR_buf fer (BR++] = (char) (temp & 1) ; 
- s continue; 
} 

/* Emit any pending EOBRUN and the BE correction bits */ 
emit_eobrun (entropy) ; 

/* Count /emit Huffman symbol for run length / number of bits */ 
emit_symbol (entropy, entropy->ac_tbl_no, (r « 4) + 1); 

/* Emit output bit for newly-nonzero coef */ 

temp = ( (*block) [ jpeg_natural_order[k] ] < 0) ? 0 : 1; 

emit_bits (entropy, (unsigned int) temp, 1) ; 

/* Emit buffered correction bits that must be associated with this code */ 
emit_buf fered_ bits (entropy, BR__buffer, BR) ; 

BR_buffer = entropy- >bit_buf fer ; /* BE bits are gone now */ 
BR = 0; 

r = 0; /* reset zero run length */ 

} 

if (r > 0 | | BR > 0) { /* If there are trailing zeroes, */ 
entropy- >EOBRUN++; /* count an EOB */ 

entropy->BE += BR; /* concat my correction bits to older ones */ 

/* We force out the EOB if we risk either: 

* 1. overflow of the EOB counter; 

* 2. overflow of the correction bit buffer during the next MCU. 
*/ 

if (entropy->EOBRUN == 0x7FFF || entropy->BE > (MAX_CORR_BITS-DCTSIZE2+l) ) 
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emit_eobrun< entropy) ; 

} 

c i n f o - >des t - >nex t_ou tpu t _J 
cinf o->dest->f ree_in_buf f < 

/* Update restart- interval state too */ 
if (cinfo->restart_interval) { 

if (entropy->restarts_to_go == 0) { 

entropy- >res tar ts„to_go = cinf o->res tar t_interval ; 

entropy->next_restart_num++ ; 

entropy->next_restart_num &= 7; 

} 

entropy->restarts__to_go-- ; 

} 

return TRUE; 



r te - entropy- >next_ ou tpu t_byte; 
■ = entropy->free_in_buf fer; 



* Finish up at the end of a Huffman-compressed progressive scan. 
*/ 

METHODDEF (void) 

f inish^pass.phuf f ( j_compress_ptr cinfo) 
{ 

phuf f_entropy__ptr entropy = (phuf f__entropy_ptr) cinf o-> entropy ; 

entropy->next_output_byte = cinf o->dest->next_output_byte; 
entropy- >free_in — buffer = cinf o->dest->f ree_in„buf fer ; 

Flush out any buffered data */ 
Jemit_eobrun ( entropy) ; 
fjf lush_bits (entropy) ; 

"4einfo->dest->next_output_byte = entropy->next_output_byte; 
Seinfo->dest->free_in_buf f er = entropy->free_in_buf f er; 

Finish up a statistics-gathering pass and create the new Huffman tables. 
*|ETHODDEF(void) 

5iliish__pass_gather_phuf f ( j_compress_ptr cinfo) 

m 

^'phuf f_entropy_ptr entropy = (phuf f_entropy_ptr) cinf o->entropy; 
jtoolean is_DC„band; 
r3.nt ci, tbl; 

?gpeg_component_inf o * compptr; 
^tTHUFF_TBL **htblptr; 
boolean did[NUM_HUFF_TBLS] ; 

/* Flush out buffered data (all we care about is counting the BOB symbol) 
emit_eobrun (entropy) ; 

is_DC_band = {cinf o->Ss == 0) ; 

/* It's important not to apply jpeg_gen_optimal_table more than once 
* per table, because it clobbers the input frequency counts! 
*/ 

MEMZERO (did, SIZEOF(did) ) ; 

for (ci = 0; ci < cinf o->comps_in_scan; ci++) { 
compptr = cinf o->cur_comp — info [ci] ; 
if ( i s_DC_band ) { 

if (cinfo->Ah != 0) /* DC refinement needs no table */ 
continue ; 

tbl - compptr->dc_tbl_no; 
} else { 

tbl = compptr->ac_tbl_no; 

} 

if (! did[tbl]) { 
if (is_DC_band) 

htblptr = & cinfo->dc_huf f_tbl_ptrs [tbl] ; 
else 

htblptr = & cinfo->ac_huf f_tbl_ptrs [tbl] ; 
if (*htblptr == NULL) 
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*htblptr = jpeg_alloc^fcf f_table{ { j_common__ptr) cinfo) 
jpeg_ gen_optimal_ table {^^Bo, *htblptr, entropy- >count_ptrs | 
did(tbl) = TRUE; 

} 

} 

} 



/* 

* Module initialization routine for progressive Huffman entropy encoding. 
*/ 

GLOBAL (void) 

jinit_phuf f_encoder ( j_compress_ptr cinfo) 
{ 

phuf f_entropy_j?tr entropy; 
int i ; 

entropy = (phuf f_entropy_ptr) 

(*cinf o->mem->alloc_small) ( ( j_common_j?tr) cinfo, JPOOL_IMAGE, 
SIZEOF(phuf f_entropy_encoder) ) ; 
cinf o->entropy = (struct jpeg_entropy_encoder *) entropy; 
entropy->pub.start_pass = start_pass_phuf f ; 

/* Mark tables unallocated */ 

for (i = 0; i < NUM_HUFF_TBLS ; i++) { 

entropy- >derived_tbls [i] = NULL; 

entropy->count_ptrs [i] = NULL; 

} 

entropy->bit_buf f er = NULL; /* needed only in AC refinement scan */ 

Mi 

##dif /* C_PROGRESSIVE_SUPPORTED */ 
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/* 

* jcprepct.c 
★ 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains the compression preprocessing controller. 

* This controller manages the color conversion, downsampling, 

* and edge expansion steps. 
* 

* Most of the complexity here is associated with buffering input rows 

* as required by the downsampler. See the comments at the head of 

* jcsample.c for the downsampler ' s needs. 
*/ 

#define JPEG__INTERNALS 
#include "j include. h" 
# include "jpeglib.h" 



/* At present, jcsample.c can request context rows only for smoothing. 

* In the future, we might also need context rows for CCIR601 sampling 

* or other more-complex downsampling procedures. The code to support 

* context rows should be compiled only if needed. 
*/ 

#ifdef INPUT_SMOOTHING_SUPPORTED 
#define CONTEXT_ROWS_SUP PORTED 
#endif 



/n 

*!^For the simple (no-context-row) case, we just need to buffer one 

*^row group's worth of pixels for the downsampling step. At the bottom of 

Olthe image, we pad to a full row group by replicating the last pixel row. 

S^The downsampler 's last output row is then replicated if needed to pad 

**out to a full iMCU row. 

*-j 

^iWhen providing context rows, we must buffer three row groups' worth of 

pixels. Three row groups are physically allocated, but the row pointer 
€j arrays are made five row groups high, with the extra pointers above and 
below "wrapping around" to point to the last and first real row groups. 
v ~This allows the downsampler to access the proper context rows. 
* At the top and bottom of the image, we create dummy context rows by 
1*== copying the first or last real pixel row. This copying could be avoided 
*%hy pointer hacking as is done in jdmainct.c, but it doesn't seem worth the 
trouble on the compression side. 

"•a 

4*J Private buffer controller object */ 

typedef struct { 

struct jpeg„c_prep_c on tr oiler pub; /* public fields */ 

/* Downsampling input buffer. This buffer holds color-converted data 
* until we have enough to do a downsample step. 
*/ 

JSAMPARRAY color_buf [MAX_COMPONENTS] ; 

JDIMENSION rows_to_go; /* counts rows remaining in source image */ 
int next_buf_row; /* index of next row to store in color_buf */ 

#ifdef CONTEXT_ROWS„SUPPORTED /* only needed for context case */ 

int this_row_group; /* starting row index of group to process */ 

int next_buf_ stop; /* downsample when we reach this index */ 

#endif 

} my_pr ep_contr oiler; 

typedef my_j?rep_controller * my_prep_ptr; 



/* 

* Initialize for a processing pass. 
*/ 

METHODDEF(void) 

starts pass_prep ( j_compress_ptr cinfo, J_BUF_MODE pass_mode) 
{ 

my_prep_ptr prep = (my_prep_j?tr) cinfo->prep; 
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if (pass_mode ! = JBUF_PASSj^^B) 

ERREXIT(cinfo, JERR_BAD Jj5Kr_M0DE ) ; 



/* Initialize total-height counter for detecting bottom of image */ 
prep->rows_to_go = cinf o->image_height; 
/* Mark the conversion buffer empty */ 
prep->next_buf_row = 0; 
tifdef CONTEXT_ROWS_SUPPORTED 

/* Preset additional state variables for context mode. 

* These aren't used in non-context mode, so we needn't test which mode. 

*/ 

prep- >thi s_row_.gr oup = 0; 

/* Set next_buf — stop to stop after two row groups have been read in. */ 
prep->next_buf_stop = 2 * cinf o->max_v_samp_f actor; 
tendif 



/* 

* Expand an image vertically from height input_rows to height output_rows, 

* by duplicating the bottom row. 
*/ 

LOCAL (void) 

expand_bottom_edge (JSAMPARRAY image_data, JDIMENSION nurr_cols, 
int input_rows, int output_rows) 

{ 

register int row; 

for (row = input_rows; row < outputs rows; row++) { 
CJ jcopy_sample_rows (image_data, input_rows-l, image_data, row, 
;l 1 , num_cols) ; 

AJ 

itl Process some data in the simple no-context case. 

»- 

Preprocessor output data is counted in "row groups". A row group 
Pi I is defined to be v_samp_f actor sample rows of each component. 
"**" Downsampling will produce this much data from each max_v_samp_f actor 
^ input rows. 

METHODDEF ( void) 

pre_process_data ( j_compress_ptr cinfo, 

Sj JSAMPARRAY input_buf, JDIMENSION *in_row_ctr, 

~t JDIMENSION in_rows_avail, 

feJ JS AMP IMAGE output_buf, JDIMENSION *out_row_group_ctr , 

rl JDIMENSION out_row__groups_avail) 

c 

my_prep_ptr prep = (my_prep_ptr) cinfo->prep; 
int numrows, ci; 
JDIMENSION inrows; 
jpeg_component_info * compptr; 

while (*in_row_ctr < in_rows — avail && 

*out_row_group_ctr < out_row_groups_avail) { 
/* Do color conversion to fill the conversion buffer. */ 
inrows = in_ rows_avail - *in_ row_ctr; 

numrows = c info ->max_v_samp_f actor - prep->next_buf_row; 

numrows = (int) MIN( (JDIMENSION) numrows, inrows); 

( *cinfo->cconvert->color_convert) (cinfo, input_buf + *in_row_ctr, 

prep->color„buf , 

(JDIMENSION) prep->next_buf_row, 

numrows) ; 
*in_row_ctr += numrows; 
prep->next_buf — row += numrows; 
prep->rows_ to_go -= numrows; 

/* If at bottom of image, pad to fill the conversion buffer. */ 
if (prep->rows_to_go == 0 && 

prep->next_buf_row < cinf o->max_v_samp_f actor) { 

for (ci =0; ci < cinf o->num_components ; ci++) { 
expand_bottom_edge (prep->color_buf [ci] , cinf o->image_width, 
prep->next_buf_row, cinf o->max_v__samp_ factor ) ; 

} 

prep->next_buf_row = cinf o->max_v — samp_f actor ; 

} 



2 



/* If we've filled the co^jjjrsion buffer, empty it. */ 
if (prep->next^.buf_row -=^H^fo->max_v_samp_f actor ) { 
(*cinfo->downsample->r'i;^BKniple) (cinfo, 

prep->coior_buf , (JDIMENSION) 0, 
output_buf , *out_row_group_ctr) ; 
prep->next_buf_row = 0; 
( *out_row_group_c tr ) + + ; 

} 

/* If at bottom of image, pad the output to a full iMCU height. 
* Note we assume the caller is providing a one-iMCU-height output buffer 
V 

if (prep->rows_to_go == 0 && 
*out_row_group_ctr < out_ row_groups_avail ) { 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components ; 
ci++, compptr++) { 
expand_bottom_edge (output_buf [ci] , 

compptr->width_in_blocks * DCTSIZE, 

(int) (*out_row_group_ctr * compptr->v_samp_f actor) , 
(int) (out_row_groups_avail * compptr- >v — samp_f actor) ) ; 

} 

*out_row_group_ctr = out_row_groups_avail ; 

break; /* can exit outer loop without test */ 

} 

} 

} 




#ifdef CONTEXT_ROWS_SUPPORTED 
/* 

* Process some data in the context case. 
MffHODDEF(void) 

pEe_process_context ( j„compress_ptr cinfo, 

JSAMP ARRAY input_buf , JDIMENSION *in_row_ctr, 
JDIMENSION in_rows_avail, 
V| JSAMP IMAGE output_buf, JDIMENSION *out_row_group_ctr , 

-2 JDIMENSION out_ row_groups_avail) 

U§iy_prep_ptr prep = (my_prep_ptr) cinfo->prep; 
^int numrows, ci; 

^■int buf_height = cinf o->max_v_samp_f actor * 3; 
s JDIMENSION inrows; 

Awhile (*out_row_group_ctr < out_row_groups_avail) { 
%J if (*in__row_ctr < in_rows_avail) { 

f| | /* Do color conversion to fill the conversion buffer. */ 

:_" = inrows = in_rows_avail - *in_row_ctr; 

y numrows = prep ->next_buf_s top - prep->next_buf_row; 

r| numrows = (int) MIN( (JDIMENSION) numrows, inrows); 

Zl (*cinfo->cconvert->color_convert) (cinfo, input_buf + *in_row_ctr, 

~ prep->color_buf , 

(JDIMENSION) prep->nextJbuf_row, 

numrows) ; 

/* Pad at top of image, if first time through */ 
if (prep->rows_to_go == cinf o->image_height) { 
for (ci = 0; ci < cinf o->num_components; ci++) { 
int row; 

for (row = 1; row <= cinf o->max_v_samp_f actor ; row++) { 
jcopy_sample_rows (prep->color_buf [ci] , 0 , 
prep->color_buf [ci] , -row, 
1, cinf o->image_width) ; 

} 

} 

} 

*in_row_ ctr += numrows; 
prep->next_buf_row += numrows; 
prep->rows_to_go -= numrows; 
} else { 

/* Return for more data, unless we are at the bottom of the image. */ 
if (prep->rows_ to_go != 0) 
break; 

/* When at bottom of image, pad to fill the conversion buffer. */ 
if (prep->next__buf_row < prep- >next_buf_s top) { 
for (ci = 0; ci < cinf o->num_components; ci++) { 

expand_bottom_edge (prep->color_buf [ci] , cinf o->image_width, 
prep->next__buf_row, prep ->next_buf_s top) ,* 

} 

prep->next_buf_row = prep ->next_buf_s top; 



tfl^a, downsample a row group. */ 



} 

} 

/* If we've gotten enough^ 

if (prep->next_buf_row == prep- >next_buf_s top) { 
(*cinf o->downsample->downs ample) (cinfo, 
prep->color_buf , 

(JDIMENSION) prep->this_row_group, 
output_buf , * out_row__group_c tr ) ; 
( * out row group_c tr ) + + ; 

/* Advance pointers with wraparound as necessary. */ 

prep->this_row_group += c info ->max_v_samp_f actor; 

if (prep->this_row_group >= buf_height) 
prep->this — row„group = 0; 

if (prep->next_buf_row >= buf_height) 
prep->next_buf„row = 0; 

prep ->next_buf_s top = prep->next_buf_row + cinf o->max_v_samp_f actor; 

} 



/* 

* Create the wrapped- around downsampling input buffer needed for context mode. 
*/ 

LOCAL (void) 

create_context_ buf fer ( j_compress_ptr cinfo) 
{ 

my_prep_j?tr prep = (my_prep_ptr) cinfo->prep; 

int rgroup_height = cinf o->max_v_samp_f actor ; 

int ci, i; 
fj;peg_component_ inf o * compptr; 
ifSAMPARRAY true_buffer, fake_buffer; 

Qj|* Grab enough space for fake row pointers for all the components; 
"el* we need five row groups' worth of pointers for each component. 

Hi*/ 

*-==£ake_buffer = (JSAMPARRAY) 

t sl (*cinf o->mem->alloc_small) ( (j_coiranonj)tr) cinfo, JPOOL_IMAGE, 
( cinfo- >num_components * 5 * rgroup_height) * 
SIZEOF ( JSAMPROW) ) ; 

5 3 2 

: 'ior (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components; 
s ci++, compptr ++) { 

Lh /* Allocate the actual buffer space (3 row groups) for this component. 

L=. * We make the buffer wide enough to allow the downsampler to edge -expand 

*=J * horizontally within the buffer, if it so chooses. 

ni */ 

%_* true_buffer = ( *cinf o->mem->alloc_sarray) 
( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
(JDIMENSION) (((long) compptr ->width_in_blocks * DCTSIZE * 
f% cinf o->inax — h_samp_f actor) / compptr- >h_samp_f actor) , 

(JDIMENSION) (3 * rgroup_height ) ) ; 
/* Copy true buffer row pointers into the middle of the fake row array */ 
MEMCOPY(fake_buf fer + rgroup_height, true_buffer, 

3 * rgroup_height * SIZEOF (JSAMPROW) ) ; 
/* Fill in the above and below wraparound pointers */ 
for (i = 0; i < rgroup__height ; i++) { 

fake_buf f er [i] = true_buf f er [2 * rgroup_height + i] ; 
fake_buf f er [4 * rgroup_height + i] = true_buf f er [i] ; 

} 

prep->color_buf [ci] = fake_buffer + rgroup_height; 

fake_buffer += 5 * rgroup_height ; /* point to space for next component */ 

} 

} 

#endif /* CONTEXT_ROWS_SUPPORTED */ 



/* 

* Initialize preprocessing controller. 
*/ 

GLOBAL (void) 

jinit__c_prep_controller ( j_compress_ptr cinfo, boolean need_f ull__buf f er ) 
{ 

my_prep__ptr prep; 
int ci; 

jpeg_ component_inf o * compptr; 
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if (need_fullj3uffer) /J^tefety check */ 

ERREXIT ( cinf o , JERR_BAD_^^Br_MODE ) ; 

prep = (my_prep_ptr) 

( *cinf o->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE , 
SIZEOF (my_prep_c on tr oiler) ) 
cinfo->prep = (struct jpeg__c_prep_controller *) prep; 
prep- >pub.s tar t_pass - start_j?ass_prep; 

/* Allocate the color conversion buffer. 

* We make the buffer wide enough to allow the downsampler to edge- expand 

* horizontally within the buffer, if it so chooses. 
*/ 

if (cinf o->downs ample ->need_c on t ex t_rows) { 

/* Set up to provide context rows */ 
iifdef CONTEXT_ROWS_SUPPORTED 

prep->pub.pre_process_data = pre_process_context ; 

create_context_buf f er (cinf o) ; 
#else 

ERREXIT (C info, JERR_NOT_COMPILED) ; 
#endif 
} else { 

/* No context, just make it tall enough for one row group */ 
prep->pub.pre_process_data = pre_process„data; 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components; 
ci++, compptr++) { 

prep->color_buf [ci] = (*cinf o->mem->alloc_sarray) 
( ( j_common_ptr) cinfo, JPOOL_IMAGE , 
(JDIMENSION) (((long) compptr- >width_in_blocks * DCTSIZE * 
cinf o->max_h_samp_f actor) / compptr- >h_samp„f actor) , 
(JDIMENSION) cinfo->max_v_samp_factor) ; 

n > 




/* 

* jcsample.c 
* 

* Copyright (C) 1991-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains downsampling routines. 
* 

* Downsampling input data is counted in "row groups". A row group 

* is defined to be max_v_samp_f actor pixel rows of each component, 

* from which the downsampler produces v_samp_f actor sample rows. 

* A single row group is processed in each call to the downsampler module. 
* 

* The downsampler is responsible for edge -expansion of its output data 

* to fill an integral number of DCT blocks horizontally. The source buffer 

* may be modified if it is helpful for this purpose (the source buffer is 

* allocated wide enough to correspond to the desired output width) . 

* The caller (the prep controller) is responsible for vertical padding. 
* 

* The downsampler may request "context rows" by setting need_context_rows 

* during startup. In this case, the input arrays will contain at least 

* one row group's worth of pixels above and below the passed-in data; 

* the caller will create dummy rows at image top and bottom by replicating 

* the first or last real pixel row. 
* 

* An excellent reference for image resampling is 

* Digital Image Warping, George Wolberg, 1990. 

* Pub. by IEEE Computer Society Press, Los Alamitos, CA. ISBN 0-8186-8944-7. 
* 

* The downsampling algorithm used here is a simple average of the source 
^pixels covered by the output pixel. The hi-falutin sampling literature 

*;; refers to this as a "box filter" . In general the characteristics of a box 
^Jfilter are not very good, but for the specific cases we normally use (1:1 
f^and 2:1 ratios) the box is equivalent to a "triangle filter" which is not 
^nearly so bad. If you intend to use other sampling ratios, you'd be well 
^advised to improve this code. 
\I 

*hA simple input -smoothing capability is provided. This is mainly intended 
^for cleaning up color-dithered GIF input files (if you find it inadequate, 
^pwe suggest using an external filtering program such as pnmconvol). When 
*1 enabled, each input pixel P is replaced by a weighted sum of itself and its 
^ eight neighbors. P's weight is 1-8*SF and each neighbor's weight is SF, 

* where SF = (smoothing_f actor / 1024). 

Currently, smoothing is only supported for 2h2v sampling factors. 

Refine JPEG_INTERNALS 
Cinclude "jinclude.h" 
#lficlude "jpeglib.h" 

A** Pointer to routine to downsample a single component */ 
typedef JMETHOD (void, downs amplel_ptr , 

( j_ compress_ptr cinfo, jpeg_component_inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY output_data) ) ; 

/* Private subobject */ 

typedef struct { 

struct jpeg_downsampler pub; /* public fields */ 

/* Downsampling method pointers, one per component */ 
downsamplel_ptr methods [MAX_COMPONENTS] ; 
} my_downs amp 1 e r ; 

typedef my_downsampler * my_downsample_ptr ; 



/* 

* Initialize for a downsampling pass. 
*/ 

METHODDEF (void) 

start_pass_downsample { j„compress_ptr cinfo) 
{ 

/* no work for now */ 

} 
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3i^^Hy from width input_cols to width ^^Bt 

noaBRIamples . 



* Expand a component horizon^^By from width input_cols to width ^^^ut_cols, 

* by duplicating the rightmoaWsamples . 
*/ 



LOCAL (void) 

expand_right_edge (JSAMPARRAY image_data, int num_ rows, 

JDIMENSION input_cols, JDIMENSION output_cols) 

{ 

register JSAMPROW ptr; 
register J SAMPLE pixval; 
register int count; 
int row; 

int numcols = (int) (output_cols - input_cols) ; 

if (numcols > 0) { 

for (row = 0; row < num_rows; row++) { 
ptr = image_data[row] + input_cols; 

pixval = ptr[-l]; /* don't need GET JSAMPLE ( ) here */ 

for (count = numcols; count > 0; count--) 

*ptr++ = pixval; 

} 

} 



/* 

* Do downs amp ling for a whole row group (all components) . 

* In this version we simply downsample each component independently. 
*/ 

MSiHODDEF (void) 

seJi_downsample ( j_compress_j?tr cinfo, 
psa JSAMPIMAGE input_buf # JDIMENSION in_row_index, 

y " JSAMPIMAGE output_buf, JDIMENSION out_row_group__index) 

Hray_downsample_ptr downsample = (my_downsample_ptr) cinf o->downs ample ; 
"fnt ci; 

^Jpeg_component_info * compptr; 
J JSAMPARRAY in_ptr, out_ptr; 

5 ^for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->nunucomponents ; 
5 ci++, compptr++) { 

iLi, in_ptr = input_buf [ci] + in_row_index; 

out_ptr = output„buf [ci] + (out_row_group_index * compptr- >v_samp_fac tor ) ; 
LJ (*downsample->methods [ci] ) (cinfo, compptr, in__ptr, out_ptr) ; 

m 
}^ 

^Downsample pixel values of a single component. 

* One row group is processed per call. 

* This version handles arbitrary integral sampling ratios, without smoothing. 

* Note that this version is not actually used for customary sampling ratios. 
*/ 

METHODDEF(void) 

int_ downsample ( j_compress_ptr cinfo, jpeg_component„inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY output_data) 

{ 

int inrow, outrow, h_expand, v_expand, numpix, numpix2, h, v; 
JDIMENSION outcol, outcol_h; /* outcol_Ji == outcol*h_expand */ 
JDIMENSION output_cols = compptr ->width_in__blocks * DCTSIZE; 
JSAMPROW inptr, outptr; 
INT32 outvalue; 

h_expand = cinf o->max_h_samp_f actor / compptr- >h_s amp_f actor ; 
v_expand = cinf o->max_v_samp_f actor / compptr - >v_samp_f actor ; 
numpix = h_expand * v_expand; 
numpix2 = numpix/ 2; 

/* Expand input data enough to let all the output samples be generated 

* by the standard loop. Special-casing padded output would be more 

* efficient. 
*/ 

expand_right_edge ( input_data, cinf o->max_v_samp__f actor , 
cinf o->image_width, output_cols * h_expand) ; 
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inrow = 0; 

for (outrow = 0; outrow < o^^^tr->v_samp_f actor ; outrow++) { 
outptr = outputs data [outr^^^ 

for (outcol = 0, outcol_h = 0; outcol < output_cols; 
outcol++, outcol_h += h_expand) { 
outvalue = 0; 

for (v = 0; v < v_expand; v++) { 
inptr = input_data [inrow+v] + outcol_h; 
for (h = 0; h < h_expand; h++) { 

outvalue += (INT32) GETJSAMPLE (* inptr ++) ; 

} 

} 

*outptr++ = ( JS AMPLE ) {(outvalue + numpix2) / numpix) 

} 

inrow += v_ expand; 

} 



/* 

* Downsample pixel values of a single component. 

* This version handles the special case of a full-size component, 

* without smoothing. 
*/ 

METHODDEF (void) 

fullsize_downsample ( j_compress_ptr cinfo, jpeg_component_ inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY output_data) 

{ 

/* Copy the data */ 

j c opy_s amp 1 e_r ows (input_ data, 0, output_data, 0, 
rl cinf o->max_ v_samp_f actor, cinf o->image_width) ; 

lZ* Edge -expand */ 

^expand_right_edge ( output_data , cinf o->max_v_samp_f actor , 

Ql cinf o->image_width, compptr- >width_in_blocks * DCTSIZE) ; 

"^Downsample pixel values of a single component. 

€jThis version handles the common case of 2:1 horizontal and 1:1 vertical, 
f\ | without smoothing. 

* A note about the "bias" calculations: when rounding fractional values to 
f*Si integer, we do not want to always round 0.5 up to the next integer. 

J*r. If we did that, we'd introduce a noticeable bias towards larger values. 
Instead, this code is arranged so that 0.5 will be rounded up or down at 
alternate pixel locations (a simple ordered dither pattern) . 

jIeTHODDEF (void) 

h2vl_downs ample ( j_compress_ptr cinfo, jpeg_component_inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY output_data) 

{ 

int outrow; 
JDIMENSION outcol; 

JDIMENSION output_cols = compptr->width_in_blocks * DCTSIZE; 
register JSAMPROW inptr, outptr; 
register int bias; 

/* Expand input data enough to let all the output samples be generated 

* by the standard loop. Special-casing padded output would be more 

* efficient. 
*/ 

expand_right_edge { input_data , cinf o->max_ v_samp_f actor , 
cinfo->image_width, output_cols * 2); 

for (outrow = 0; outrow < compptr->v_samp_f actor ; outrow++) { 
outptr = outputs data [outrow] ; 
inptr = input_data [outrow] ; 

bias =0; /* bias = 0,1,0,1,... for successive samples */ 

for (outcol = 0; outcol < output_ cols; outcol++) { 

*outptr++ = (JSAMPLE) ( (GETJSAMPLE (* inptr) + GETJSAMPLE < inptr [ 1 ] ) 
+ bias) >> 1) ; 

bias 1; /* 0=>1, 1=>0 */ 

inptr += 2; 

} 

} 

} 
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* Downsample pixel values of^BSingle component. 

* This version handles the standard case of 2:1 horizontal and 2:1 vertical, 

* without smoothing. 
*/ 

METHODDEF ( vo id ) 

h2v2_downsample ( j_compress_ptr cinfo, jpeg__component_inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY output_data) 

{ 

int inrow, outrow; 
JDIMENSION outcol; 

JDIMENSION output_cols = compptr- >width_in_blocks * DCTSIZE; 
register JSAMPROW inptrO, inptrl, outptr; 
register int bias; 

/* Expand input data enough to let all the output samples be generated 

* by the standard loop. Special-casing padded output would be more 

* efficient. 
*/ 

expander ight_edge { input_data , cinf o->max_v_samp_f actor , 
cinfo->image_width, output_cols * 2); 

inrow = 0; 

for (outrow = 0; outrow < compptr->v_samp_f actor; outrow++) { 
outptr = output_data [outrow] ; 
inptrO = input__data [inrow] ; 
inptrl = input_data [inrow+13 ; 

bias =1; /* bias = 1,2,1,2,... for successive samples */ 

for (outcol = 0; outcol < output_cols; outcol++) { 
r* *outptr++ = (JSAMPLE) ( (GET JSAMPLE (* inptrO ) + GET JSAMPLE ( inptrO [ 1 ] ) + 
~: GET J SAMPLE ( * inptrl ) + GET JSAMPLE (inptrl [1] ) 

-i^ + bias ) » 2 ) ; 

fl\ bias A = 3; /* 1=>2, 2=>1 */ 

inptrO += 2; inptrl += 2; 

*i > 

inrow += 2; 

fritdef INPUT_SMOOTHING_SUPPORTED 

Downsample pixel values of a single component. 
^ This version handles the standard case of 2:1 horizontal and 2:1 vertical, 
PI with smoothing. One row of context is required. 

*8gTHODDEF(void) 

h2y2_smooth_downs ample ( j_compress_ptr cinfo, jpeg_component__inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY output_data) 

{ 

int inrow, outrow; 
JDIMENSION colctr; 

JDIMENSION output_cols = compptr ->width_in_blocks * DCTSIZE; 
register JSAMPROW inptrO, inptrl, above_ptr, below_j?tr, outptr; 
INT32 membersum, neighsum, memberscale, neighscale; 

/* Expand input data enough to let all the output samples be generated 

* by the standard loop. Special -casing padded output would be more 

* efficient. 
*/ 

expand_right_edge (input_data - 1, cinf o->max_v_samp_f actor + 2, 
cinf o->image_width, output_cols * 2) ; 

/* We don't bother to form the individual "smoothed" input pixel values; 

* we can directly compute the output which is the average of the four 

* smoothed values. Each of the four member pixels contributes a fraction 

* (1-8*SF) to its own smoothed image and a fraction SF to each of the three 

* other smoothed pixels, therefore a total fraction (l-5*SF)/4 to the final 

* output. The four corner-adjacent neighbor pixels contribute a fraction 

* SF to just one smoothed pixel, or SF/4 to the final output; while the 

* eight edge-adjacent neighbors contribute SF to each of two smoothed 

* pixels, or SF/2 overall. In order to use integer arithmetic, these 

* factors are scaled by 2^16 = 65536. 

* Also recall that SF = smoothing^ f actor / 1024. 
*/ 
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memberscale = 16384 - cinf o^^poothing_f actor * 80; /* scaled (3^^£F)/4 */ 
neighscale = cinf o->smoothi^^^ 



:o^fcaoothing_f actor * 80; /* scaled {l^kSl 
li^Bactor * 16; /* scaled SF/4 */ 



inrow = 0; 

for (outrow = 0; outrow < compptr->v_samp_f actor ; outrow++) { 
outptr = output_data t outrow] ; 
inptrO = input_data [inrow J ; 
inptrl = input_data[inrow+l] ; 
above_ptr = input_data [ inrow- 1 ] ; 
below_ptr = input_data [inrow+2 ] ; 

/* Special case for first column: pretend column -1 is same as column 0 */ 
membersum = GETJSAMPLE ( * inptr 0 ) + GETJSAMPLE ( inptrO [ 1 ] ) + 

GETJSAMPLE ( * inptrl ) + GETJSAMPLE ( inptrl [ 1 ] ) ; 
neighsum = GETJSAMPLE (*above_ptr) + GETJSAMPLE (above_ptr [1] ) + 

GETJSAMPLE (*below_ptr) + GETJSAMPLE (be low_ptr [ 1] ) + 

GETJSAMPLE (* inptrO) + GETJSAMPLE (inptrO [2 ] ) + 

GETJSAMPLE ( * inptrl) + GETJSAMPLE (inptrl [2 ) ) ; 
neighsum += neighsum; 

neighsum += GETJSAMPLE (*above_ptr) + GETJSAMPLE (above_ptr [2] ) + 

GETJSAMPLE ( *below__ptr ) + GETJSAMPLE (below__ptr [2 ] ) ; 
membersum = membersum * memberscale + neighsum * neighscale; 
*outptr++ = (JSAMPLE) ((membersum + 32768) » 16); 
inptrO += 2; inptrl += 2; above_ptr += 2; below_ptr += 2; 

for (colctr = output_cols - 2; colctr > 0; colctr — ) { 

/* sum of pixels directly mapped to this output element */ 
membersum = GETJSAMPLE (* inptrO) + GETJSAMPLE (inptrO [1] ) + 

GETJSAMPLE (* inptrl ) + GETJSAMPLE ( inptrl [ 1 ] ) ; 
/* sum of edge-neighbor pixels */ 

neighsum = GETJSAMPLE ( *above_ptr) + GETJSAMPLE (above_ptr [1] ) + 
CS GETJSAMPLE (*below_ptr) + GETJSAMPLE (be low_ptr [ 1} ) + 

GETJSAMPLE (inptrO [-1] ) + GETJSAMPLE (inptrO [2] ) + 
GETJSAMPLE (inptrl [-1] ) + GETJSAMPLE (inptrl [2] ) ; 
yl /* The edge-neighbors count twice as much as corner-neighbors */ 
•J% neighsum += neighsum; 
r\ /* Add in the corner-neighbors */ 

neighsum += GETJSAMPLE ( above_ptr [-1] ) + GETJSAMPLE (above_ptr [2] ) + 
J] GETJSAMPLE (below__ptr [-1] ) + GETJSAMPLE (be low_ptr [2 ]) ; 

/* form final output scaled up by 2 A 16 */ 
_ membersum = membersum * memberscale + neighsum * neighscale; 
Rj /* round, descale and output it */ 

1" *outptr++ = (JSAMPLE) ((membersum + 32768) » 16); 

f inptrO += 2; inptrl += 2; above_ptr += 2; below_ptr += 2; 

5^ /* Special case for last column */ 

H* membersum = GETJSAMPLE (* inptrO) + GETJSAMPLE (inptrO [1] ) + 



GETJSAMPLE ( * inptrl ) + GETJSAMPLE ( inptrl [ 1 ] ) , 
neighsum = GETJSAMPLE ( * above„p t r ) + GETJSAMPLE ( above_p tr [ 1 ] ) + 
GETJSAMPLE (*below_ptr) + GETJSAMPLE (be low_ptr [ 1] ) + 
GETJSAMPLE (inptrO [-1] ) + GETJSAMPLE (inptrO [1] ) + 
GETJSAMPLE ( inptrl [ - 1 ] ) + GETJSAMPLE ( inptrl [ 1 ] ) ; 
neighsum += neighsum; 

neighsum += GETJSAMPLE (above_ptr [ -1] ) + GETJSAMPLE (above_ptr [1] ) 

GETJSAMPLE (below_ptr [-1] ) + GETJSAMPLE (be low_ptr [1] ) ; 
membersum = membersum * memberscale + neighsum * neighscale; 
*outptr = (JSAMPLE) ((membersum + 32768) » 16); 

inrow += 2; 



} 

} 



/* 

* Downsample pixel values of a single component. 

* This version handles the special case of a full-size component, 

* with smoothing. One row of context is required. 
*/ 

METHODDEF (void) 

fullsize_smooth_downsample ( j„compress_ptr cinfo, jpeg_component_inf o *compptr, 
JSAMP ARRAY input„data, JSAMP ARRAY output_data) 

{ 

int outrow; 
JDIMENSION colctr; 

JDIMENSION output_cols = compptr->width_in_blocks * DCTSIZE; 
register JSAMPROW inptr, above_ptr, below__ptr, outptr; 
INT32 membersum, neighsum, memberscale, neighscale; 
int colsum, lastcolsum, nextcolsum; 
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?h^^Blet all the output samples be gei^^Be 
S^Kal -casing padded output would be bBK 



/* Expand input data enough^^^let all the output samples be gei^^^ed 

* by the standard loop. 

* efficient. 
*/ 

expand_right_edge (input_data - 1, cinfo->max_v_samp_f actor + 2, 
cinfo->image_width, output_cols) ; 

/* Each of the eight neighbor pixels contributes a fraction SF to the 

* smoothed pixel, while the main pixel contributes (1-8*SF) . In order 

* to use integer arithmetic, these factors are multiplied by 2^16 = 65536. 

* Also recall that SF = smoothing_f actor / 1024. 
*/ 

memberscale = 65536L - cinf o->smoothing_f actor * 512L; /* scaled 1-8*SF */ 
neighscale = cinf o->smoothing__f actor * 64; /* scaled SF */ 

for (outrow = 0; outrow < compptr->v_samp_f actor ; outrow++) { 
outptr = output_data [outrow] ; 
inptr = input_data [outrow] ; 
above_ptr = input_data [ outrow- 1] ; 
below_ptr = input_data [outrow+1] ; 

/* Special case for first column */ 

colsum = GET JS AMPLE (* above _j?tr++) + GETJSAMPLE (*below_ptr++) + 

GETJSAMPLE { * inptr ) ; 
membersum = GETJSAMPLE ( *inptr++) ; 

nextcolsum = GETJSAMPLE ( *above_ptr) + GETJSAMPLE (* be low_ptr) + 
GETJSAMPLE { * inptr ) ; 

neighsum = colsum + (colsum - membersum) + nextcolsum; 

membersum = membersum * memberscale + neighsum * neighscale; 
O *outptr++ = (JSAMPLE) ((membersum + 32768) » 16); 
Zl lastcolsum = colsum; colsum = nextcolsum; 

yl for (colctr = output_cols - 2; colctr > 0; colctr--) { 
j% membersum = GETJSAMPLE (*inptr++) ; 

above_ptr++ ; below_j?tr++; 
N s nextcolsum = GETJSAMPLE (*above_ptr) + GETJSAMPLE (* be low_ptr) + 
if% GETJSAMPLE ( * inptr ) ; 

Zl neighsum = lastcolsum + (colsum - membersum) + nextcolsum; 

membersum = membersum * memberscale + neighsum * neighscale; 
f|j *outptr++ = (JSAMPLE) ((membersum + 32768) » 16); 

lastcolsum = colsum; colsum = nextcolsum; 

f } 

f=* /* Special case for last column */ 
J; membersum = GETJSAMPLE (* inptr ) ; 

!U neighsum = lastcolsum + (colsum - membersum) + colsum; 
\.l membersum = membersum * memberscale + neighsum * neighscale; 
*outptr = (JSAMPLE) ((membersum + 32768) » 16); 

#endif /* INPUT„SMOOTHING_SUPPORTED */ 



/* 

* Module initialization routine for downsampling. 

* Note that we must select a routine for each component. 
*/ 

GLOBAL (void) 

jinit_downs ampler ( j_compress_ ptr cinfo) 
{ 

my_downsample_ptr downsample; 
int ci; 

jpeg_component„inf o * compptr; 
boolean smoothok = TRUE; 

downsample = ( my_downs amp 1 e__p t r ) 

(*cinfo->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
S I ZEOF ( my_downs amp 1 er ) ) ; 
cinfo->downsample = (struct jpeg_downs ampler *) downsample; 
downs ample->pub. start __pass = start_pass_downsample; 
downs ample->pub. downsample = sep_downsample; 
downsample->pub.need_context_rows = FALSE; 

if (cinfo->CCIR601_sampling) 

ERREXIT( cinfo, JERR_CCIR601_NOTIMPL) ; 
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/* Verify we can handle the^^Bpling factors, and set up method ^^Bters 
for (ci = 0, compptr = cinfc^^omp_inf o; ci < cinf o->nun\_compone™^ 
ci++ , compptr++ ) { 
if ( compptr ->h_samp_f actor == cinf o->max_h_samp_f actor && 
compptr- >v_samp_f actor == cinf o->max_v_samp_f actor) { 
#ifdef INPUT_SMOOTHING_SUPPORTED 

if ( cinf o->smoothing_f actor) { 
downsample->methods [ci] = fullsize_smooth_downsample; 
downsample->pub.need_context_rows = TRUE; 
} else 

#endif 

downsample->raethods [ci] - f ullsize_downsample; 

} else if (compptr->h_samp_f actor * 2 == cinf o->max_h_samp_f actor && 
compptr- >v_samp_f actor == cinf o->max_v_samp_f actor) { 
smoothok = FALSE; 

downsample->methods [ci] = h2vl_downsample; 
} else if (compptr->h„samp_f actor * 2 == cinf o->max_h_samp_f actor && 
compptr ->v_samp_f actor * 2 == cinf o->max_v_samp_f actor) { 
#ifdef INPUT_SMOOTHING_SUPPORTED 

if (cinf o->smoothing_f actor) { 
downsample->methods [ci] = h2v2_smooth_downsample; 
downsample->pub. need_c ont ex t_rows = TRUE; 
} else 

#endif 

downsample->methods [ci] = h2v2_downs ample ; 

} else if ( (cinf o->max_h_samp_f actor % compptr ->h_samp_f actor) == 0 && 
(cinfo->max_v__samp_f actor % compptr- >v_samp_f actor) ==0) { 
smoothok = FALSE; 

downsample->methods [ci] = in t — downs ample ; 
} else 

□ ERREXIT (cinf o , JERR_FRACT_SAMPLE_NOTIMPL) ; 

a! 

#lldef INPUT_SMOOTHING_SUPPORTED 

■JXf (cinf o->smoothing_f actor && ! smoothok) 

T= TRACEMS (cinf o , 0, JTRC_SMOOTH_NOTIMPL) ; 
#dndif 



f2 a 
i if 



Pi 
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/* 

* jctrans.c 
* 

* Copyright (C) 1995-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains library routines for transcoding compression, 

* that is, writing raw DCT coefficient arrays to an output JPEG file. 

* The routines in jcapimin.c will also be needed by a transcoder. 
*/ 

#define JPEG_INTERNALS 
# include " j include. h" 
#include " jpeglib.h" 



/* Forward declarations */ 
LOCAL (void) transencode_master — selection 

JPP ( ( j_compress_ptr cinfo, jvirt_barray_jptr * coef_arrays) ) ; 
LOCAL (void) transencode_ coef_cont roller 

JPP( ( j_compress_ptr cinfo, jvirt_barray_ptr * coef_arrays) ) ; 



/* 

* Compression initialization for writing raw-coefficient data. 

* Before calling this, all parameters and a data destination must be set up. 

* Call jpeg_finish_ compress ( ) to actually write the data. 
* 

* The number of passed virtual arrays must match cinf o->num_components . 

* Note that the virtual arrays need not be filled or even realized at 
Fithe time write_coef f icients is called; indeed, if the virtual arrays 
.^Iwere requested from this compression object's memory manager, they 
^-"typically will be realized during this routine and filled afterwards. 

Gp^BAL ( void) 

jl>4g_write_coef f icients ( j_compress_ptr cinfo, jvirt_barray_ptr * coef_arrays) 

U% 

~lf (cinfo->global__state != CSTATE_START) 

UJ ERREXITl (cinfo, JERR__BAD_STATE , cinf o->global_state) ; 
fj/* Mark all tables to be written */ 
_ "jpeg_suppress_tables (cinf o, FALSE) ; 

- /* (Re) initialize error mgr and destination modules */ 
|=K*cinfo->err->reset„error_mgr) ( ( j_common_ptr) cinfo) ; 
p-j(*cinf o->dest->init_destination) (cinfo) ; 
rf/* Perform master selection of active modules */ 
nJtransencode_master_select ion (cinfo, coef_arrays) ; 
^y* wait for jpeg_f inish_compress ( ) call */ 
-£info->next_scanline - 0; /* so jpeg_write_marker works */ 
Liinfo->global_state = CSTATE_WRCOEFS ; 



/* 

* Initialize the compression object with default parameters, 

* then copy from the source object all parameters needed for lossless 

* transcoding. Parameters that can be varied without loss (such as 

* scan script and Huffman optimization) are left in their default states. 
*/ 

GLOBAL (void) 

jpeg_copy_critical_parameters ( j_decompress_ptr srcinfo, 
j„compress_ptr dstinfo) 

{ 

JQUANT_TBL ** qtblptr; 
jpeg_component_info *incomp, *outcomp; 
JQUANT_TBL *c_quant , *slot_ quant ; 
int tblno, ci, coefi; 

/* Safety check to ensure start_compress not called yet. */ 
if (dstinfo->global_state != CSTATE_START) 

ERREXITl (dstinfo, JERR_BAD_STATE , dstinf o->global_state) ; 
/* Copy fundamental image dimensions */ 
dstinf o->image_width = srcinf o->image_width; 
dstinf o->image_ height = srcinf o->image_height , • 
dstinf o->input_ components = srcinf o->num_component s, • 
dstinf o->in_color_space = srcinf o->jpeg_color_space; 
/* Initialize all parameters to default values */ 
jpeg_set_def aults (dstinfo) ; 
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:h^lfe wrong color space, eg YCbCr if in^^^j 
t ^^V er markers for the image colorspc^^H 



/* jpeg_set_defaults may ch^^^ wrong colorspace, eg YCbCr if in^^^is RGB. 

* Fix it to get the right 
*/ 

jpeg_set_colorspace (dstinfo, srcinf o->jpeg_color — space) ; 
dstinf o->data_precision = srcinf o->data_precision; 
dstinf o->CCIR601_sampling = srcinf o->CCIR60 l_sampling; 
/* Copy the source's quantization tables. */ 
for (tblno = 0; tblno < NUM_QUANT_TBLS ; tblno++) { 
if ( srcinf o->quant_tbl_ptrs[ tblno] != NULL) { 
qtblptr = & dstinfo->quant_tbl_ptrs [tblno] ; 
if (*qtblptr == NULL) 
*qtblptr = jpeg_alloc_quant_table ( { j_common_ptr) dstinfo); 
MEMCOPY ( ( *qtblptr ) ->quantval , 

srcinf o->quant_ tbl__ptrs [tblno] ->quantval, 
SIZEOF( (*qtblptr) ->quantval) ) ; 
(*qtblptr)->sent_table = FALSE; 

} 

} 

/* Copy the source's per -component info. 

* Note we assume jpeg_set_de faults has allocated the dest comp_info array. 
*/ 

dstinf o->num__components = srcinf o->num_ components; 

if (dstinf o->num_components < 1 | | dstinf o->num_components > MAX_COMPONENTS ) 
ERREXIT2 (dstinfo, JERR_COMPONENT_COUNT , dstinf o->num_components , 
MAX_COMPONENTS) ; 

for (ci = 0, incomp = srcinf o->comp_inf o, outcomp = dstinfo- >comp_inf o; 
ci < dstinf o->num_components; ci++, incomp++, outcomp++) { 
outcomp ->component_id = incomp- >component_id; 
outcomp- >h_samp_f actor = incomp- >h_samp_f actor ; 
outcomp->v_samp_factor = incomp->v_samp_f actor ; 
_ outcomp- >quant_tbl_no = incomp- >quant_tbl_no ; 

Q /* Hake sure saved quantization table for component matches the qtable 

* slot. If not, the input file re-used this qtable slot. 
~f * IJG encoder currently cannot duplicate this. 

yi */ 

■J% tblno = outcomp->quant_tbl_no; 

if (tblno < 0 || tblno >= NUM_QUANT_TBLS || 
~* srcinf o->quant„tbl_ptrs [tblno] == NULL) 
U} ERREXIT1 (dstinfo, JERR_NO_QUANT_TABLE , tblno); 
.5% slot_quant = srcinf o->quant_tbl_ptrs [tblno] ; 

c_quant = incomp- >qu an t_tabl e ; 
flj if ( c_quant != NULL) { 

s for (coefi = 0; coefi < DCTSIZE2 ; coefi++) { 

if (c„quant->quantval [coefi] != si ot_quant->quantval [coefi] ) 
ERREXIT1 (dstinfo, JERR_MI SMATCHED_QUANT_TABLE , tblno); 

S • ' 

MJ /* Note: we do not copy the source's Huffman table assignments; 

'S.l * instead we rely on jpeg_ set_colorspace to have made a suitable choice. 

*=* V 

Li/* Also copy JFIF version and resolution information, if available. 

* Strictly speaking this isn't "critical " info, but it's nearly 

* always appropriate to copy it if available. In particular, 

* if the application chooses to copy JFIF 1.02 extension markers from 

* the source file, we need to copy the version to make sure we don't 

* emit a file that has 1.02 extensions but a claimed version of 1.01. 

* We will *not*, however, copy version info from mislabeled "2.01 - files. 
*/ 

if (srcinf o->saw_JFIF_marker) { 

if (srcinf o->JFIF_maj or_ver si on ==1) { 

dstinf o->JFIF„major_version = srcinf o->JFIF_maj or_vers ion; 
dstinf o->JFIF_minor„version = srcinf o-> JF I F_mi no reversion ; 

} 

dstinfo->density_unit = srcinf o->densi ty_unit ; 
dstinfo- >X_density = srcinf o->X_density; 
dstinfo->Y_density = srcinf o->Y_density ; 



/* 

* Master selection of compression modules for transcoding. 

* This substitutes for jcinit.c's initialization of the full compressor. 
*/ 

LOCAL (void) 

trans encode_master_s elect ion ( j_compress_ptr cinfo, 
jvirt_barray_j?tr * coef_arrays) 

{ 
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/* Although we don't actualJ^^se input_components for transcod 

* jcmaster.c's initial_set^^Hill complain if input_components 

cinfo->input_components = 1; 
/* Initialize master control (includes parameter checking/processing) */ 
jinit_c_master_control (cinfo, TRUE /* transcode only */); 

/* Entropy encoding: either Huffman or arithmetic coding. */ 
if (cinfo->arith_code) { 

ERREXIT (cinfo , JERR_ARITH_NOTIMPL ) ; 
) else { 

if (cinfo->progressive_mode) { 
tifdef C_PROGRESSIVE_SUPPORTED 

jinit__phuff_encoder( cinfo) ; 

#else 

ERREXIT (cinfo , JERR_NOT__COMP I LED ) ; 

#endif 

} else 

jinit_huff_encoder (cinfo) ; 

} 

/* We need a special coefficient buffer controller. */ 
transencode_coef ..controller (cinfo, coef„arrays) ; 

j init_jnarker_wr iter (cinf o) ; 

/* We can now tell the memory manager to allocate virtual arrays. */ 
(*cinf o->mem->realize_virt_arrays) ( ( j_common_j?tr) cinfo); 

/* Write the datastream header (SOI , JFIF) immediately. 

* Frame and scan headers are postponed till later. 

r^* This lets application insert special markers after the SOI. 

.«*/ 

^<*cinfo->marker->write_f ile_ header) (cinfo) ; 



M The rest of this file is a special implementation of the coefficient 
*f buffer controller. This is similar to jccoefct.c, but it handles only 
4} output from presupplied virtual arrays. Furthermore, we generate any 
Hi dummy padding blocks on-the-fly rather than expecting them to be present 
; *~ in the arrays . 
*/ 

Private buffer controller object */ 
tfM>edef struct { 

\ struct jpeg_ c_coef_controller pub; /* public fields */ 

QjDIMENSION iMCU_row„num; /* iMCU row # within image */ 

rpDIMENSION mcu_ctr; /* counts MCUs processed in current row */ 

~"int MCU_vert_of f set; /* counts MCU rows within iMCU row */ 

int MCU_rows_per_iMCU__row; /* number of such rows needed */ 

/* Virtual block array for each component. */ 
jvirt_barray_ptr * whole_image; 

/* Workspace for constructing dummy blocks at right/bottom edges. */ 
JBLOCKROW dummy_buffer [C_MAX_BLOCKS_IN_MCU] ; 
} my_coef_ controller ; 

typedef my_ coef_controller * my_coef_ptr; 




LOCAL (void) 

start_iMCU_ row ( j_compress_ptr cinfo) 

/* Reset within-iMCU-row counters for a new row */ 

{ 

my_coef_ptr coef = (my_coef_ptr) cinfo->coef; 

/* In an interleaved scan, an MCU row is the same as an iMCU row. 

* In a noninter leaved scan, an iMCU row has v_samp__f actor MCU rows. 

* But at the bottom of the image, process only what's left. 
*/ 

if (cinf o->comps_in_scan > 1) { 

coef ->MCU_rows_per_ iMCU_row = 1; 
} else { 

if (coef->iMCU_row_num < (cinf o->total_iMCU_rows-l) ) 

coef->MCU_rows_per_iMCU__row = cinf o->cur_comp_inf o [0] ->v_samp_f actor ; 
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= cinfo->cur_comp_info[OJ ->last_^^he 



else 

coef->MCU_rows_per_iMCt^^P = cinf o->cur_comp_inf o (0] ->last_^^^height; 

coef->mcu_ctr = 0; 

coef ->MCU_vert_off set = 0; 

} 

/* 

* Initialize for a processing pass. 
*/ 

METHODDEF (void) 

start_pass_coef ( j_compress_ptr cinfo, J_BUF_MODE pass_mode) 
{ 

my_coef_ptr coef = (my__coef_j?tr ) cinfo->coef; 

if (pass_mode != JBUF„CRANK_DEST ) 

ERREXIT (cinfo, JERR_BAD_BUFFER_MODE ) ,* 

coef->iMCU_row_num = 0; 
start_iMCU_row{ cinfo) ; 

} 

/* 

* Process some data. 

* We process the equivalent of one fully interleaved MCU row ("iMCU" row) 

* per call, ie, v_samp_f actor block rows for each component in the scan. 

* The data is obtained from the virtual arrays and fed to the entropy coder. 
^Returns TRUE if the iMCU row is completed, FALSE if suspended. 

iJNB: input_buf is ignored; it is likely to be a NULL pointer. 

CP 

ME#H0DDEF (boolean) 

cbmpress_ output ( j_compress_ptr cinfo, JS AMP IMAGE input_buf) 
=my_coef_ptr coef = (my„coef_ptr) cinfo->coef; 

d^TDIMENSION MCU_col_num; /* index of current MCU within row */ 

^JDIMENSION last_MCU_col = cinf o->MCUs_per_row - 1; 

: '^DIMENSION last_iMCU_row = cinf o->total_iMCU_rows - 1; 

s int blkn, ci, xindex, yindex, yoffset, blockcnt; 

L ^DIMENSION start_col; 

LJBLOCKARRAY buf fer[MAX_COMPS_IN„SCAN] ; 
^3BLOCKROW MCU_buffer[CJ^AX_BLOCKS_IN - JlCU] ; 
flJrBLOCKROW buffer_ptr; 
L sj peg_c omponen t_i nf o * c ompp t r ; 

E]/* Align the virtual buffers for the components used in this scan. */ 
pior (ci = 0; ci < cinf o->comps_in_s can; ci++) { 
compptr = cinf o->cur_comp_inf o [ci J ; 
buffer [ci] = (*cinfo->mem->access_virt_ bar ray) 

( ( j_common_ptr) cinfo, coef ->whole_image [compptr ->component_ index ] , 
coef ->iMCU_row_num * compptr - >v_s amp_f actor , 
(JDIMENSION) compptr->v__samp_f actor, FALSE) ; 

} 



/* Loop to process one whole iMCU row */ 

for (yoffset = coef->MCU_vert_of f set ; yoffset < coef->MCU_rows„per_iMCU_row 
yoffset++) { 

for (MCU — col_num = coef ->mcu_ctr ; MCU_col_num < cinf o->MCUs_per_row; 
MCU_c o l_num+ + ) { 

/* Construct list of pointers to DCT blocks belonging to this MCU */ 
blkn =0; /* index of current DCT block within MCU */ 

for (ci = 0; ci < cinf o->comps_in_scan; ci++) { 
compptr = cinf o->cur_comp_inf o [ci] ; 
start_ col = MCU„col_num * compptr- >MCU_ width ; 
blockcnt = (MCU_col_num < last_MCU_col ) ? compptr- >MCU_width 

: compptr- >last_col_width ; 
for (yindex = 0; yindex < compptr->MCU_height; yindex++) { 
if (coef->iMCU_row_num < last_ iMCU_row | | 

yindex+yof f set < compptr ->last_row_height) { 
/* Fill in pointers to real blocks in this row */ 
buffer_ptr = buffer [ci] [yindex+yof f set] + start_col; 
for (xindex = 0; xindex < blockcnt; xindex++) 
MCU_buf fer[blkn++] = buf f er_ptr++ ; 
} else { 

/* At bottom of image, need a whole row of dummy blocks */ 
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xindex = 0; 

} 

/* Fill in any dummy blcWft needed in this row. 

* Dummy blocks are filled in the same way as in jccoefct.c: 

* all zeroes in the AC entries, DC entries equal to previous 

* block's DC value. The init routine has already zeroed the 

* AC entries, so we need only set the DC entries correctly. 
*/ 

for (; xindex < corapptr->MCU_width; xindex++) { 
MCU_buf fer [blkn] = coef->dummy_buf f er [blkn] ; 
MCU_buf fer [blkn] [0] [0] = MCU_buf f er [blkn-1] [0] [0] ; 
blkn++; 

} 

} 

} 

/* Try to write the MCU. */ 

if (! (*cinfo->entropy->encode_mcu) (cinfo, MCU_buf fer) ) { 
/* Suspension forced; update state counters and exit */ 
coef->MCU_vert_of f set = yoffset; 
coef->mcu_ctr = MCU_col_num; 
return FALSE; 

} 

} 

/* Completed an MCU row, but perhaps not an iMCU row */ 
coef->mcu_ctr = 0; 

) 

/* Completed the iMCU row, advance counters for next one */ 
c o e f - > iMCU_r ow_num+ + ; 
start_iMCU_row( cinfo) ; 
return TRUE; 



^Initialize coefficient buffer controller. 

tl 

'i?Each passed coefficient array must be the right size for that 
*Jcoef f icient : width_in_blocks wide and height_in_blocks high, 
.^with unitheight at least v_samp_f actor . 

'*f 

I^fAL(void) 

transencode_coef_controller ( j_compress_ptr cinfo, 
s jvirt_barray_ptr * coef_arrays) 

I=jny_coef_ptr coef; 
t=#BLOCKROW buffer; 
Hint i; 

"Nboef = (my_coef_ptr) 

Q (*cinfo->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
fi SIZEOF (my_coef_controller) ) ; 

Hrinfo->coef = (struct jpeg_c_coef_controller *) coef; 

coef->pub.start_pass = start_pass_coef ; 

coef->pub.compress_data = compress_output; 



/* Save pointer to virtual arrays */ 
coef->whole_image = coef„arrays; 



/* Allocate and pre-zero space for dummy DCT blocks. */ 
buffer = (JBLOCKROW) 

(*cinfo->mem->alloc__large) ( ( j_common_ptr ) cinfo, JPOOL_IMAGE, 
C_MAX_BLOCKS_IN_MCU * SIZEOF ( JBLOCK) ) ; 
jzero_far( (void *) buffer, C_MAX_BLOCKS_IN_MCU * SIZEOF (JBLOCK) ) ; 
for (i = 0; i < C_MAX_BLOCKS_IN_MCU; i++) { 

coef->dummy_buf f er [i] = buffer + i; 

} 
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/* 

* jdapimin.c 
* 

* Copyright (C) 1994-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains application interface code for the decompression half 

* of the JPEG library. These are the "minimum" API routines that may be 

* needed in either the normal full -decompression case or the 

* transcoding-only case. 
* 

* Most of the routines intended to be called directly by an application 

* are in this file or in jdapistd.c. But also see jcomapi.c for routines 

* shared by compression and decompression, and jdtrans.c for the transcoding 

* case. 
*/ 

idefine JPEG_INTERNALS 
iinclude "j include. h" 
#include "jpeglib.h" 



/* 

* Initialization of a JPEG decompression object. 

* The error manager must already be set up (in case memory manager fails) . 
*/ 

GLOBAL (void) 

jpeg_CreateDecompress ( j_decompress_ptr cinfo, int version, size_t structsize) 
{ 

pint i; 

Guard against version mismatches between library and caller. */ 
[]qinfo->mem = NULL; /* so jpeg_destroy knows mem mgr not called */ 

"if (version ■ = JPEG_LIB„VERSION) 

^ ERREXIT2 (cinfo, JERR_BAD_LIB_VERSION, JPEG_LIB_VERSION, version); 
%|f (structsize != SIZEOF (struct jpeg„decompress_struct ) ) 
ERREXIT2 (cinfo, JERR_BAD_STRUCT_SIZE, 

(int) SIZEOF (struct jpeg_decompress_struct ) , (int) structsize) ; 

?=/* For debugging purposes, we zero the whole master structure. 

n=? * But the application has already set the err pointer, and may have set 

= * client_data, so we have to save and restore those fields. 

Lj, * Note: if application hasn't set client_data, tools like Purify may 

~ * complain here. 

U*/ 

ni 

ij struct jpeg_error_mgr * err = cinfo->err; 

J]f void * client_data = cinf o->client_data; /* ignore Purify complaint here */ 
O MEMZERO (cinf o, SIZEOF (struct jpeg_decompress_struct ) ) ; 

cinfo->err = err; 
~ f cinf o->client„data = client_data; 
} 

cinfo->is_decompressor = TRUE; 

/* Initialize a memory manager instance for this object */ 
jinit_memory_mgr ( ( j_common_ptr) cinfo) ; 

/* Zero out pointers to permanent structures. */ 
cinf o->progr ess = NULL; 
cinfo->src = NULL; 

for (i = 0; i < NUM„QUANT_TBLS ; i++) 
cinf o->quant_tbl_ptrs [i] = NULL; 

for (i = 0; i < NUX_HUFF_TBLS ; i++) { 
cinfo->dc_huf f_tbl_j>trs [i] - NULL; 
cinfo->ac_huf f_tbl_ptrs [i] - NULL; 

} 

/* Initialize marker processor so application can override methods 
* for COM, APPn markers before calling jpeg_read_header . 
*/ 

cinfo->marker_list = NULL; 
jinit_marker_reader (cinfo) ; 

/* And initialize the overall input controller. */ 
jinit_input_controller (cinf o) ; 
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/* OK, I'm ready */ 
cinfo->global_state = DSTAT^^^ART ; 



/* 

* Destruction of a JPEG decompression object 
*/ 

GLOBAL (void) 

jpeg_destroy_decompress ( j_decompress_ptr cinfo) 
{ 

jpeg_destroy ( ( j_common_ptr) cinfo); /* use common routine */ 

} 



/* 

* Abort processing of a JPEG decompression operation, 

* but don't destroy the object itself. 
*/ 

GLOBAL (void) 

jpeg_abort_decompress { j_decompress_ptr cinfo) 
{ 

jpeg_abort { ( j_common_j?tr) cinfo); /* use common routine */ 

) 



/* 

* Set default decompression parameters. 
*/ 

LdgAL(void) 

de?fiault_decompress_parms ( j_decompress_ptr cinfo) 

{Ql 

Guess the input colorspace, and set output colorspace accordingly. 
^M* (Wish JPEG committee had provided a real way to specify this...) */ 
SI* Note application may override our guesses. */ 
Switch ( cinfo ->num_components) { 
'^6ase 1: 

'dj cinf o->jpeg_color_space - JCS_GRAYSCALE; 
ffj cinf o->out_color_space = JCS_GRAYSCALE; 
£ " break; 
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Lease 3 : 

~% if (cinf o->saw_JFIF_marker) { 

^ cinfo->jpeg_color_space = JCS_ YCbCr; /* JFIF implies YCbCr */ 
Flj } else if (cinf o->saw_Adobe_marker ) { 

switch (cinf o->Adobe_tr ans form) { 
_;f case 0 : 

Lj cinf o->jpeg_color_space = JCS_RGB; 
break; 
case 1 : 

cinf o->jpeg_color_space = JCS_YCbCr; 
break; 
default: 

WARNMSK cinfo, JWRN_ADOBE_XFORM, cinf o - >Adobe_trans form) ; 
cinf o->jpeg_color_space = JCS_YCbCr; /* assume it's YCbCr */ 
break; 
} 

} else { 

/* Saw no special markers, try to guess from the component IDs */ 
int cidO = cinf o->comp_inf o [0] ,component„id; 
int cidl = cinf o->comp_inf o [1] .component_id; 
int cid2 = cinf o->comp_inf o [2] . component_id; 

if (cidO == 1 && cidl == 2 && cid2 == 3) 
cinfo->jpeg_color_space = JCS_YCbCr; /* assume JFIF w/out marker */ 

else if (cidO — 82 && cidl == 71 && cid2 == 66) 
cinfo->jpeg_color_space = JCS_RGB; /* ASCII 'R', 'G' , 'B' */ 

else { 

TRACEMS3 (cinfo, 1, JTRC_UNKNOWN_IDS, cidO, cidl, cid2); 
cinf o->jpeg_color_space = JCS„YCbCr; /* assume it's YCbCr */ 
} 

} 

/* Always guess RGB is proper output colorspace. */ 

cinf o->out„color_space = JCS_RGB; 

break; 



case 4: 



if (cinfo->saw_ Adobe_marl^^^{ 

switch (cinf o->Adobe_tr^^Borm) { 

case 0: 

cinfo->jpeg_color_space = JCS_CMYK; 
break ; 
case 2 : 

cinf o->jpeg_color_space = JCS_ YCCK; 
break; 
default: 

WARNMS1 (cinf o, JWRN_ADOBE_XFORM , cinf o->Adobe_trans form) ; 
cinfo->jpeg_color_ space = JCS_YCCK; /* assume it's YCCK */ 
break; 
} 

} else { 

/* No special markers, assume straight CMYK. */ 
cinfo->jpeg_color_space = JCS_CMYK; 

} 

cinfo->out_color__space = JCS_CMYK; 
breaks- 
default: 

cinfo->jpeg_color_space 
cinf o->out_color_space 
break ; 

} 

/* Set defaults for other decompression parameters. */ 

cinfo->scale_num =1; /* 1:1 scaling */ 

cinf o->scale_denom = 1; 

cinfo->output_gamma = 1.0; 

cinf o->buf f ered_image = FALSE; 
JCinf o->raw_data_out = FALSE; 
~|info->dct„method = JDCT_DEFAULT ; 
^Miinf o->do_fancy_upsampling = TRUE; 
pGinfo->do_block_smoothing = TRUE; 
L leinfo->quantize_colors = FALSE; 

y*j* we set these in case application only sets quantize^ colors . */ 

Nlinfo->dither_mode = JDITHER_FS ; 
#4fdef QUANT_2PASS_SUPPORTED 

^£info->two_pass_quantize = TRUE; 
#^lse 

ncinfo->two_pass„quantize = FALSE; 
ffehdif 

3 cinfo->desired_number„of_colors = 256; 
kfcinfo->colormap = NULL; 

J=^* Initialize for no mode change in buffered- image mode. */ 
ifcinf o->enable_lpass_quant = FALSE; 
[lcinfo->enable_external_quant = FALSE; 
cinfo->enable_2pass_quant - FALSE; 

i 5 

* Decompression startup: read start of JPEG datastream to see what's there. 

* Need only initialize JPEG object and supply a data source before calling. 
* 

* This routine will read as far as the first SOS marker (ie, actual start of 

* compressed data) , and will save all tables and parameters in the JPEG 

* object. It will also initialize the decompression parameters to default 

* values, and finally return JPEG_HEADER_OK. On return, the application may 

* adjust the decompression parameters and then call jpeg_start_decompress . 

* (Or, if the application only wanted to determine the image parameters, 

* the data need not be decompressed. In that case, call jpeg_abort or 

* jpeg_destroy to release any temporary space.) 

* If an abbreviated (tables only) datastream is presented, the routine will 

* return JPEG_HEADER_TABLES — ONLY upon reaching EOI . The application may then 

* re-use the JPEG object to read the abbreviated image datastream (s) . 

* It is unnecessary (but OK) to call jpeg_abort in this case. 

* The JPEG_SUSPENDED return code only occurs if the data source module 

* requests suspension of the decompressor. In this case the application 

* should load more source data and then re -call jpeg_read_header to resume 

* processing. 

* If a non- suspending data source is used and require_image is TRUE, then the 

* return code need not be inspected since only JPEG_HEADER_OK is possible. 
★ 

* This routine is now just a front end to jpeg_consume_input , with some 

* extra error checking. 
*/ 

GLOBAL (int) 




= JCS_UNKNOWN; 
= JCS_UNKNOWN; 
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break ; 
default: 

ERREXIT1 (cinf o, JERR_BAD_SW£E , cinf o->global_state) ; 

) 

return retcode; 

} 



/* 

* Have we finished reading the input file? 
*/ 

GLOBAL (boolean) 

jpeg_input_complete ( j_decompress_ptr cinfo) 
{ 

/* Check for valid jpeg object */ 
if (cinfo->global_state < DSTATE_START | | 
cinfo->global_state > DSTATE_STOPPING) 
ERREXIT1 (cinfo, JERR_BAD_STATE , cinf o->global_state) ; 
return cinf o->inputctl->eoi_reached; 

} 



/* 

* Is there more than one scan? 
*/ 

GLOBAL (boolean) 

jpeg_has_multiple_scans ( j_decompress_ptr cinfo) 

U, 

W* Only valid after jpeg_read_header completes */ 

%f if (cinfo->global_state < DSTATE_READY | | 

~l cinfo->global_state > DSTATE_STOPPING) 

y j ERREXITl (cinfo , JERR_BAD_STATE, cinf o->global_state) ; 

Jreturn cinf o->inputctl->has_multiple_scans; 

^Finish JPEG decompression. 

~* This will normally just verify the file trailer and release temp storage. 

r* 

5f Returns FALSE if suspended. The return value need be inspected only if 
03 a suspending data source is used. 

ft? 

GljDBAL ( boo lean ) 

jReg_f inish_decompress ( j_decompressjtr cinfo) 

E 

Uif ( (cinfo->global_state — DSTATE — SCANNING || 

cinfo->global_state == DSTATE_RAW_OK ) && ! cinf o->buf f ered_image) { 
/* Terminate final pass of non-buffered mode */ 
if (cinf o->output_scanline < cinf o->output_height) 

ERREXIT (cinfo, JERR_TOO_LITTLE_DATA) ; 
(*cinfo->master->f inish_output_pass) (cinfo) ; 
cinfo->global_state = DSTATE_STOPPING; 
} else if (cinfo->global_state == DSTATE_BUF IMAGE) { 
/* Finishing after a buffered- image operation */ 
cinfo->global_state = DSTATE_STOPPING; 
} else if (cinfo->global_state != DSTATE_STOPPING) { 

/* STOPPING - repeat call after a suspension, anything else is error */ 
ERREXITl (cinfo, JERR_BAD_STATE , cinf o->global_state) ; 

} 

/* Read until EOI */ 

while (! cinfo->inputctl->eoi_reached) { 

if ( (*cinfo->inputctl->consume_input) (cinfo) == JPEG_SUSPENDED) 
return FALSE; /* Suspend, come back later */ 

} 

/* Do final cleanup */ 
(*cinfo->src->term_source) (cinfo) ; 

/* We can use jpeg_abort to release memory and reset global_state */ 
jpeg_abort( ( j_common_ptr) cinfo) ; 
return TRUE; 
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jpeg_read_header ( j_decompresa^tr cinfo, boolean require_image) 
int retcode; 

if (cinfo->global_state != DSTATE_START && 
cinfo->global_state != DSTATE_INHEADER) 
ERREXIT1 { cinf o , JERR_BAD_STATE , cinf o->global_state) ; 

retcode = jpeg_consume_input (cinf o) ; 

switch (retcode) { 
case JPEG_REACHED_SOS : 

retcode = JPEG_HEADER_OK ; 

break; 
case JPEG_REACHED_EOI : 

if (require_iraage) /* Complain if application wanted an image */ 

ERREXIT ( c inf o , JERR_NO_IMAGE ) ; 

/* Reset to start state; it would be safer to require the application to 

* call jpeg_abort, but we can't change it now for compatibility reasons. 

* A side effect is to free any temporary memory (there shouldn't be any). 
*/ 

jpeg_abort ( ( j_common_ptr) cinf o) ; /* sets state = DSTATE_START */ 
retcode = JPEG__HEADER_TABLES__ONLY ; 
break; 
case JPEG_SUSPENDED: 
/* no work */ 
break; 

} 

return retcode; 

Consume data in advance of what the decompressor requires. 
ttiThis can be called at any time once the decompressor object has 
J* 1 ; been created and a data source has been set up. 

ifjThis routine is essentially a state machine that handles a couple 

of critical state- transition actions, namely initial setup and 
^"transition from header scanning to ready- for- star t_decompress . 
|?j All the actual input is done via the input controller's consume_input 
* method. 

QipBAL(int) 

^eg_consume_input ( j_decompress_ptr cinfo) 
SJint retcode = JPEG_SUSPENDED; 

^f/* NB: every possible DSTATE value should be listed in this switch */ 
rjswitch (cinf o->global„state) { 
"case DSTATE_START : 

/* Start-of -datastream actions: reset appropriate modules */ 

(*cinfo->inputctl->reset_input_controller) (cinfo) ; 

/* Initialize application's data source module */ 

(*cinfo->src->init_source) (cinfo) ; 

cinfo->global„state = DSTATE_INHEADER; 

/ * FALLTHROUGH* / 
case DSTATE_INHEADER : 

retcode = (*cinf o->inputctl->consume_input) (cinfo); 

if (retcode == JPEG_REACHED_SOS ) { /* Found SOS, prepare to decompress */ 
/* Set up default parameters based on header data */ 
default_decompress_parms (cinf o) ; 

/* Set global state: ready for start_decompress */ 
cinfo->global_state = DSTATE_READY ; 

} 

break; 
case DSTATE_READY: 

/* Can't advance past first SOS until start_decompress is called */ 

retcode = JPEG_REACHED_SOS ; 

break; 
case DSTATE_PRELOAD: 
case DSTATE_PRESCAN: 
case DSTATE — SCANNING : 
case DSTATE_RAW_OK: 
case DSTATE_BUF IMAGE : 
case DSTATE_BUFPOST: 
case DSTATE_STOPPING: 

retcode = ( *cinf o->inputctl->consume_input) (cinfo); 
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/* Perform any dummy output^^fcses , and set up for the final pa: 
return output_pass_setup (ci^J^; 



/* 

* Set up for an output pass, and perform any dummy pass(es) needed. 

* Common subroutine for jpeg_start_decompress and jpeg_start_output . 

* Entry: global_state = DSTATE_PRESCAN only if previously suspended. 

* Exit: If done, returns TRUE and sets global_state for proper output mode. 

* If suspended, returns FALSE and sets global_state = DSTATE_PRESCAN . 
*/ 

LOCAL (boolean) 

output_pass_setup { j_decompress__ptr cinfo) 
{ 

if (cinfo->global_state != DSTATE_PRESCAN) { 
/* First call: do pass setup */ 

(*cinf o->master->prepare_f or_output_pass) (cinfo) ; 
cinfo- >output_scanline = 0; 
cinfo->global„state = DSTATE_PRESCAN; 

} 

/* Loop over any required dummy passes */ 
while (cinf o->master->is_dummy_pass) { 
#ifdef QUANT_2PASS_SUPPORTED 

/* Crank through the dummy pass */ 

while (cinfo->output_scanline < cinfo->output_height) { 
JDIMENSION las t_s can line; 

/* Call progress monitor hook if present */ 

if (cinfo->progress • = NULL) { 
cinfo->progress->pass_counter = (long) cinf o->output_scanline; 
r=1 cinfo->progress->pass_limit = (long) cinf o->output_height; 
~z: (*cinf o->progress->progress_monitor) ( ( j_common_ptr) cinfo); 

Ql /* Process some data */ 

last_scanline = cinfo->output_scanline; 

(*cinfo->main->process_data) (cinfo, (JSAMPARRAY) NULL, 
VI &cinfo->output_scanline, (JDIMENSION) 0) ; 

. ? i if (cinfo->output_scanline == last_scanline) 
^ return FALSE; /* No progress made, must suspend */ 

aj > 

F§§ /* Finish up dummy pass, and set up for another one */ 
sw (*cinfo->master->f inish_output_pass) (cinfo); 
2 (*cinfo->master->prepare_for_output_pass) (cinfo); 
Ll cinfo->output_scanline - 0; 
4alse 

^ ERREXIT (cinfo, JERR_NOT„COMPILED) ; 
fghdif /* QUANT_2PASS_SUPPORTED */ 

_;/* Ready for application to drive output pass through 
4-J * jpeg_read_scanlines or jpeg_read„raw_data . 
r=i */ 

= ^cinfo->global_state = cinf o->raw_data_out ? DSTATE_RAW_OK : DSTATE_SCANNING ; 
return TRUE; 

} 



/* 

* Read some scanlines of data from the JPEG decompressor. 
* 

* The return value will be the number of lines actually read. 

* This may be less than the number requested in several cases, 

* including bottom of image, data source suspension, and operating 

* modes that emit multiple scanlines at a time. 

* Note: we warn about excess calls to jpeg_read_scanlines ( ) since 

* this likely signals an application programmer error. However, 

* an oversize buffer (max_ lines > scanlines remaining) is not an error. 
*/ 

GLOBAL (JDIMENSION) 

jpeg_read_scanlines ( j_decompress_ptr cinfo, JSAMPARRAY scanlines, 
JDIMENSION max_lines) 

{ 

JDIMENSION row_ctr; 

if (cinfo->global_state != DSTATE_SCANNING) 

ERREXIT1 (cinfo, JERR_BAD_STATE , cinf o->global_state) ; 

if (cinf o->output_scanline >= cinf o->output_height) { 
WARNMS ( cinfo , JWRN JTOO_MUCH_DATA ) ; 
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/* 

* jdapistd.c 
* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file 

* This file contains application interface code for the decompression half 

* of the JPEG library. These are the "standard" API routines that are 

* used in the normal full-decompression case. They are not used by a 

* transcoding-only application. Note that if an application links in 

* jpeg_start_decompress, it will end up linking in the entire decompressor 

* We thus must separate this file from jdapimin.c to avoid linking the 

* whole decompression library into a transcoder. 



#define JPEG_INTERNALS 
# include "jinclude.h" 
# include "jpeglib.h" 



/* Forward declarations */ 

LOCAL (boolean) output_pass_setup JPP ( ( j_decompress_ptr cinfo)); 



/* 

* Decompression initialization. 

* jpeg_read_header must be completed before calling this. 
* 

* If a multipass operating mode was selected, this will do all but the 

* last pass, and thus may take a great deal of time. 

£1 

5i Returns FALSE if suspended. The return value need be inspected only if 
* s a suspending data source is used. 

m 

Gj66BAL (boolean) 

jfteg_start_decompress ( j_decompress_ptr cinfo) 
~-%f (cinfo->global_state == DSTATE_READY) { 

iiJ /* First call: initialize master control, select active modules */ 
ffi jinit_master_decompr ess (cinfo) ; 

if (cinf o->buf f ered_image) { 
- /* No more work here; expecting jpeg_start_output next */ 

cinfo->global_state = DSTATE_BUFIMAGE; 

return TRUE; 

0J cinfo->global_state = DSTATE_PRELOAD; 

«iif (cinfo->global__state == DSTATE_PRELOAD) { 

y /* If file has multiple scans, absorb them all into the coef buffer */ 
O if (cinf o->inputctl->has_multiple_scans) { 
#xfdef D_MULTISCAN_FILES_SUPPORTED 
for (;;) { 
int retcode; 

/* Call progress monitor hook if present */ 
if (cinf o->progress != NULL) 

(*cinf o->progress->progress_monitor ) ( ( j_common_jptr) cinfo); 
/* Absorb some more input */ 

retcode = (*cinf o->inputctl->consume_ input) (cinfo) ; 
if (retcode == JPEG_SUSPENDED) 

return FALSE; 
if (retcode == JPEG_REACHED_EOI ) 

break; 

/* Advance progress counter if appropriate */ 
if (cinf o->progress != NULL && 

(retcode == JPEG_ROW_COMPLETED || retcode — JPEG_REACHED_SOS ) ) { 
if (++cinfo->progress->pass_counter >= cinfo->progress->pass_limit) { 
/* jdmaster underestimated number of scans; ratchet up one scan */ 
cinf o->progr ess- >pass_limit += (long) cinf o->total_iMCU_rows; 

} 

} 

} 

#else 

ERREXIT (cinfo , JERR_NOT_COMPILED) ; 
#endif /* D_MULTISCAN„FILES_SUPPORTED */ 
} 

cinf o->output_scan_number = cinf o->input_scan_number ; 
} else if (cinfo->global_state != DSTATE_PRESCAN) 

ERREXIT1 (cinf o, JERR_BAD_STATE , cinf o->global_state) ; 
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return 0; 

} 



/* Call progress monitor hook if present */ 

if (cinf o->progress != NULL) { 

cinf o->progress->pass_counter = (long) cinf o->output_scanline; 
cinf o->pr ogres s->pass_limi t = (long) cinf o->output_height ; 
(*cinf o->progress->progress_monitor) { ( j_common_ptr) cinfo); 

} 

/* Process some data */ 
row_ctr = 0; 

(*cinf o->main->process_data) (cinfo, scanlines, &row_ctr, max_ lines) ; 
cinfo->output_scanline += row_ctr; 
return row_ctr; 



/* 

* Alternate entry point to read raw data. 

* Processes exactly one iMCU row per call, unless suspended. 
*/ 

GLOBAL (JDIMENSION) 

jpeg_read_raw_data ( j_decompress_ptr cinfo, JSAMPIMAGE data, 
JDIMENSION max_lines) 

{ 

JDIMENSION lines_per_iMCU_row; 

if (cinfo->global_state != DSTATE_RAW_OK) 

ERREXIT1 (cinfo, JERR_BAD_STATE, cinf o->global_state) ; 
=if (cinf o->output_scanline >= cinf o->output_height) { 
«f WARNMS (cinfo, JWRN_TOO._MUCH_.DATA); 
*D return 0; 

m 

-i?* Call progress monitor hook if present */ 
Sif (cinfo->progress != NULL) { 

« cinf o->progress->pass_counter = (long) cinf o->output_scanline; 

cinf o->progress->pass_limit = (long) cinf o->output__height; 
J] (*cinfo->progress->progress_monitor) ( ( j_common_ptr) cinfo); 

n) 

= /* Verify that at least one iMCU row can be returned. */ 

L_lines_per_iMCU_row = cinf o->max_v_samp_f actor * cinf o->min_DCT_scaled_size 
1.1 f (max_lines < lines _per__iMCU_row) 
U ERREXIT (cinfo, JERR_BUFFER_SIZE) ,* 

y'J* Decompress directly into user's buffer. */ 

j4f (! (*cinf o->coef->decompress_data) (cinfo, data)) 

Q return 0; /* suspension forced, can do nothing more */ 

--/* OK, we processed one iMCU row. */ 
cinf o->output_scanline += lines_per__ iMCU_row; 
return lines_jper_iMCU_row; 

} 



/* Additional entry points for buffered- image mode. */ 

#ifdef D_MULTISCAN_FILES_SUPPORTED 

/* 

* Initialize for an output pass in buffered- image mode. 
*/ 

GLOBAL (boolean) 

jpeg_start_output ( j_decompress_ptr cinfo, int scan_number) 
{ 

if (cinfo->global_state != DSTATE_BUFIMAGE && 
cinfo->global_state != DSTATE_PRESCAN) 

ERREXIT1 (cinfo, JERR__BAD_STATE , cinfo->global_state) ; 
/* Limit scan number to valid range */ 
if (scan_number <= 0) 

scan_number = 1; 
if (cinfo->inputctl->eoi_reached && 

scan_number > cinf o->input„scan__number) 

scan_number = cinf o->input_scan_number ; 
cinf o->output_scan_number = scan_ number; 

/* Perform any dummy output passes, and set up for the real pass */ 
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return output_pass_setup (c 

} 



/* 

* Finish up after an output pass in buffered- image mode. 

* Returns FALSE if suspended. The return value need be inspected only if 

* a suspending data source is used. 
*/ 

GLOBAL (boolean) 

jpeg_f inish_output ( j_decompress_ptr cinfo) 

if ( (cinfo->global_state ~ DSTATE_SCANNING || 

cinfo->global_state == DSTATE_RAW_OK) && cinf o->buf f ered_image) { 
/* Terminate this pass. */ 

/* We do not require the whole pass to have been completed. */ 
(*cinfo->master->f inish_output_ pass) (cinfo) ; 
cinfo->global_state = DSTATE_BUFPOST; 
} else if (cinfo->global_state != DSTATE_BUFPOST) { 

/* BUFPOST = repeat call after a suspension, anything else is error */ 
ERREXIT1 (cinfo, JERR_BAD__ STATE , cinf o->global_state) ; 

} 

/* Read markers looking for SOS or EOI */ 

while (cinfo->input_scan_number <= cinf o->output_scan_number && 
! cinfo->inputctl->eoi„reached) { 
if ( (*cinfo->inputctl->consume_input) (cinfo) == JPEG_SUSPENDED) 
return FALSE; /* Suspend, come back later */ 

} 

cinfo->global_state = DSTATE_BUF IMAGE ; 
return TRUE; 

>.« 

#gndif /* D_MULTISCAN_FILES_SUPPORTED */ 




* jdatadst.c 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
★ 

* This file contains compression data destination routines for the case of 

* emitting JPEG data to a file (or any stdio stream) . While these routines 

* are sufficient for most applications, some will want to use a different 

* destination manager. 

* IMPORTANT: we assume that fwrite() will correctly transcribe an array of 

* JOCTETs into 8-bit-wide elements on external storage. If char is wider 

* than 8 bits on your machine, you may need to do some tweaking. 
*/ 

/* this is not a core library module, so it doesn't define JPEG_INTERNALS */ 
# include ■ j include. h" 
#include "jpeglib.h" 
# include "jerror.h" 

/* ### a couple of new definitions to help differentiate between FILE and buffer I/O */ 
#define FILE_OUTPUT 1 
#define BUFFER_OUTPUT 2 




/* Expanded data destination object for stdio output */ 

typedef struct { 

struct jpeg_destination_mgr pub; /* public fields */ 

-FILE * outfile; /* target stream */ 

W*JOCTET **outbuffer; */ /* target buffer */ 
JfOCTET * buffer; /* start of buffer */ 

j%\nt n_Buf ferFlag; /* ### My addition. Flag determines whether to process FILE * or JOCTET * */ 

}^imy_de s t i na t i on_mgr ; 

typedef my_destination_mgr * my_dest_ptr; 

ftdefine OUTPUT_BUF_SIZE 4096 /* choose an efficiently fwrite'able size */ 



4* ### Imtiaz: Stitching routine to patch linked list into a single stream of JOCTET */ 
4i To store the stuff (JOCTET stream) in jpeg_destination_mgr . outbuf f er ; */ 

(f&BAL(void) 

s^fcitch_list ( j_compress_ptr cinfo) 
ffcfc i; 

frit chunk, count=0; 
&urfer_list* list, *temp; 



list=cinfo->dest->head__ptr; 
chunk= (int) cinf o->index; 

/* Allocating memory. */ 

cinf o->dest->outbuffer= (JOCTET * )malloc {cinf o->index*sizeof (JOCTET) ) ; 

if (cinfo->dest->outbuf fer==NULL) 

{ 

fprintf (stderr, "Memory Allocation Error\n°); 
exit (1) ; 

> 

while ( list->next ! =NULL) 
{ 

f or ( i = 0 ; i <OUTPUT„BUF_S IZE; i + +) 
{ 

cinfo->dest->outbuf f er [count] =list->buf f er [i] ; 
count++; 

} 

temp=list; 
list=list->next; 

free (temp->buf f er) ; 
free (temp) ; 
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chunk= chunk- ( int ) OUTPUTJ 

) 

/* the rest */ 



for (i=0; i<chunk; i++) 
{ 

cinf o->dest->outbuf f er [count ] =list->buf f er [i ] ; 
count++; 

} 

free ( list- >buffer) ; 
free (list) ; 



* 

* Initialize destination called by jpeg_start_compress 

* before any data is actually written. 



METHODDEF (void) 

init_destination ( j_compress__ptr cinfo) 
{ 

my_dest_ptr dest = (my_dest_ptr) cinfo->dest; 

/* Allocate the output buffer it will be released when done with image */ 

dest->buffer = (JOCTET *) 

(*cinfo->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
OUTPUT_BUF_SIZE * S I ZEOF (JOCTET) ) ; 

Wiest->pub.next_output_byte = dest->buf f er ; 
U3est->pub.free_in_buffer = OUTPUT_BUF_SIZE; 



*: Empty the output buffer called whenever buffer fills up. 

1J 

g% In typical applications, this should write the entire output buffer 
^5 (ignoring the current state of next_output_byte & f ree_in_buf f er) , 
Preset the pointer & count to the start of the buffer, and return TRUE 
indicating that the buffer has been dumped. 

r* 

J] 1 In applications that need to be able to suspend compression due to output 
!?] overrun, a FALSE return indicates that the buffer cannot be emptied now. 
If I In this situation, the compressor will return to its caller (possibly with 
l*\ an indication that it has not accepted all the supplied scanlines) . The 
>J application should resume compression after it has made more room in the 
ff| output buffer. Note that there are substantial restrictions on the use of 
3C suspension see the documentation. 

* When suspending, the compressor will back up to a convenient restart point 

* (typically the start of the current MCU) . next„output„byte & f ree_ in_buf f er 

* indicate where the restart point will be if the current call returns FALSE. 

* Data beyond this point will be regenerated after resumption, so do not 

* write it out when emptying the buffer externally. 
*/ 



METHODDEF (boolean) 

empty_output_buf fer ( j_compress_ptr cinfo) 
{ 

int i , index , increment ; 
buffer_list *bl; 



my_dest_ptr dest = (my_dest_ptr) cinf o->dest ; 

if ( des t - >n_Buf f er Fl ag==FILE_OUTPUT ) 
{ 

if (JFWRITE(dest->outfile, dest->buf f er , OUTPUT_BUF_SIZE) != 
(size_t) OUTPUT_BUF_SIZE) 
ERREXIT ( cinfo , JERR_FILE_WRITE) ; 

} 

if (dest->n_BufferFlag==BUFFER_OUTPUT) 
{ 



/* ### Imtiaz: First thing we know is that this part deals with a fixed length dump. 



bl=(buffer_list *)malloc (^o£ (buf f er_list) ) ; 
if (bl==NULL) 
{ 

fprintf (stderr , "Memory Allocation ErrorXn" ) ; 
exit(l) ; 

} 

bl->buffer=(JOCTET * )malloc (OUTPUT_BUF_SIZE*sizeof ( JOCTET) ) ; 
bl->next=NULL; 



/* For the first time we need to set the head_j?tr and current_ptr in jpeg_ destination_mgr accordingl 
y. Yes! I changed that too. */ 

if (cinfo->dest->head_ptr==NULL) 

{ 

cinf o->dest->current_ptr=bl ; 

cinf o->dest ->head__ptr=c info- >dest->current_j?tr; 

} 

else 
{ 

cinfo->dest->current_ptr->next=bl; 
cinf o->dest->current_ptr=bl ; 

} 

index=cinfo->index; 
increment=OUTPUT_BUF_JSIZE ; 
~j for (i=0;i<OUTPUT_BUF_SIZE;i++) 

uJ cinf o->dest->current_ptr->buf f er [i] =dest->buf fer [i] ; 

-.1 cinfo->index=index+ (int)OUTPUT_BUF_SIZE; 

^&est->pub.next_output_byte = dest->buf f er ; 
ijgest->pub.free_in_buffer = OUTPUT_BUF_SIZE; 

^return TRUE; 



ffj Terminate destination called by jpeg_f inish_compress 

l*\ after all data has been written. Usually needs to flush buffer. 

H NB: *not* called by jpeg_abort or jpeg_destroy; surrounding 
r4 application must deal with any cleanup that should happen even 
^ for error exit. 
*/ 

METHODDEF { void) 

term_destination (j_compress_ptr cinfo) 
{ 

int i, index; 
buffer_list *bl; 

my_dest_j?tr dest = (my_dest__ptr) cinfo->dest; 

size_t datacount = OUTPUT_BUF_SIZE - dest->pub. f ree_in_buf f er; 

/* Write any data remaining in the buffer */ 
if (datacount > 0) { 

if (dest->n_BufferFlag==FILE_OUTPUT) 

{ 

if (JFWRITE(dest->outf ile, dest->buf f er, datacount) != datacount) 
ERREXIT (cinfo , JERR_FILE_WRITE) ; 

f f lush(dest->outf ile) ; 

/* Make sure we wrote the output file OK */ 
if (f error (dest->outf ile) ) 

ERREXIT (cinfo, JERR_FILE_WRITE) ; 

} 

if (dest->n_BufferFlag==BUFFER_OUTPUT) 
{ 
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n^^^ know is that this part deals wit^^^ 



Imtiaz: First thin^^e know is that this part deals wither fixed length dump. */ 

bl= (buf fer_list * )malloc (sizeof (buf fer_list) ) ; 

if (bl==NULL) 

{ 

fprintf (stderr, "Memory Allocation ErrorNn"); 
exit(l) ; 

} 

bl->buffer=(JOCTET * Jmalloc (datacount*sizeof ( JOCTET) ) ; 
bl->next=NULL; 

/* For the first time we need to set the head_ptr and current_ptr in jpeg_destination_mgr ac 
cordingly. Yes! I changed that too. */ 

if (cinfo->dest->head_ptr==NULL) 
{ 

cinf o->dest->current_ptr=bl ; 

cinf o->dest->head_j?tr-cinf o->dest->current_ptr; 

} 

else 
{ 

cinfo->dest->current_ptr->next=bl; 
cinf o->dest->current_ptr=bl ; 

} 



index=cinf o-> index; 

for (i=0; i< (int ) datacount ; i++) 
yj cinf o->dest->current_j?tr->buf f er [i] =dest->buf f er [i] ; 

cinf o->index=index+datacount ; 

SJ /* The end... Now to stitch. :) */ 

J stitch_list (cinfo) ; 

tfl > 



■J^i Prepare for output to a stdio stream. 

~*l The caller must have already opened the stream, and is responsible 
f*l for closing it after finishing compression. 

GLOBAL (void) 

jpeg_stdio_dest { j_compress_ptr cinfo, FILE * outfile) 
{ 

my_dest_ptr dest; 

/* The destination object is made permanent so that multiple JPEG images 

* can be written to the same file without re-executing jpeg_stdio_dest . 

* This makes it dangerous to use this manager and a different destination 

* manager serially with the same JPEG object, because their private object 

* sizes may be different. Caveat programmer. 
*/ 

if (cinfo->dest == NULL) { /* first time for this JPEG object? */ 
cinfo->dest = (struct jpeg_ destination_mgr *) 

(*cinf o->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_PERMANENT , 
SIZEOF (my_destination_mgr) ) ; 

} 



dest = (my_dest_ptr) cinfo->dest; 

/* ### Setting flag to process FILE output */ 
dest->n_BufferFlag=FILE_OUTPUT; 

dest->pub. init_destination = init_destination; 
des t - >pub . emp ty_ou tpu t_ bu f f er = emp ty_ou tpu t_buf f er ; 
dest->pub. term_destination = term_destination; 
dest->outf ile = outfile; 
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GLOBAL (void) 

jpeg_buf f er_dest ( j_compress_ptr cinfo) 
{ 

my_dest_j?tr dest; 

/* The destination object is made permanent so that multiple JPEG images 

* can be written to the same file without re-executing jpeg_stdio_dest . 

* This makes it dangerous to use this manager and a different destination 

* manager serially with the same JPEG object, because their private object 

* sizes may be different. Caveat programmer. 
*/ 

if (cinfo->dest == NULL) { /* first time for this JPEG object? */ 
cinfo- >dest = (struct jpeg_ destination_mgr *) 

(*cinfo->mem->alloc__small) ( ( j_common_ptr) cinfo, JPOOL_PERMANENT , 
SIZEOF (my__destination_mgr) ) ; 

} 

dest = <my_dest_ptr) cinfo->dest; 

/* ### Imtiaz: Setting flag to process BUFFER output */ 
des t- >n_Buf f erFlag=BUFFER_OUTPUT ; 

dest->pub. init_destination = init_destination; 
dest->pub. empty„output_buf f er = empty_output_buf f er; 
dest->pub. term_destination = term_destination; 
/* ### cinfo->dest->outbuf fer = buff; */ 

_c inf o- >des t - >head_ptr=NULL ; 
t^info->dest->current_ ptr=NULL; 




/* 

* jdatasrc.c 
* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains decompression data source routines for the case of 

* reading JPEG data from a file (or any stdio stream) . While these routines 

* are sufficient for most applications, some will want to use a different 

* source manager. 

* IMPORTANT: we assume that freadO will correctly transcribe an array of 

* JOCTETs from 8-bit-wide elements on external storage. If char is wider 

* than 8 bits on your machine, you may need to do some tweaking. 
*/ 

/* this is not a core library module, so it doesn't define JPEG„INTERNALS */ 
#include ■ j include .h" 
# include "jpeglib.h" 
# include ■ j error. h" 

#define FILE_OUTPUT 1 /* ### Imtiaz: I put this here. */ 
idefine BUFFER_OUTPUT 2 

/* Expanded data source object for stdio input */ 

typedef struct { 

struct jpeg_source_jngr pub; /* public fields */ 

JFILE * infile; /* source stream */ 

kJOCTET * buffer; /* start of buffer */ 

boolean start_of_ f ile; /* have we gotten any data yet? */ 

I;? /long count_ track; 

U 5 

* Tint n_Buf f erFlag; /* ### Imtiaz: My addition. Flag determines whether to process FILE * or JOC 
TEf * */ 

} J|iy_source_mgr ; 

tjjpedef my_source_mgr * my_src_ptr; 

fafefine INPUT_BUF„SIZE 4096 /* choose an efficiently fread'able size */ 

Initialize source called by jpeg_read„header 

s*J before any data is actually read. 

*&HODDEF(void) 

fi5it_source ( j_decompress_ptr cinfo) 
{ 

my_src_ptr src = (my„src_ptr) cinfo->src; 

/* We reset the empty- input- file flag for each image, 

* but we don't clear the input buffer. 

* This is correct behavior for reading a series of images from one source. 
*/ 

src->start_of_f ile = TRUE; 




/* 

* Fill the input buffer called whenever buffer is emptied. 

* 

* In typical applications, this should read fresh data into the buffer 

* (ignoring the current state of next_input_byte & bytes_in_buf f er) , 

* reset the pointer fie count to the start of the buffer, and return TRUE 

* indicating that the buffer has been reloaded. It is not necessary to 

* fill the buffer entirely, only to obtain at least one more byte. 
* 

* There is no such thing as an EOF return. If the end of the file has been 

* reached, the routine has a choice of ERREXITO or inserting fake data into 

* the buffer. In most cases, generating a warning message and inserting a 

* fake EOI marker is the best course of action this will allow the 

* decompressor to output however much of the image is there. However, 

* the resulting error message is misleading if the real problem is an empty 

* input file, so we handle that case specially. 
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* In applications that need J^^ke able to suspend compression due^^^input 

* not being available yet, a^^HsE return indicates that no more can be 

* obtained right now, but mor^^nay be forthcoming later. In this^^rcuation, 

* the decompressor will return to its caller (with an indication of the 

* number of scanlines it has read, if any) . The application should resume 

* decompression after it has loaded more data into the input buffer. Note 

* that there are substantial restrictions on the use of suspension see 

* the documentation. 
* 

* When suspending, the decompressor will back up to a convenient restart point 

* (typically the start of the current MCU) . next_input_byte & bytes_in_buf f er 

* indicate where the restart point will be if the current call returns FALSE. 

* Data beyond this point must be rescanned after resumption, so move it to 

* the front of the buffer rather than discarding it. 
*/ 

METHODDEF (boolean) 

f ill_input_buf f er ( j_decompress_ptr cinfo) 
{ 

long count; 
static int p; 

my_src_ptr src - (my_src_ptr) cinfo->src; 
size_t nbytes; 

if (src->n_BufferFlag==FILE_OUTPUT) 
{ 

nbytes = JFREAD (src->inf ile, src->buffer, INPUT_BUF_SIZE) ; 

} 

else 

o 

.: count=0 ; 

-iJ while ( (p<cinf o->src->buf fer_length) && (count<INPUT_BUF_SIZE) ) 

~z-„ src->buffer [count] = cinf o->src->inbuf f er [0] ; 

^; count* + ; 

.j^ cinf o->src->inbuf f er++; 



Li nbytes = ( size_t ) count ; 
fljif (nbytes <= 0) { 

^ if (src->n_Buf f erFlag==FILE_OUTPUT) 

a { 

if (src->start_of_f ile) /* Treat empty input file as fatal error */ 

ERREXIT (cinfo, JERR_INPUT_EMPTY ) ; 
WARNMS (cinfo, JWRN_JPEG_EOF) ; 

} 

else 

{ /* if dest->nBufferFlag==BUFFER_OUTPUT */ 
fprintf (stderr, "Buffer Empty\n"); 
fprintf (stderr, "Using Fake EOI marker.. \n"); 

} 

/* Insert a fake EOI marker */ 
src->buffer [0] = (JOCTET) OxFF; 
src->buffer [1] = (JOCTET) JPEG_EOI; 
nbytes - 2; 

} 

src->pub.next_input_byte = src->buffer; 
src->pub.bytes_in_buf f er = nbytes; 
src->start_of_f ile = FALSE; 

return TRUE; 

} 



/* 

* Skip data used to skip over a potentially large amount of 

* uninteresting data (such as an APPn marker) . 
* 

* Writers of suspendable- input applications must note that skip_input_data 

* is not granted the right to give a suspension return. If the skip extends 
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* beyond the data currently ifl^tie buffer, the buffer can be mark^^^npty so 

* that the next read will ca^^Ha f ill_input_buf f er call that can^^Bpend. 

* Arranging for additional byres to be discarded before reloading^He input 

* buffer is the application writer's problem. 
*/ 

METHODDEF (void) 

skip_input_data ( j_ decompress_ptr cinfo, long num_bytes) 
{ 

my_src_ptr src = (my_src_ptr) cinfo->src; 

/* Just a dumb implementation for now. Could use fseekO except 

* it doesn't work on pipes. Not clear that being smart is worth 

* any trouble anyway large skips are infrequent. 

*/ 

if (num_bytes > 0) { 

while (num_bytes > (long) src->pub.bytes__in_buf f er) { 
num_bytes -= (long) src->pub.bytes_in_buf f er ; 
(void) f ill_input_ buffer (cinfo) ; 

/* note we assume that f ill_input_buf f er will never return FALSE, 
* so suspension need not be handled. 
*/ 

} 

src->pub.next_input_byte += (size_t) num_bytes; 
src->pub.bytes_in_buf f er -= (size„t) num_by tes ; 

} 

} 



/* 

* An additional method that can be provided by data source modules is the 
j*iresync_to_restart method for error recovery in the presence of RST markers. 
"flFor the moment, this source module just uses the default resync method 

provided by the JPEG library. That method assumes that no backtracking 
El is possible. 

4* 



?J Terminate source called by jpeg_f inish_decompress 

£i after all data has been read. Often a no-op. 

**" NB: *not* called by jpeg_abort or jpeg_destroy; surrounding 
f* application must deal with any cleanup that should happen even 
^ for error exit. 

ifl^rHODDEF (void) 

term_ source ( j_decompress_ptr cinfo) 

Q 

W/* no work necessary here */ 
/* 

* Prepare for input from a stdio stream. 

* The caller must have already opened the stream, and is responsible 

* for closing it after finishing decompression. 
*/ 

GLOBAL (void) 

jpeg_stdio_src ( j_decompress_ptr cinfo, FILE * infile) 
{ 

my_src_ptr src; 

/* The source object and input buffer are made permanent so that a series 

* of JPEG images can be read from the same file by calling jpeg_stdio_src 

* only before the first one. (If we discarded the buffer at the end of 

* one image, we'd likely lose the start of the next one.) 

* This makes it unsafe to use this manager and a different source 

* manager serially with the same JPEG object. Caveat programmer. 
*/ 

if (cinfo->src == NULL) { /* first time for this JPEG object? */ 
cinfo->src = (struct jpeg_source_mgr *) 

(*cinf o->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_PERMANENT , 
SIZEOF(my_source_mgr) ) ; 
src = (my_ src_ptr) cinfo->src; 
src->buffer = (JOCTET *) 

(*cinfo->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_ PERMANENT , 
INPUT_BUF_SIZE * SI ZEOF (JOCTET) ) ; 
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src = (my_src_ptr ) cinfo->s^^ 

src->pub.init_source = init_source; 
src->pub.fill_input_buffer = f ill_input_buf f er ; 
src->pub.skip__ input_data = skip_input_data; 
src ->pub.resync_to_res tart = jpeg_resync_to_ restart; /* use default method */ 
src->pub. terrrusource = term_source; 
src->infile = infile; 

src->pub.bytes_in__buf fer = 0; /* forces f ill_input_buf f er on first read */ 
src->pub.next_input_byte = NULL; /* until buffer loaded */ 



GLOBAL (void) 

jpeg_buf fer_src ( j_decompress_ptr cinfo) 
{ 

my_src_ptr src; 

/* The source object and input buffer are made permanent so that a series 

* of JPEG images can be read from the same file by calling jpeg_stdio_src 

* only before the first one. (If we discarded the buffer at the end of 

* one image, we'd likely lose the start of the next one.) 

* This makes it unsafe to use this manager and a different source 

* manager serially with the same JPEG object. Caveat programmer. 
*/ 

if (cinfo->src == NULL) { /* first time for this JPEG object? */ 
cinfo->src = (struct jpeg_source_mgr *) 

(*cinfo->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_PERMANENT , 
SIZEOF(my_sourcejngr) ) ; 
src = (my_src_ptr) cinfo->src; 
^ src->buffer = (JOCTET *) 

'~- (*cinfo->mem->alloc_small) ( ( j_common_ptr ) cinfo, JPOOL_PERMANENT , 
INPUT_BUF_SIZE * SIZEOF (JOCTET) ) ; 

gt 

Usrc = (my_src_ptr) cinfo->src; 

cj* ### Imtiaz: Setting flag to process BUFFER output */ 
r c - >n_Buf f erFl ag=BUFFER„OUTPUT ; 

~src->pub.init_source = init_source; 

H: src->pub. f ill_input_buf fer = f ill_input_buf f er ; 

= src->pub.skip_input_data = skip_ input_data; 

Ljsrc->pub.resync_to„restart = jpeg_resync_to_restart; /* use default method */ 
P^src->pub. term_source = term_source; 

fljsrc->pub.bytes_in_buf f er =0; /* forces f ill_input_buf f er on first read */ 
^*src->pub.next_input_byte = NULL; /* until buffer loaded */ 
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/* 

* jdcoefct.c 
* 

* Copyright (C) 1994-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 

* This file contains the coefficient buffer controller for decompression. 

* This controller is the top level of the JPEG decompressor proper. 

* The coefficient buffer lies between entropy decoding and inverse-DCT steps. 
* 

* In buffered- image mode, this controller is the interface between 

* input-oriented processing and output-oriented processing. 

* Also, the input side (only) is used when reading a file for transcoding. 
*/ 

#define JPEG_INTERNALS 
#include "j include. h" 
#include ■jpeglib.h" 

/* Block smoothing is only applicable for progressive JPEG, so: */ 
#ifndef D_PROGRESSIVE_SUPPORTED 
#undef BLOCK_SMOOTHING_SUPPORTED 
#endif 

/* Private buffer controller object */ 

typedef struct { 

struct jpeg_d_coef ..controller pub; /* public fields */ 

/* These variables keep track of the current location of the input side. */ 
P^* cinf o->input_iMCU_row is also used for this. */ 

HrDIMENSION MCU_ctr; /* counts MCUs processed in current row */ 

Ujnt MCU_vert_of f set; /* counts MCU rows within iMCU row */ 

gint MCU_rows_per_iMCU_row; /* number of such rows needed */ 

U^* The output side's location is represented by cinf o->output_iMCU_row. */ 

vj 

^* In single-pass modes, it's sufficient to buffer just one MCU. 
*M * we allocate a workspace of D_MAX_BLOCKS_IN_MCU coefficient blocks, 
J] * and let the entropy decoder write into that workspace each time. 
fTs * (On 80x86, the workspace is FAR even though it's not really very big; 
lz ~ * this is to keep the module interfaces unchanged when a large coefficient 
s * buffer is necessary.) 

LjI. * In multi-pass modes, this array points to the current MCU's blocks 
ll * within the virtual arrays; it is used only by the input side. 
O */ 

ffjJBLOCKROW MCU__buf f er [D_MAX_BLOCKS_IN_MCU] ; 
#*fdef D_MULTISCAN_FILES_SUPPORTED 

O/* In multi-pass modes, we need a virtual block array for each component. */ 

f=ijvirt_barray_j?tr whole_image [MAX_COMPONENTS] ; 

#Shdif 

tifdef BLOCK_SMOOTHING_SUPPORTED 

/* When doing block smoothing, we latch coefficient Al values here */ 

int * coef_bits_latch; 
#define SAVED_COEFS 6 /* we save coef_bits [0 . . 5] */ 

#endif 

} my_coef_contr oiler ; 

typedef my_coef_contr oiler * my_coef_ptr; 

/* Forward declarations */ 
METHODDEF ( int ) decompress_onepass 

JPP( ( j_decompress_ptr cinfo, JSAMPIMAGE output_buf ) ) ; 
#ifdef D_J1ULTISCAN_FILES_SUPP0RTED 
METHODDEF ( int ) decompress_data 

JPP ( ( j_decompress_ptr cinfo, JSAMPIMAGE output_buf ) ) ; 
#endif 

#ifdef BLOCK_SMOOTHING_SUPPORTED 

LOCAL (boolean) smoothing_ok JPP ( ( j_decompress_ptr cinfo)); 
METHODDEF ( int ) decompress„smoo th_ data 

JPP( ( j_decompress_ptr cinfo, JSAMPIMAGE output_buf ) ) ; 
# end if 



LOCAL (void) 
start_iMCU_row ( j_decompress_ptr cinfo) 

/* Reset within-iMCU-row counters for a new row (input side) */ 
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my_coef_ptr coef = (my_coe^^^ft) cinfo->coef; 



/* In an interleaved scan, an MCU row is the same as an iMCU row. 

* In a noninterleaved scan, an iMCU row has v_samp_f actor MCU rows. 

* But at the bottom of the image, process only what's left. 
*/ 

if (cinfo->comps_in_scan > 1) { 

coef->MCU_rows_per_iMCU_row = 1; 
} else { 

if (cinf o->input_iMCU_row < (cinf o->total_iMCU_rows-l) ) 

coef ->MCU_rows_per_iMCU__ row = cinf o->cur_comp_inf o [0] ->v_samp_f actor ; 
else 

coef ->MCU_rows_per_iMCU_row = cinf o->cur_comp_inf o [0] ->last_row_height; 

} 

coef->MCU_ctr - 0; 

coef ->MCU_vert_of f set = 0; 



/* 

* Initialize for an input processing pass. 
*/ 

METHODDEF(void) 

start_input_pass { j_decompress_ptr cinfo) 
{ 

cinfo- >input_iMCU_row = 0; 
start_iMCU_row( cinfo) ; 

} 



^Initialize for an output processing pass. 
METHODDEF (void) 

start_output_pass ( j_decompress_ptr cinfo) 

frijdef BLOCK_SMOOTHING_SUPPORTED 
n^y— coef_ ptr coef = (my_coef_ptr) cinfo->coef; 

s /* If multipass, check to see whether to use block smoothing on this pass */ 
Ldf (coef ->pub. coef _arrays != NULL) { 

L_ if (cinfo->do_block_ smoothing && smoothing_ok (cinfo) ) 
y coef->pub.decompress_data = decompress_smooth_data; 
nj else 

■J\ coef->pub.decompress_data = decompress_data; 
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#§hdif 

^info->output_iMCU_row = 0; 



/* 

* Decompress and return some data in the single-pass case. 

* Always attempts to emit one fully interleaved MCU row ("iMCU" row). 

* Input and output must run in lockstep since we have only a one-MCU buffer. 

* Return value is JPEG_ROW_COMPLETED , JPEG_SCAN_COMPLETED , or JPEG_SUSPENDED. 
* 

* NB: output_buf contains a plane for each component in image, 

* which we index according to the component's SOF position. 
*/ 

METHODDEF (int) 

decompress_onepass ( j_decompress_ptr cinfo, JSAMPIMAGE output_buf) 
{ 

my_coef_ptr coef = (my_coef_ptr ) cinfo->coef; 

JDIMENSION MCU_col_num; /* index of current MCU within row */ 
JDIMENSION last_MCU_col = cinf o->MCUs_per_row - 1; 
JDIMENSION last_iMCU_row = cinf o->total_iMCU_rows - 1; 
int blkn, ci, xindex, yindex, yoffset, useful_width; 
JSAMPARRAY output_ptr; 
JDIMENSION start_col, output_col; 
jpeg_component_inf o *compptr; 
inverse_DCT__method_ptr inverse_DCT ; 

/* Loop to process as much as one whole iMCU row */ 

for (yoffset = coef->MCU_vert_of f set ; yoffset < coef->MCU_rows_per_ iMCU_row; 
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yoffset++) { 

for (MCU_col_num = coef -:^^P_ctr; MCU_col_num <= last_#CU_col | 
MCU_c ol_nura+ + ) { 

/* Try to fetch an MCU. Entropy decoder expects buffer to be zeroed. */ 

jzero_far ( (void *) coef->MCU__ buffer [0] , 

(size_t) (cinfo->blocks_in_^MCU * SIZEOF < JBLOCK) ) ) ; 

if {! (*cinfo->entropy->decode_mcu) (cinfo, coef->MCU_buf f er) ) { 
/* Suspension forced; update state counters and exit */ 
coef->MCU_vert_of fset = yoffset; 
coef->MCU_ctr = MCU_col_num; 
return JPEG_SUSPENDED; 

} 

/* Determine where data should go in output_ buf and do the IDCT thing. 

* We skip dummy blocks at the right and bottom edges <but blkn gets 

* incremented past them!). Note the inner loop relies on having 

* allocated the MCU_buffer[] blocks sequentially. 
*/ 

blkn =0; /* index of current DCT block within MCU */ 

for (ci = 0; ci < cinf o->comps_in__scan; ci++) { 
compptr = cinfo- >cur_comp_inf o [ci] ; 

/* Don't bother to IDCT an uninteresting component. */ 
if { ! compptr ->component_needed) { 

blkn += compptr->MCU_blocks; 

continue; 

} 

inverse_DCT = cinf o->idct->inverse_DCT [ compptr ->component_index] ; 
useful„width = (MCU_col_num < last_#CU_col) ? compptr ->MCU_width 

: compptr- >last_col_width; 
output_ptr = output__buf [compptr- >component_index] + 

yoffset * compptr- >DCT_scaled_s i ze ; 
start_col = MCU_col_num * compptr ->MCU_s amp le_width; 
Pi; for (yindex = 0; yindex < compptr->MCU_height ; yindex++) { 
~.l if (cinf o->input_iMCU_row < last_iMCU_row | | 
Ski yof f set+yindex < c ompptr-> las t_row — height) { 

Q] output^ col = start_col; 

for (xindex = 0; xindex < useful__width; xindex++) { 
^ (*inverse_DCT) (cinfo, compptr, 

Vl (JCOEFPTR) coef->MCU_buffer [blkn+xindex] , 

. mi l output_ptr, output_col); 

output_col += compptr->DCT_scaled_size; 

Jj ) 

m > 

blkn += compptr- >MCU_width; 
s output_ptr += compptr->DCT_scaled_size; 

a\' 

Oj /* Completed an MCU row, but perhaps not an iMCU row */ 
V* coef->MCU_ctr = 0; 
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LI/* Completed the iMCU row, advance counters for next one */ 
piinf o->output_iMCU_row++ ; 

^if {++ (cinf o->input_iMCU_row) < cinf o->total_iMCU__rows) { 
s tar t_iMCU_row( cinfo) ; 
return JPEG_ROW_COMPLETED ; 

} 

/* Completed the scan */ 

(*cinf o->inputctl->f inish_ input_pass) (cinfo) ; 
return JPEG_SCAN_COMPLETED ; 

} 

/* 

* Dummy consume-input routine for single-pass operation. 
*/ 

METHODDEF ( int ) 

dummy_consume_data ( j_decompress_ptr cinfo) 
{ 

return JPEG_SUSPENDED; /* Always indicate nothing was done */ 

} 



#ifdef D_MULTISCAN_FILES_SUPPORTED 
/* 

* Consume input data and store it in the full-image coefficient buffer. 

* We read as much as one fully interleaved MCU row (■iMCU" row) per call, 

* ie, v_samp_f actor block rows for each component in the scan. 

* Return value is JPEG_ROW_COMPLETED, JPEG_SCAN_COMPLETED , or JPEG_SUSPENDED. 
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*/ 

METHODDEF ( int ) 
consume_data ( j_decompress_ptr cinfo) 
{ 

my_coef_ptr coef = (my_coef_ptr ) cinfo->coef ; 

JDIMENSION MCU_col_num; /* index of current MCU within row */ 
int blkn, ci, xindex, yindex, yoffset; 
JDIMENSION start_col; 

JBLOCKARRAY buf f er [MAX_COMPS_IN_SCAN] ; 
JBLOCKROW buffer_ptr; 
jpeg_component_info *compptr; 

/* Align the virtual buffers for the components used in this scan. */ 
for (ci =0; ci < cinf o->comps_in_scan; ci++) { 
compptr = cinf o->cur_comp_inf o [ci] ; 
buffer [ci] = (*cinf o->mem->access_virt_barray) 

( ( j_common_ptr) cinfo, coef ->whole_image [compptr -> component__index ] , 
cinfo->input„iMCU_row * compptr->v_samp_f actor, 
(JDIMENSION) compptr ->v_samp_f actor, TRUE) ; 
/* Note: entropy decoder expects buffer to be zeroed, 

* but this is handled automatically by the memory manager 

* because we requested a pre-zeroed array. 
V 

} 

/* Loop to process one whole iMCU row */ 

for (yoffset = coef - >MCU_vert_o ff set ; yoffset < coef ->MCU_rows_per_iMCU_row 
yoffset++) { 

for (MCU_col_num = coef->MCU_ctr ; MCU_col_num < cinf o->MCUs_per_row; 
MCU_c o l_num+ + ) { 

PI /* Construct list of pointers to DCT blocks belonging to this MCU */ 

z ~t blkn = 0; /* index of current DCT block within MCU */ 

yj for (ci =0; ci < cinf o->comps_in_scan; ci++) { 

n% compptr = cinf o->cur_comp_inf o [ci] ; 

"^ start_col = MCU_col_num * compptr->MCU_width; 

for (yindex = 0; yindex < compptr- >MCU_height ; yindex++) { 
Sj buffer_ptr = buf f er [ci] [yindex+yof f set] + start_col; 
^ for (xindex = 0; xindex < compptr- >MCU_width; xindex++) { 
^ coef->MCU_buf fer [blkn++] = buf fer_ptr++; 



e /* Try to fetch the MCU. */ 

Lj. if (! (*cinfo->entropy->decode_mcu) (cinfo, coef ->MCU_buf f er ) ) { 

L=. /* Suspension forced; update state counters and exit */ 

LJ coef->MCU_vert_of f set = yoffset; 

HI coef->MCU_ctr = MCU_col_ num; 

V* return JPEG_SUSPENDED; 

:f > 

~ /* Completed an MCU row, but perhaps not an iMCU row */ 
— coef->MCU_ctr = 0; 
} 

/* Completed the iMCU row, advance counters for next one */ 
if (++ (cinf o->input_iMCU_row) < cinf o->total„iMCU_rows) { 

start_iMCU_row( cinfo) ; 

return JPEG_ROW„COMPLETED ; 

} 

/* Completed the scan */ 

(*cinf o->inputctl->f inish__input_pass) (cinfo) ; 
return JPEG_SCAN_COMPLETED; 




/* 

* Decompress and return some data in the multi-pass case. 

* Always attempts to emit one fully interleaved MCU row ("iMCU" row). 

* Return value is JPEG_ROW„COMPLETED, JPEG — SCAN_ COMPLETED , or JPEG_SUSPENDED 
* 

* NB: output_buf contains a plane for each component in image. 
*/ 

METHODDEF (int) 

decompress_data ( j_decompress_ptr cinfo, JS AMP IMAGE output_buf) 
{ 

my_coef_ptr coef = (my_coef_ptr) cinfo->coef; 
JDIMENSION last_iMCU_row = cinf o->total_iMCU_rows - 1; 
JDIMENSION block_num; 
int ci, block_row, block_rows; 
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JBLOCKARRAY buffer; 
JBLOCKROW buffer_ptr; 
JSAMPARRAY OUtput_ptr; 
JDIMENSION output_col; 
jpeg_component_info *c< 
inver s e„DCT_jne thod_p t r 

/* Force some input to be done if we are getting ahead of the input. */ 
while (cinfo->input_scan_number < cinfo->output_scan_number | | 
(cinfo->input_scan__number == cinf o->output_scan_number && 
cinf o->input_iMCU_row <= cinf o->output_iMCU_row) ) { 
if ( (*cinfo->inputctl->consume_input) (cinfo) == JPEG_SUSPENDED) 
return JPEG_SUSPENDED; 

} 

/* OK, output from the virtual arrays. */ 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components ; 
ci++, compptr++) { 
/* Don't bother to IDCT an uninteresting component. */ 
if ( ! compptr- >component_needed) 
continue; 

/* Align the virtual buffer for this component. */ 
buffer = ( *cinfo->mem->access_virt_barray) 

( ( j_common_ptr) cinfo, coef ->whole_image [ci] , 
cinfo->output_ iMCU_row * compptr ->v_samp_f actor , 
(JDIMENSION) compptr ->v_samp_f actor, FALSE) ; 
/* Count non-dummy DCT block rows in this iMCU row. */ 
if (cinfo->output_iMCU_row < last_iMCU_row) 

block_rows = compptr ->v_samp_f actor ; 
else { 

/* NB: can't use 1 as t_row_ height here; it is input -side -dependent ! */ 
block_rows = (int) ( compptr- >height_in_blocks % compptr- >v_samp_f actor) ; 
4: if (block_rows == 0) block__rows = compptr->v_samp_f actor ; 

gi inverse^ DCT = cinf o->idct->inverse_DCT [ci] ; 

output_ptr = output_buf [ci] ; 
-4r /* Loop over all DCT blocks to be processed. */ 
'-~J for (block_row = 0; block_row < block_rows; block_row++) { 
, f l buffer_ptr = buf f er [block_row] ; 
output_col = 0; 

Jj for (block_num = 0; block_num < compptr->width_in_blocks; block_num++) { 
ff§ (*inverse_DCT) (cinfo, compptr, (JCOEFPTR) buffer_ptr, 
1 output_ptr , output_col ) ; 

s buf fer_ptr++; 

output_col += compptr->DCT_scaled_size; 
~l } 

'«£ output_ptr += compptr->DCT_scaled__size; 

m > 

Q 

CS-f (++ (cinf o->output_iMCU_row) < cinf o->total_iMCU_rows) 
pi return JPEG_ROW_COMPLETED; 
Return JPEG_SCAN__ COMPLETED ; 
} 

#endif /* D_MULTISCAN_FILES_SUPPORTED */ 




#ifdef BLOCK_SMOOTHING_SUPPORTED 
/* 

* This code applies interblock smoothing as described by section K.8 

* of the JPEG standard: the first 5 AC coefficients are estimated from 

* the DC values of a DCT block and its 8 neighboring blocks. 

* We apply smoothing only for progressive JPEG decoding, and only if 

* the coefficients it can estimate are not yet known to full precision. 
*/ 

/* Natural-order array positions of the first 5 zigzag-order coefficients */ 

#define Q01_POS 1 

#define Q10_POS 8 

#define Q20_POS 16 

#define Q11_P0S 9 

#define Q02_POS 2 

/* 

* Determine whether block smoothing is applicable and safe. 

* We also latch the current states of the coef_bits[] entries for the 

* AC coefficients; otherwise, if the input side of the decompressor 

* advances into a new scan, we might think the coefficients are known 
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* more accurately than they ^^^Lly are. 
*/ 



LOCAL (boolean) 

smoothing_ok ( j_ decompress_ptr cinfo) 
{ 

my_coef_ptr coef = (my_coef_ptr) cinfo->coef; 
boolean smoothing„useful = FALSE; 
int ci, coefi; 

jpeg_component — inf o * compptr ; 

JQUANTJTBL * qtable; 

int * coef_bits; 

int * coef_bits — latch ; 

if (! cinf o->pr ogres si ve_mode || cinf o->coef_bits == NULL) 
return FALSE; 



/* Allocate latch area if not already done */ 
if (coef->coef_bits_latch == NULL) 
coef->coef_bits_latch = (int *) 

(*cinf o->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
cinf o->num_components * 
(SAVED_COEFS * SIZEOF (int ) ) ) ; 
coef_bits„latch = coef ->coef_bits_latch; 

for (ci = 0, compptr = cinfo->comp_inf o; ci < cinf o->num_components; 
ci++, compptr++) { 
/* All components' quantization values must already be latched. */ 
if ( (qtable = compptr->quant_table) == NULL) 
return FALSE; 

/* Verify DC & first 5 AC quantizers are nonzero to avoid zero-divide. */ 

if (qtable->quantval [0] == 0 | | 
"~f qtable ->quantval [Q01_POS] == 0 

qtable->quantval [Q10_POS] == 0 
Hi qtable->quantval [Q20_POS] == 0 

qtable->quantval [Qll_POS] == 0 
^ qtable ->quantval [Q02_POS] == 0) 
Sj return FALSE; 

/* DC values must be at least partly known for all components. */ 
^ coef_bits = cinf o->coef_bits [ci] ; 
Jj if (coef„bits[0J < 0) 
fH return FALSE; 

/* Block smoothing is helpful if some AC coefficients remain inaccurate. */ 
s for (coefi = 1; coefi <= 5; coefi++) { 
y= coef_bits_latch[coef i] = coef_bits [coef i] ; 

if (coef_bits [coef i] != 0) 
^ smoothing_useful = TRUE; 

ru } 

L*= coef_bits_latch += SAVED_COEFS; 
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^return smoothing_useful ; 

r- 



/* 

* Variant of decompress_data for use when doing block smoothing. 
*/ 

METHODDEF ( int ) 

decompress_smooth_data ( j_decompress_ptr cinfo, JSAMPIMAGE output_buf) 
{ 

my_coef_ptr coef = (my_coef_ptr) cinfo->coef; 
JDIMENSION last_iMCU_row = cinf o->total_iMCU_rows - 1; 
JDIMENSION block_num, last_block_column; 
int ci, block_row, block_rows, access_rows; 
JBLOCKARRAY buffer; 

JBLOCKROW buffer_ptr, prev_block_row, next_block_row; 

JSAMPARRAY output_ptr; 

JDIMENSION output_col; 

jpeg_component_inf o * compptr; 

inverse_DCT_method _ptr inverse_DCT ; 

boolean first_row, last_row; 

JBLOCK workspace; 

int *coef_bits; 

JQUANTJTBL *quanttbl; 

INT32 QOO,Q01,Q02,Q10,Q11,Q20, num; 

int DC1 , DC2 , DC 3 , DC 4 , DCS , DC6 , DC 7 , DC8 , DC9 ; 

int Al, pred; 
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/* Force some input to be df^if we are getting ahead of the ij 
while (cinfo->input_scan_m^^B- <= cinf o->output_scan_ number 
! cinf o->inputctl->eoi_rCTRhed) { 
if (cinf o->input_scan_number == cinf o->output_scan_number) { 

/* If input is working on current scan, we ordinarily want it to 

* have completed the current row. But if input scan is DC f 

* we want it to keep one row ahead so that next block row's DC 

* values are up to date. 
*/ 

JDIMENSION delta = (cinfo->Ss ==0) ? 1 : 0; 

if (cinf o->input_iMCU_row > cinf o->output_iMCU_row+delta) 
break ; 
} 

if { (*cinf o->inputctl->consume_input) (cinfo) == JPEG_SUSPENDED) 
return JPEG_SUSPENDED; 

} 

/* OK, output from the virtual arrays. */ 

for (ci = 0, compptr = cinf o->comp_info; ci < cinf o->num_components ; 
ci++ , compptr++ ) { 
/* Don't bother to IDCT an uninteresting component. */ 
if ( ! compptr ->component_needed) 
continue; 

/* Count non-dummy DCT block rows in this iMCU row. */ 
if ( cinfo ->output_iMCU_row < last_iMCU_row) { 
block_rows = compptr->v_samp_f actor; 

access_rows = block_rows * 2; /* this and next iMCU row */ 
last_row = FALSE; 
} else { 

/* NB: can't use last_row_Jieight here; it is input-side-dependent! */ 
block_rows = (int) (compptr->height_in_blocks % compptr ->v_samp_f actor) ; 

O if (block_rows == 0) block_rows = compptr->v_samp_f actor; 
access_rows = block_rows; /* this iMCU row only */ 

iff last_row = TRUE; 

/* Align the virtual buffer for this component. */ 

if (cinfo->output_iMCU_row > 0) { 
~^-J access.rows += compptr- >v_samp_f actor ; /* prior iMCU row too */ 
j_% buffer = <*cinfo->mem->access_virt_barray) 
~A ( ( j_common_ptr) cinfo, coef ->whole_image [ci] , 
UJ (cinfo->output_iMCU_row - 1) * compptr->v_samp_f actor , 
ffj (JDIMENSION) access_rows, FALSE); 

buffer += compptr- >v_s amp_f actor ; /* point to current iMCU row */ 
5 f irst__row = FALSE; 

M } else { 

^ buffer = (*cinfo->mem->access_virt„barray) 

!r ( ( j_common_ptr) cinfo, coef ->whole_image [ci ] , 

III (JDIMENSION) 0, (JDIMENSION) access_rows, FALSE); 

^.s first_row = TRUE; 

^ /* Fetch component -dependent info */ 

f] coef_bits = coef->coef_bits_latch + (ci * SAVED_COEFS) ; 
quant tbl = compptr->quant_table; 
Q00 = quanttbl->quantval [0] ; 
Q01 = quanttbl->quantval [Q01_POS] ; 
Q10 = quanttbl->quantval [Q10_POS] ; 
Q20 = quanttbl->quantval [Q20_POS] ; 
Qll = quanttbl->quantval [Qll_POS] ; 
Q02 = quanttbl->quantval [Q02_POS] ; 
inverse_DCT = cinf o->idct->inverse_DCT [ci] ; 
output_ptr = output_buf [ci] ; 

/* Loop over all DCT blocks to be processed. */ 

for (block_row = 0; block_row < block_rows; block_ row++) { 

buffer_ptr = buf f er [block_row] ; 

if (first_row && block_row == 0) 
prev_block_row = buffer_ptr; 

else 

prev_block_row = buf f er [block__row-l] ; 

if (last_row && block_row == block_rows-l) 
next_block_row = buffer_ptr; 

else 

next_block_row = buf f er [block__row+l] ; 

/* We fetch the surrounding DC values using a sliding-register approach. 

* Initialize all nine here so as to do the right thing on narrow pics. 
*/ 

DC1 = DC 2 = DC 3 = (int) prev_block_row[0] [0] ; 
DC 4 = DCS = DC 6 = (int) buf f er_ptr [0 ] [0 ] ; 
DC 7 = DC 8 - DC 9 = (int) next_block_row[0] [0] ; 
output_col = 0; 

last_block_column = compptr- >width_in_blocks - 1; 
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for (block_num = 0; blo^fcnum <= last_block_column; blocK_m 
/* Fetch current DCT blo^^Ato workspace so we can modify it 1 
jcopy_block_row(buf f er_pt^^( JBLOCKROW) workspace, (JDIMENSIOl 
/* Update DC values */ 
if (block_num < last_ block_column) { 

DC3 = (int) prev_block_row[l] [0] ; 

DC6 = (int) buffer_ptr [1] [0] ; 

DC9 = (int) next_block_row[l] [0] ; 

} 

/* Compute coefficient estimates per K.8. 

* An estimate is applied only if coefficient is still zero, 

* and is not known to be fully accurate. 
*/ 

/* AC01 */ 

if ( (Al=coef_bits[l] ) != 0 && workspace [1] ==0) { 
num = 36 * Q00 * (DC 4 - DC 6 ) ; 
if (num >= 0) { 

pred = (int) <((Q01«7) + num) / (Q01«8)); 
if (Al > 0 ScSc pred >= (1«A1)) 
pred = (1«A1)-1; 
} else { 

pred = (int) <<(Q01«7) - num) / <Q01«8)); 
if (Al > 0 && pred >= (l«Al)) 

pred = (1«A1)-1; 
pred = -pred; 

} 

workspace [1] = (JCOEF) pred; 

} 

/* AC10 */ 

if ( (Al=coef_bits[2] ) != 0 && workspace[8] == 0) { 
num = 36 * Q00 * (DC2 - DC8) ; 
if (num >= 0) { 

pred = (int) (<(Q10«7) + num) / (Q10«8)); 
if (Al > 0 && pred >= (1«A1)) 
pred = (l«Al)-l; 
} else { 

pred = (int) (((Q10«7) - num) / (Q10«8)); 
if (Al > 0 && pred >= (1<<A1)) 

pred = (1«A1)-1; 
pred = -pred; 

} 

workspace [8] = (JCOEF) pred; 

} 

/* AC20 */ 

if ( (Al=coef_bits[3] ) != 0 && workspace [ 16 ] == 0) { 
num = 9 * Q00 * (DC2 + DC8 - 2*DC5) ; 
if (num >= 0) { 

pred = (int) (((Q20«7) + num) / (Q20«8)); 
if (Al > 0 && pred >= (l«Al) ) 
pred = {1«A1)-1; 
} else { 

pred = (int) (((Q20«7) - num) / (Q20«8)); 
if (Al > 0 && pred >= (l«Al) ) 

pred = (1«A1)-1; 
pred = -pred; 

} 

workspace [16] = (JCOEF) pred; 

} 

/* AC11 */ 

if ( (Al=coef_bits[4] ) != 0 && workspace [9] ==0) { 
num = 5 * Q00 * (DC1 - DC 3 - DC 7 + DC 9 ) ; 
if (num >= 0) { 

pred = (int) (((Qll«7) + num) / (Qll«8)); 
if (Al > 0 ScU pred >= (l«Al)) 
pred = (1«A1)-1; 
} else { 

pred = (int) (<(Q11«7) - num) / (Qll«8)); 
if (Al > 0 && pred >= (l«Al)) 

pred = (1«A1)-1; 
pred = -pred; 

} 

workspace [9] = (JCOEF) pred; 

} 

/* AC02 */ 

if ( (Al=coef_bits[5] ) != 0 && workspace[2] == 0) { 
num = 9 * Q00 * (DC 4 + DC 6 - 2*DC5) ; 
if (num >= 0) { 

pred =s (int) (((Q02«7) + num) / (Q02«8)); 
if (Al > 0 && pred >= (l«Al)) 
pred = (1«A1)-1; 
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(int) <(<Q02< 
> 0 && pred >= 
= (l«Al)-l; 
-pred; 



it 



} 



} else { 

pred = 

if (Al 
pred 

pred = 
} 

workspace [2] = (JCOEF) pred; 

} 

/* OK, do the IDCT */ 
(*inverse_DCT) (cinfo, compptr, 
ou tpu t _p t r , outpu t_c o 1 ) 
/* Advance for next column */ 
DC1 = DC 2 ; DC 2 = DC 3 ; 
DC 4 = DCS; DCS = DC 6 ; 
DC 7 = DC 8 ; DC 8 = DC 9 ; 
buf f er_ptr++, prev_block — row++, 
output_col + 
} 

output_ptr + 

} 



num) 
<A1) ) 



/ (Q02«8)); 



compptr- >DCT_scaled_size ; 
compptr->DCT_scaled_size; 



(JCOEFPTR) workspace, 



next_block_row++ ; 



} 



if (++ (cinfo->output__iMCU_row) < cinf o->total_iMCU_rows) 

return JPEG_ROW_COMPLETED; 
return JPEG_SCAN_COMPLETED; 



#endif /* BLOCK_SMOOTHING_SUPPORTED */ 



/* 

^Initialize coefficient buffer controller. 
Gp)BAL(void) 

j^nit_d_coef_controller ( j_decompress_ptr cinfo, boolean need_full_buf f er) 
*"my_coef_ptr coef; 

"Icoef = (my_coef_ptr) 

(*cinf o->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 

flj SI ZEOF(my_coef_contr oiler) ) ; 

^ cinf o->coef = (struct jpeg_d_coef_controller *) coef; 

; s coef->pub.start_input_pass = start_input_pass; 

h*coef->pub.start_output_j?ass = start_output_pass; 
fifdef BLOCK_SMOOTHING_SUP PORTED 

~1boef->coef__bits_latch = NULL; 
#ehdif 

~SJ* Create the coefficient buffer. */ 

Mif <need_full__buf fer) { 

fjfdef D_J1ULTISCAN_FILES_SUPP0RTED 

/* Allocate a full-image virtual array for each component, */ 

/* padded to a multiple of samp_f actor DCT blocks in each direction. */ 

/* Note we ask for a pre- zeroed array. */ 

int ci, access_rows; 

jpeg_ component_inf o *compptr; 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinfo->num_components; 
ci++, compptr++) { 
accessor ows = compptr ->v__samp_f actor ; 
#ifdef BLOCK_SM0OTHING_SUPPORTED 

/* If block smoothing could be used, need a bigger window */ 
if ( c info->pr ogres sive_mode) 
access_rows *= 3; 
#endif 

coef->whole_image [ci] = (*cinf o->mem->request_virt_barray) 
( ( j_common_ptr) cinfo, JPOOL_IMAGE, TRUE, 
(JDIMENSION) jround_up ( (long) compptr - >width_in_blocks , 

(long) compptr- >h_samp_f actor) , 
(JDIMENSION) jround_up ( (long) compptr->height_in_blocks , 

(long) compptr- >v_samp_f actor) , 
(JDIMENSION) access_rows) ; 

} 

coef->pub.consume_data = consume_data; 
coef->pub.decompress_data = decompress_data; 

coef->pub. coef_ arrays = coef ->whole_image; /* link to virtual arrays */ 
#else 

ERREXIT (cinfo, JERR_NOT_COMPILED) ; 
#endif 
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else { 

/* We only need a single-^^^buf f er . */ 

JBLOCKROW buffer; 
int i; 

buffer = (JBLOCKROW) 

(*cinfo->mem->alloc_large) < ( j_common„ptr) cinfo, JPOOL — IMAGE, 
D_MAX_BLOCKS_IN_MCU * SIZEOF ( JBLOCK) ) ; 
for (i = 0; i < D_MAX_BLOCKS_IN_MCU; i++) { 

coef->MCU_J>uf f er [i] = buffer + i; 

> 

coef->pub.consume_data = duinmy_consume_data; 
coef->pub.decompress_data = decompress_onepass; 
coef->pub.coef ..arrays = NULL; /* flag for no virtual arrays */ 
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/* 

* jdcolor.c 
* 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains output colorspace conversion routines. 
*/ 

#define JPEG_INTERNALS 
# include " j include. h" 
#include "jpeglib.h" 




/* Private subobject */ 



typedef struct { 

struct jpeg_color_deconverter pub; /* public fields */ 

/* Private state for YCC->RGB conversion */ 



int * Cr_r_tab; 
int * Cb_b_tab; 
INT32 * Cr_g_tab; 
INT32 * Cb_g_tab; 
} my_color_de converter; 



/* -> table for Cr to R conversion */ 

/* => table for Cb to B conversion */ 

/* -> table for Cr to G 

/* => table for Cb to G 



conversion */ 
conversion */ 



typedef my_color_deconverter * my„cconvert_ptr ; 



/**************** ycbCr -> RGB conversion: most common case **************/ 

=|JYCbCr is defined per CCIR 601-1, except that Cb and Cr are 
^normalized to the range 0. . MAX JS AMPLE rather than -0.5 .. 0.5. 
The conversion equations to be implemented are therefore 

R = Y + 1.40200 * Cr 

G = Y - 0.34414 * Cb - 0.71414 * Cr 
tl B = Y + 1.77200 * Cb 

^ where Cb and Cr represent the incoming values less CENTERJSAMPLE . 

%*] (These numbers are derived from TIFF 6.0 section 21, dated 3-June-92.) 

To avoid floating-point arithmetic, we represent the fractional constants 
s* as integers scaled up by 2*16 (about 4 digits precision) ; we have to divide 
\*l the products by 2*16, with appropriate rounding, to get the correct answer. 
!_£ Notice that Y, being an integral input, does not contribute any fraction 
yjf so it need not participate in the rounding. 

: : j: 

1*^ For even more speed, we avoid doing any multiplications in the inner loop 
~"*J by precalculating the constants times Cb and Cr for all possible values, 
fjjj For 8-bit JSAMPLEs this is very reasonable (only 256 entries per table) ; 
-4 for 12 -bit samples it is still acceptable. It's not very reasonable for 
16-bit samples, but if you want lossless storage you shouldn't be changing 

* colorspace anyway. 

* The Cr=>R and Cb=>B values can be rounded to integers in advance; the 

* values for the G calculation are left scaled up, since we must add them 

* together before rounding. 
*/ 

#define SCALEBITS 16 /* speediest right-shift on some machines */ 

#define ONE„HALF ((INT32) 1 « (SCALEBITS-1) ) 

idefine FIX(x) ((INT32) ( (x) * (1L«SCALEBITS) + 0.5)) 



/* 

* Initialize tables for YCC->RGB colorspace conversion. 
*/ 

LOCAL (void) 

build_ycc_rgb_table ( j_decompress_ptr cinfo) 
{ 

my_cconvert_ptr c convert = (my_cconvert_ptr ) cinf o->cconvert; 
int i; 
INT32 x; 
SHI FT_TEMPS 

cconvert->Cr_r_tab = (int *) 

(*cinfo->mem->alloc_small) ( ( j_common_j?tr ) cinfo, JPOOL_IMAGE, 
(MAXJSAMPLE+1) * SIZEOF ( int ) ) ; 
cconvert->Cb_b_ tab = (int *) 
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(*cinfo->mem->alloc_smaiyMM j_common_ptr) cinfo, JPOOL_IMAGE 
(MAXJSAMPLE+^B|si2E0F(int) ) ; 

cconvert->Cr_g_tab = <INT32^P 

(*cinfo->mem->alloc_small) ( ( j_common_j?tr) cinfo, JPOOL_IMAGE, 
(MAXJSAMPLE+1) * SIZEOF ( INT32 )) ; 
cconvert->Cb_g„tab = (INT32 *) 

(*cinfo->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
(MAXJSAMPLE+1) * SIZEOF ( INT32 )) ; 

.for (i = 0, x = -CENTERJ SAMPLE ; i <= MAX JSAMPLE ; i++, x++) { 

/* i is the actual input pixel value, in the range 0. .MAX JSAMPLE */ 
/* The Cb or Cr value we are thinking of is x = i - CENTERJSAMPLE */ 
/* Cr=>R value is nearest int to 1.40200 * x */ 
cconvert->Cr_r_tab[i] = (int) 

RIGHT_SHIFT (FIX (1.40200) * x + ONE_HALF, SCALEBITS); 
/* Cb=>B value is nearest int to 1.77200 * x */ 
cconvert->Cb_b__tab[i] = (int) 

RIGHT_SHIFT (FIX (1.77200) * x + ONE_HALF , SCALEBITS); 
/* Cr=>G value is scaled-up -0.71414 * x */ 
cconvert->Cr_g_tab[i] = (- FIX (0 . 71414) ) * x; 
/* Cb=>G value is scaled-up -0.34414 * x */ 

/* We also add in 0NE_HALF so that need not do it in inner loop */ 
cconvert->Cb_g_tab[i] = (- FIX (0 . 34414) ) * x + 0NE_HALF; 

} 

} 



/* 

* Convert some rows of samples to the output colorspace. 
* 

* Note that we change from noninterleaved, one -plane -per -component format 
i s . to interleaved-pixel format. The output buffer is therefore three times 
^as wide as the input buffer. 

=IJA starting row offset is provided only for the input buffer. The caller 
Ml can easily adjust the passed output_buf value to accommodate any row 
^ 3 offset required on that side. 

# 

MElfHODDEF (void) 

y&c_rgb_convert ( j„decompress_ptr cinfo, 
.j\ JSAMP IMAGE input_buf, JDIMENSION input_row, 

1; JSAMPARRAY output_buf , int num_rows) 

{Mi 

s my_cconvert_ptr cconvert = (my_cconvert_ptr) cinf o->cconvert; 
^register int y, cb, cr; 
^register JSAMPROW outptr; 

Uregister JSAMPROW inptrO, inptrl, inptr2; 
?= register JDIMENSION col; 

? "JDIMENSION num_cols = cinf o->output_width; 

copy these pointers into registers if possible */ 
p=register JSAMPLE * range_limit = cinf o->sample_range_limit; 
reregister int * Crrtab = c convert ->Cr_r_ tab ; 
^register int * Cbbtab = c convert ->Cb_b_tab ; 

register INT32 * Crgtab = cconvert- >Cr_g_ tab; 

register INT32 * Cbgtab = cconvert->Cb_g_tab; 

SHIFT_TEMPS 

while ( — num_ rows >= 0) { 

inptrO = inputjbuf [0] [inputs row] ; 

inptrl = input_buf [1] [input_row] ; 

inptr2 = input_buf [ 2 ] [ input_row] ; 

input_row++; 

outptr a *output_buf ++; 

for (col = 0; col < num_cols; col++) { 

y = GETJSAMPLE ( inptrO [col] ) ; 

cb = GETJSAMPLE (inptrl [col] ) ; 

cr = GETJSAMPLE (inptr 2 [col] ) ; 

/* Range- limiting is essential due to noise introduced by DCT losses. */ 
outptr [RGB_RED] = range_limi t [y + Crrtab[cr]]; 
outptr [RGB_ GREEN] = range_l imi t [ y + 

((int) RIGHT_SHI FT (Cbgtab [cb] + Crgtab [cr] , 
SCALEBITS))]; 
outptr [RGBJBLUE] = range_limit [y + Cbbtab[cb]]; 
outptr += RGB_PIXELSIZE; 

} 

} 

} 



/**************** cases other than YCbCr -> RGB **************/ 
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/* 

* Color conversion for no colorspace change: just copy the data, 

* converting from separate-planes to interleaved representation. 
V 

METHODDEF ( void ) 

null_ convert ( j_decompress_ptr cinfo, 

JSAMPIMAGE input_buf, JDIMENSION input_row, 
JSAMPARRAY outputjbuf, int nun\_rows) 

{ 

register JSAMPROW inptr, outptr; 
register JDIMENSION count; 

register int num_components = cinf o->num_components; 
JDIMENSION nuitucols = cinf o->output_width; 
int ci; 

while (--num_rows >- 0) { 

for (ci = 0; ci < num_components ; ci++) { 
inptr = input_buf [ci] [input„row] ; 
outptr = output_buf [0] + ci; 

for (count = num_cols; count > 0; count--) { 
*outptr = *inptr++; /* needn't bother with GETJSAMPLE ( ) here */ 
outptr += num_ components ; 

} 

> 

input_row++; 
ou tpu t_bu f + + ; 

} 

} 



' it, 6 

£l Color conversion for grayscale: just copy the data. 

**=This also works for YCbCr -> grayscale conversion, in which 

£1we just copy the Y (luminance) component and ignore chrominance. 

MgS'HODDEF (void) 

gjfayscale_convert ( j_decompress_ptr cinfo, 
2^ JSAMPIMAGE input_buf, JDIMENSION input_row, 

Ifj JSAMPARRAY output_buf , int num_ rows) 

L 

r j copy_sample_rows { input_buf [ 0 ] , ( int ) input_row, output_buf , 0 , 
r" h num_rows, cinf o->output_ width) ; 

}Q 

^Convert grayscale to RGB: just duplicate the graylevel three times. 

This is provided to support applications that don't want to cope 
03 with grayscale as a separate case. 
*/ 

METHODDEF (void) 

gray_rgb_convert ( j_decompress_ptr cinfo, 

JSAMPIMAGE input_buf, JDIMENSION input_row, 
JSAMPARRAY output„buf , int num_rows) 

{ 

register JSAMPROW inptr, outptr; 
register JDIMENSION col; 

JDIMENSION num_cols = cinf o->output_width; 

while ( — nunurows >= 0) { 

inptr = input_buf [0] [input_row++] ; 

outptr = *output_buf ++; 

for (col = 0; col < num_cols; col++) { 

/* We can dispense with GETJSAMPLE ( ) here */ 

outptr [RGB_RED] = outptr [RGB_GREEN] = outptr [RGB_BLUE] = inptr [col] 
outptr += RGB_PIXELSIZE; 

} 

} 

} 



/* 

* Adobe-style YCCK->CMYK conversion. 

* We convert YCbCr to R=l-C, G=l-M, and B=l-Y using the same 

* conversion as above, while passing K (black) unchanged. 
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k We assume build_ ycc_rgb_ t^^^has been called. 



METHODDEF (void) 

ycck_cmyk_convert ( j_decompress_ptr cinfo, 

JSAMPIMAGE input_buf, JDIMENSION input_row, 
JSAMPARRAY output_buf, int nunurows) 



{ 



my_cconvert_ptr cconvert = (my_cconvert_ptr) cinf o->cconvert; 
register int y, cb, cr; 
register JSAMPROW outptr; 

register JSAMPROW inptrO, inptrl, inptr2, inptr3; 
register JDIMENSION col; 

JDIMENSION nunucols = cinf o->output_width; 

/* copy these pointers into registers if possible */ 

register JSAMPLE * range_limit = cinf o->sample_range_limit ; 

register int * Crrtab = cconvert ->Cr_r„tab; 

register int * Cbbtab = c convert ->Cb_b_ tab; 

register INT32 * Crgtab = c convert ->Cr_g_tab; 

register INT32 * Cbgtab = c convert ->Cb_g_ tab ; 

SHI FT_TEMPS 

while ( — num_rows >= 0) { 

inptrO = input_buf [ 0 ] t input_row] ; 

inptrl = input_buf [1] [input_row] ; 

inptr2 = input_buf [2] [input_row] ; 

inptr3 = input„buf [3 ] [input_row] ; 

input_row++; 

outptr = *output_buf ++; 

for (col = 0; col < num_cols; col++) { 

y = GET JSAMPLE ( inptrO [col 3 ) ; 

cb = GETJSAMPLE (inptrl [col] ) ; 
'~f cr = GETJSAMPLE ( inptr2 [col 3 ) ; 

I] /* Range- limiting is essential due to noise introduced by DCT losses. 

outptr [0] = range_limit [MAX JSAMPLE - (y + Crrtab[cr] ) ] ; /* red */ 
I. 6 outptr[l] = range_limit [MAX JSAMPLE - (y + /* green */ 

13 ((int) RIGHT_SHIFT (Cbgtab [cb] + Crgtab [ cr ] , 

H i SCALEBITS) ) ) ] ; 

•l outptr [2] = range_limit [MAX JSAMPLE - (y + Cbbtab[cb] ) ] ; /* blue */ 

/* K passes through unchanged */ 
0 outptr [3] = inptr3[col]; /* don't need GETJSAMPLE here */ 



outptr += 4; 



s } 



m 

I* 5 .' Empty method for start_pass. 



^THODDEF(void) 

star t_pass_dco lor ( j_decompress_ptr cinfo) 
{ 

/* no work needed */ 

} 



/* 

* Module initialization routine for output colorspace conversion. 
*/ 

GLOBAL (void) 

jinit_color_deconverter ( j_decompress_ptr cinfo) 
{ 

my_cconvert_ptr cconvert ; 
int ci; 

cconvert = (my_cconvert_ptr) 

(*cinf o->mem->alloc_small) ( (j_common.jp tr) cinfo, JPOOL_IMAGE, 
SIZEOF (my_color_deconverter) ) ; 
cinfo->cconvert = (struct jpeg_color_deconverter *) cconvert; 
cconvert->pub. start_pass = start_pass_dcolor ; 

/* Make sure num_components agrees with jpeg_color_space */ 
switch (cinf o-> jpeg_color„space) { 
case JCS_GRAYSCALE: 

if (cinf o->num_components != 1) 

ERREXIT( cinfo, JERR_BAD_J_COLORSPACE) ; 

break; 
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case JCS_RGB: 
case JCS_YCbCr: 

if (cinf o->num_components != 3) 

ERREXIT { cinf o , JERR^BAD_J_C0LORSPACE) ; 

break; 

case JCS_CMYK: 
case JCS_YCCK: 

if (cinf o->num_components != 4) 

ERREXIT ( cinf O, JERRJAD__J_C0LORSPACE) ; 

break; 

default: /* JCS_UNKNOWN can be anything */ 

if (cinf o->num_components < 1) 

ERREXIT (cinf o , JERR__BAD_J_COLORSPACE) ; 
break; 

} 

/* Set out_color_components and conversion method based on requested space. 

* Also clear the component_needed flags for any unused components, 

* so that earlier pipeline stages can avoid useless computation. 
*/ 

switch (cinf o->out_color_space) { 
case JCS_GRAYSCALE: 

cinfo->out_color_components = 1; 

if (cinf o->jpeg_color_space == JC S — GRAYSCALE | | 

cinfo->jpeg_color_space « JCS_YCbCr) { 

cconvert->pub.color_convert = gray scale_c onver t; 

/* For color->grayscale conversion, only the Y (0) component is needed */ 
j==. for (ci = 1; ci < cinf o->num__components ; ci++) 
cinfo->comp_ info [ci] . component„needed = FALSE; 
} else 

m ERREXIT ( cinf o, JERR_CONVERSION_NOTIMPL) ; 
break; 

Sfase JCS_RGB: 

-l cinfo->out_color„components = RGB_PIXELSIZE; 
^ if (cinf o->jpeg_color_space == JCS_YCbCr) { 
Jj cconvert->pub.color_convert = y c c_rgb_c onver t; 
=5"= bui 1 d_yc c_rgb_tabl e ( c i nf o ) ; 

} else if ( cinf o->jpeg_color_ space == JCS_GRAYSCALE) { 
s cconvert->pub.color_convert = gray_rgb_c onver t; 

Li, } else if (cinf o-> jpeg__color_space == JCS_RGB && RGB_PIXELSIZE ==3) { 

cconvert->pub. col or_c onver t = null_convert; 
l=>- } else 

HI ERREXIT ( cinf O, JERR_CONVERSION_NOTIMPL) ; 



break; 



Cpase JCS_CMYK: 

~l cinf o->out_color_components = 4; 

if (cinfo->jpeg_color_space == JCS_YCCK) { 

c c onver t - >pub . c o 1 or_c onve r t = y c c k_cmyk_c onver t ; 

bui ld_y cc_rgb_t able (cinf o) ; 
} else if (cinf o->jpeg_color_space == JCS_CMYK) { 

c c onver t->pub. col or_c onver t = null__convert; 
} else 

ERREXIT ( cinf o, JERR_CONVERSION_NOTIMPL) ; 
break ; 

default: 

/* Permit null conversion to same output space */ 

if (cinf o->out_ color_space == cinf o->jpeg_color_space) { 

cinf o->out_color_ components = cinf o->num_components; 

cconvert->pub. col or_c onver t = null_convert; 
) else /* unsupported non-null conversion */ 

ERREXIT ( cinf o, JERR_CONVERSION_NOTIMPL) ; 
break; 

} 

if (cinfo->quantize_colors) 

cinf o->output_components =1; /* single colormapped output component */ 
else 

cinf o->output_components = cinf o->out_color_components; 

} 
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/* 

* jddctmgr.c 
* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains the inverse-DCT management logic. 

* This code selects a particular IDCT implementation to be used, 

* and it performs related housekeeping chores. No code in this file 

* is executed per IDCT step, only during output pass setup. 
* 

* Note that the IDCT routines are responsible for performing coefficient 

* dequantization as well as the IDCT proper. This module sets up the 

* dequantization multiplier table needed by the IDCT routine. 
*/ 

idefine JPEG_I NTERNAL S 
#include ■ j include .h" 
iinclude "jpeglib.h" 

#include "jdct.h" /* Private declarations for DCT subsystem */ 



/* 

* The decompressor input side (jdinput.c) saves away the appropriate 

* quantization table for each component at the start of the first scan 

* involving that component. (This is necessary in order to correctly 

* decode files that reuse Q-table slots.) 

* When we are ready to make an output pass, the saved Q-table is converted 

* to a multiplier table that will actually be used by the IDCT routine. 

* The multiplier table contents are IDCT-method-dependent . To support 
jjj application changes in IDCT method between scans, we can remake the 
^multiplier tables if necessary. 

^In buffered- image mode, the first output pass may occur before any data 
glhas been seen for some components, and thus before their Q-tables have 
.f==been saved away. To handle this case, multiplier tables are preset 
to zeroes; the result of the IDCT will be a neutral gray level. 

Ml Private subobject for this module */ 
t^Tpedef struct { 

5 struct jpeg_inverse_dct pub; /* public fields */ 

P*/* This array contains the IDCT method code that each multiplier table 

=f * is currently set up for, or -1 if it's not yet set up. 

|| j * The actual multiplier tables are pointed to by dct_table in the 

vs * per-component comp_info structures. 

~ */ 

LJint cur_method[MAX_COMPONENTS] ; 
Flmy_idct„contr oiler ; 

typedef my_idc t_c on tr oiler * my_idct_ptr; 



/* Allocated multiplier tables: big enough for any supported variant */ 

typedef union { 

ISLOW_MULT_TYPE islow_array [DCTSIZE2 ] ; 
#ifdef DCT_IFAST_SUPPORTED 

IFAST_MULT_TYPE if ast_array [DCTSIZE2 ] ; 
#endif 

#ifdef DCT_FLOAT — SUPPORTED 

FLOAT_MULT_TYPE f loat_array [DCTSIZE2 ] ; 
# end if 

} multiplier., table; 



/* The current scaled-IDCT routines require ISLOW-style multiplier tables, 
* so be sure to compile that code if either ISLOW or SCALING is requested. 
*/ 

#ifdef DCT_ISLOW_SUPPORTED 
idefine PROVIDE_ISLOW_TABLES 
#else 

#ifdef IDCT_SCALING_SUPPORTED 
idefine PROVIDE_ISLOW_TABLES 
#endif 
#endif 
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/* 1 

* Prepare for an output pass 1 

* Here we select the proper IDCT routine for each component and build 

* a matching multiplier table. 
*/ 

METHODDEF (void) 

start_pass ( j_decompress_ptr cinfo) 
{ 

my_idct_ptr idct = (my_idct_ptr) cinfo->idct; 
int ci, i; 

jpeg_component_inf o * compptr; 
int method = 0; 

inverse_DCT_method_ptr method_ptr = NULL; 
JQUANT_TBL * qtbl ; 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components; 
ci++, compptr++) { 
/* Select the proper IDCT routine for this component's scaling */ 
switch (compptr->DCT_scaled_size) { 
#ifdef IDCT_SCALING_SUPPORTED 
case 1: 

method__ptr = jpeg_idct__lxl; 

method = JDCT_ISLOW; /* j idct red uses is low- style table */ 
break; 
case 2: 

method_ptr = jpeg_idct_2x2 ; 

method = JDCT_ISLOW; /* j idct red uses is low- style table */ 
break; 
case 4: 

method_ptr ~ jpeg_idct_4x4 ; 
"=f method = JDCT_ISLOW; /* jidctred uses islow-style table */ 
'dj break; 
#§ndif 
~ s 2 case DCTSIZE: 

yj switch ( cinfo ->dct_method) { 
ftfdef DCT_ISLOW_SUPPORTED 

tf l case JDCT_ISLOW: 

method _j?tr = jpeg_idct_islow; 

J] method = JDCT_ISLOW; 

?fa break; 
tfendif 

Mfdef DCT_IFAST_SUPPORTED 

L_l case JDCT_IFAST: 

L.I method_j?tr = jpeg_idct_if ast ; 

O method = JDCT_IFAST; 

break; 
#Sidif 

#¥fdef DCT_FLOAT_S UP PORTED 
Q case JDCT_FLOAT: 

method_ptr = jpeg_idct_f loat; 
^ method = JDCT_FLOAT ; 

break; 
#endif 

default: 

ERREXIT (Cinfo , JERR_NOT_COMPILED) ; 
break; 
} 

break; 
default: 

ERREXIT1 ( cinfo , JERR_ BAD„DCT SIZE, compptr->DCT_scaled_size) ; 
break; 

} 

idct->pub. inverse_DCT[ci] = method_j?tr; 

/* Create multiplier table from quant table. 

* However, we can skip this if the component is uninteresting 

* or if we already built the table. Also, if no quant table 

* has yet been saved for the component, we leave the 

* multiplier table all-zero; we'll be reading zeroes from the 

* coefficient controller's buffer anyway. 
*/ 

if {! compptr->component_needed || idct->cur_method[ci] == method) 

continue; 
qtbl = compptr - >qu an t_ table ; 

if (qtbl == NULL) /* happens if no data yet for component */ 

continue; 
idct->cur_method[ci] = method; 
switch (method) { 
tifdef PROVIDE_ISLOW_TABLES 
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case JDCT_ISLOW: 

{ 

/ * For LL&M IDCT method, TBPtipliers are equal to raw quantiza^Wn 

* coefficients, but are stored as ints to ensure access efficiency. 



I SLOW_tfULT_TYPE * ismtbl = ( ISLOW_MULT_TYPE *) compptr->dct_table; 
for (i = 0; i < DCTSIZE2; i++) { 

ismtbl [i] = (ISLOW_MULT_TYPE) qtbl->quantval [i ] ; 

} 

} 

break; 

tend if 

tifdef DCT_IFAST_SUPPORTED 
case JDCT_IFAST: 
{ 

/* For AA&N IDCT method, multipliers are equal to quantization 

* coefficients scaled by scalef actor [row] *scalefactor [col] , where 

* scalef actor [0] = 1 

* scalef actor [k] = cos(k*PI/16) * sqrt(2) for k=1..7 

* For integer operation, the multiplier table is to be scaled by 

* IFAST_SCALE_BITS . 
*/ 

I FAST _J1ULT__TYPE * ifmtbl = ( IFAST_MULT_TYPE *) compptr->dct_table; 
#define CONST_BITS 14 

static const INT16 aanscales [DCTSIZE2 ] = { 

/* precomputed values scaled up by 14 bits */ 
16384, 22725, 21407, 19266, 16384, 12873, 8867, 4520, 
31521, 29692, 26722, 22725, 17855, 12299, 6270, 
29692, 27969, 25172, 21407, 16819, 11585, 5906, 
26722, 25172, 22654, 19266, 15137, 10426, 5315, 
22725, 21407, 19266, 16384, 12873, 8867, 4520, 
17855, 16819, 15137, 12873, 10114, 6967, 3552, 
12299, 11585, 10426, 8867, 6967, 4799, 2446, 
6270, 5906, 5315, 4520, 3552, 2446, 1247 



22725, 
21407, 
19266, 
16384, 
12873, 

8867, 

4520, 
}; 

SHIFT TEMPS 



for (i = 0; i < DCTSIZE2; i++) { 
ifmtbl [i] = (IFASTJtfULT_TYPE) 

DESCALE (MULTIPLY16V16( (INT32) qtbl->quantval [i ] , 
(INT32) aanscales [i] ) , 
CONST_BITS-IFAST_SCALE_BITS) ; 



} 



} 



L.l break; 
fcendif 

Wfdef DCT_FLOAT_SUPPORTED 
HI case JDCT_FLOAT: 
{ 

/* For float AA&N IDCT method, multipliers are equal to quantization 
LJ * coefficients scaled by scalef actor [row] *scalef actor [col] / where 
~~ * scalef actor [0] — 1 

w * scalef actor [k] = cos(k*PI/16) * sqrt(2) for k=1..7 
*/ 

FLOAT_MULT_TY PE * fmtbl = ( FLOAT_MULT_TYPE *) compptr->dct_table; 
int row, col; 

static const double aanscalef actor [DCTSIZE] = { 
1.0, 1.387039845, 1.306562965, 1.175875602, 
1.0, 0.785694958, 0.541196100, 0.275899379 

}; 



i = 0; 

for (row = 0; row < DCTSIZE; row++) { 
for (col = 0; col < DCTSIZE; col++) { 
fmtbl [i] = (FLOAT_MULT_TYPE) 
((double) qtbl->quantval [i] * 
aanscalef actor [row] * aanscalef actor [col] ) ; 
i++; 



} 



break; 

tend if 

default: 

ERREXIT ( cinf o , JERR__NOT_COMPILED) ; 
break; 

} 



) 



} 
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/* 

* Initialize IDCT manager. 
*/ 

GLOBAL (void) 
jinit_inverse_dct ( j_decompress_ptr cinfo) 
{ 

my__ idct__ptr idct; 
int ci; 

jpeg_ component_inf o *compptr; 

idct = <my_idct_ptr) 

(*cinf o->mem->alloc__small ) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
SIZEOF (my_idct_controller) ) ; 
cinfo->idct = (struct jpeg_inverse_dct *) idct; 
idct->pub.start_pass = start_pass; 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinfo->num_components; 
ci++ , compptr++ ) { 
/* Allocate and pre- zero a multiplier table for each component */ 
compptr- >dct_table = 

( *cinfo->mem->alloc_small ) ( { j_common_ptr) cinfo, JP00L_IMAGE, 
SIZEOF (multiplier_table) ) ; 
MEMZERO(compptr->dct_table, SIZEOF (multiplier_table) ) ; 
/* Mark multiplier table not yet set up for any method */ 
idct->cur_method[ci] = -1; 

} 

} 




/* 

* jdhuff.c 
* 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains Huffman entropy decoding routines. 
* 

* Much of the complexity here has to do with supporting input suspension. 

* If the data source module demands suspension, we want to be able to back 

* up to the start of the current MCU. To do this, we copy state variables 

* into local working storage, and update them back to the permanent 

* storage only upon successful completion of an MCU. 
*/ 

#define JPEG_INTERNALS 
iinclude " j include. h" 
# include "jpeglib.h" 

# include "jdhuff .h" /* Declarations shared with jdphuff .c */ 




/* 

* Expanded entropy decoder object for Huffman decoding. 
* 

* The savable_state subrecord contains fields that change within an MCU, 

* but must not be updated permanently until we complete the MCU. 
*/ 

typedef struct { 

int last_dc_val[MAX_COMPS_IN_SCAN] ; /* last DC coef for each component */ 
}^=s avable_state; 

/^JThis macro is to work around compilers with missing or broken 
^structure assignment. You'll need to fix this code if you have 
*^. = such a compiler and you change MAX_COMPS_IN_SCAN. 

#ilndef NO_JSTRUCT_ASSIGN 

flNfefine ASSIGN_STATE (dest, src) ((dest) = (src) ) 

fclf MAX_COMPS_IN_SCAN — 4 
fdefine ASSIGN_STATE (dest , src) \ 

s ( (dest) .last_dc_val[0] = (src) . last_dc_val [0] , \ 

t^L (dest) ,last_dc_val[lj = (src) . last_dc„val [1] , \ 

Li (dest) .last_dc_val[2] = (src) . last_dc_val [2] , \ 

(dest) .last_dc_val [3] = (src) . last_dc_val [3 ] ) 
fehdif 
#ehdif 

"5. s 



fc^pedef struct { 

^-struct jpeg_entropy_decoder pub; /* public fields */ 

/* These fields are loaded into local variables at start of each MCU. 
* In case of suspension, we exit WITHOUT updating them. 
*/ 

bitread_perm_state bitstate; /* Bit buffer at start of MCU */ 
savable_state saved; /* Other state at start of MCU */ 

/* These fields are NOT loaded into local working state. */ 

unsigned int restarts_to_ go; /* MCUs left in this restart interval */ 

/* Pointers to derived tables (these workspaces have image lifespan) */ 
d_derived_tbl * dc_derived_tbls [NUM_HUFF_TBLS] ; 
d_derived_tbl * ac_derived_tbls [NUM„HUFF_TBLS] ; 

/* Precalculated info set up by start_pass for use in decode_mcu: */ 

/* Pointers to derived tables to be used for each block within an MCU */ 
d_derived_tbl * dc_cur_tbls [D_MAX_BLOCKS_IN_MCU] ; 
d_derived_tbl * ac_cur_tbls [D_MAX_BLOCKS_IN_MCU] ; 

/* Whether we care about the DC and AC coefficient values for each block */ 
boolean dc„needed[D_MAX_BLOCKS_IN_MCU] ; 
boolean ac_needed[D_MAX_BLOCKS_IN_MCU] ; 
} huf f _entropy_de coder ; 

typedef huf f_entropy„decoder * huf f_entropy_ptr ; 
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/* 

* Initialize for a Huf fman-^^B'essed scan. 
*/ 

METHODDEF(void) 

s tar t_pass_huf f_de coder ( j_decompress__ptr cinfo) 
{ 

huf f_entropy_j?tr entropy = (huf f_entropy_ptr) cinf o->entropy; 
int ci, blkn, dctbl, actbl; 
jpeg_component_inf o * compptr; 

/* Check that the scan parameters Ss, Se, Ah/Al are OK for sequential JPEG. 

* This ought to be an error condition, but we make it a warning because 

* there are some baseline files out there with all zeroes in these bytes. 
*/ 

if (cinfo->Ss 1=0 If cinfo->Se != DCTSIZE2-1 || 
cinfo->Ah != 0 (I cinfo->Al != 0) 
WARNMS (cinfo, JWRN_NOT_SEQUENTIAL) ; 

for (ci = 0; ci < cinf o->comps — in_scan; ci++) { 
compptr = cinf o->cur_comp_inf o [ci] ; 
dctbl = compptr->dc_tbl_no; 
actbl = compptr->ac_tbl_no; 

/* Compute derived values for Huffman tables */ 

/* We may do this more than once for a table, but it's not expensive */ 
jpeg_jnake_d_derived_tbl (cinfo, TRUE, dctbl, 

& en tropy->dc_derived_tbls [dctbl] ) ; 
jpeg_make_d_derived_tbl (cinf o, FALSE, actbl, 

& entropy- >ac_derived_tbls [actbl] ) ; 
/* Initialize DC predictions to 0 */ 
ent ropy-> saved. las t_dc_val [ci] = 0; 

U?* Precalculate decoding info for each block in an MCU of this scan */ 
fifor (blkn = 0; blkn < cinf o->blocks_in_MCU; blkn++) { 

ci = cinfo->MCU_jnembership[blkn] ; 
~J compptr = cinf o->cur_comp_inf o [ci] ; 

~-J /* Precalculate which table to use for each block */ 

. 5 I ent ropy- >dc„cur_tbls [blkn] = entropy- >dc_derived_tbls [compptr ->dc_tbl_no] 
entropy- >ac_cur_tbls [blkn] = entropy- >ac_derived_tbls [compptr->ac_tbl_no] 
-Jj /* Decide whether we really care about the coefficient values */ 
f%\ if ( compptr- >component_needed) { 

entropy->dc_needed[blkn] = TRUE; 
s /* we don't need the ACs if producing a l/8th-size image */ 

entropy->ac_needed[blkn] = (compptr->DCT_scaled_size > 1) ; 
L." } else { 

yj ent ropy->dc_needed [blkn] = entropy- >ac_ needed [blkn] = FALSE; 

m } 

Q/* Initialize bi tread state variables */ 
p!entropy->bitstate.bits_lef t = 0; 

^=- s entropy->bitstate.get„buf fer = 0; /* unnecessary, but keeps Purify quiet */ 
entropy- >pub. insuf f icient_data = FALSE; 

/* Initialize restart counter */ 

entropy->restarts_to_go = cinf o->restart_interval; 

} 



/* 

* Compute the derived values for a Huffman table. 

* This routine also performs some validation checks on the table. 
* 

* Note this is also used by jdphuff .c. 
*/ 

GLOBAL (void) 

jpeg_make„d_derived_tbl ( j_decompress_ptr cinfo, boolean isDC, int tblno, 
d_derived_tbl ** pdtbl) 

{ 

JHUFF_TBL *htbl; 

d_derived_tbl *dtbl; 

int p, i, 1, si, numsymbols; 

int lookbits, ctr; 

char huf fsize[257] ; 

unsigned int huf f code [257] ; 

unsigned int code; 

/* Note that huffsizet] and huffcode[] are filled in code-length order, 
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* paralleling the order of^^e symbols themselves in htbl->huf J^^kf ] . 



/* Find the input Huffman table */ 

if (tblno < 0 | | tblno >= NUM_HUFF_TBLS ) 

ERREXIT1 ( cinf o , JERR_fJO_HUFF_TABLE , tblno ) ; 
htbl = 

isDC ? cinf o->dc_huff_tbl__ptrs [tblno] : cinf o->ac_huf f_tbl„ptrs [tblno] ; 
if (htbl == NULL) 

ERREXIT1 (cinfo, JERR_NO_HUFF_TABLE , tblno); 

/* Allocate a workspace if we haven't already done so. */ 
if (*pdtbl == NULL) 

*pdtbl = <d_derived_tbl *) 

(*cinf o->mem->alloc_small ) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
SIZEOF(d_derived_tbl) ) ; 

dtbl = *pdtbl; 

dtbl->pub = htbl; /* fill in back link */ 

/* Figure C.l: make table of Huffman code length for each symbol */ 
P = 0; 

for (1 = 1; 1 <= 16; 1++) { 
i = (int) htbl->bits[l] ; 

if(i<0||p+i>256) /* protect against table overrun */ 

ERREXIT( cinfo, JERR^BAD.HUFF JTABLE ) ; 
while (i--) 

huff size [p++] = (char) 1; 

} 

huffsize[p] = 0; 
numsymbols = p; 

: ~:f* Figure C.2: generate the codes themselves */ 

u)* We also validate that the counts represent a legal Huffman code tree. */ 

^ode = 0; 

y^si = huffsize[0]; 

\p = 0; 

f while (huff size [p] ) { 

while (((int) huffsize[p]) == si) { 
huff code [p++] = code; 
s=5£ code++; 

M# } 

= /* code is now 1 more than the last code used for codelength si; but 

= : * it must still fit in si bits, since no code is allowed to be all ones. 

y if (((INT32) code) >= {((INT32) 1) « si)) 
p j ERREXIT ( cinfo , JERR_BAD_HUFF_TABLE ) ; 

V* code «= 1; 

'"'4 si++; 

CP 

'^/* Figure F.15: generate decoding tables for bit-sequential decoding */ 
p = 0; 

for (1 = 1; 1 <= 16; 1++) { 
if (htbl->bits[l]) { 

/* valoffset[l] = huffval[] index of 1st symbol of code length 1, 
* minus the minimum code of length 1 
*/ 

dtbl->valoffset[l] = (INT32) p - (INT32) huffcode[p]; 
p += htbl->bits[l] ; 

dtbl->maxcode [1] = huff code [p-l] ; /* maximum code of length 1 */ 
} else { 

dtbl->maxcode [1] = -1; /* -1 if no codes of this length */ 

} 

} 

dtbl->maxcode[17] = OxFFFFFL; /* ensures jpeg_huf f_decode terminates */ 

/* Compute lookahead tables to speed up decoding. 

* First we set all the table entries to 0, indicating "too long"; 

* then we iterate through the Huffman codes that are short enough and 

* fill in all the entries that correspond to bit sequences starting 

* with that code. 
*/ 

MEMZERO(dtbl->look_nbits, SIZEOF (dtbl->look_nbits) ) ; 
P = 0; 

for (1 = 1; 1 <= HUFF_LOOKAHEAD; 1++) { 
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for (i = 1; i <= (int) htJ^^bits [1] ; p++) { 

/* 1 = current code's ^^Bh, p = its index in huff code [] &^Hval[] . */ 

/* Generate lef t- justifUr code followed by all possible bit^BPquences */ 

lookbits = huffcode[p] « ( HUFF_LOOKAHEAD - 1 ) ; 

for (ctr = 1 « ( HUFF_LOOKAHEAD- 1 ) ; ctr > 0; ctr--) { 
dtbl->look_nbits [lookbits] = 1 ; 
dtbl->look„sym( lookbits] = htbl->huf fval {p] ; 
lookbits++ ; 

} 

} 



/* Validate symbols as being reasonable. 

* For AC tables, we make no check, but accept all byte values 0..255. 

* For DC tables, we require the symbols to be in range 0..15. 

* (Tighter bounds could be applied depending on the data depth and mode, 

* but this is sufficient to ensure safe decoding.) 
*/ 

if (isDC) { 

for (i = 0; i < numsymbols; i++) { 
int sym = htbl->huf fval [i] ; 
if (sym < 0 | | sym > 15) 
ERREXIT ( cinf O , JERR_B AD_HUF F_T ABL E ) ; 
} 

} 

} 



/* 

* Out-of-line code for bit fetching (shared with jdphuff ,c) . 

* See jdhuff.h for info about usage. 

£=;Note: current values of get_buffer and bits_left are passed as parameters, 
*-but are returned in the corresponding fields of the state struct. 

4i 

filon most machines MIN_GET_BITS should be 25 to allow the full 32-bit width 

of get_ buffer to be used. (On machines with wider words, an even larger 
-JSbuffer could be used.) However, on some machines 32-bit shifts are 
%\ quite slow and take time proportional to the number of places shifted. 
% (This is true with most PC compilers, for instance.) In this case it may 
^3 be a win to set MIN_GET_BITS to the minimum value of 15. This reduces the 
^average shift distance at the cost of more calls to jpeg_f ill_bit_buf f er . 

Mfdef SLOW_SHIFT_32 
Mefine MIN_GET_B ITS 
telse 

tdtefine MIN_GET_BITS 
fendif 



GEOBAL (boolean) 
jiieg_f ill_bit_buf f er (bitread__ working_state * state, 

register bit_buf_type get_buffer, register int bits_left, 

int nbits) 

/* Load up the bit buffer to a depth of at least nbits */ 
{ 

/* Copy heavily used state fields into locals (hopefully registers) */ 
register const JOCTET * next_input_byte = state->next_input_byte; 
register size_t bytes_in_buf f er = state->bytes_in_buf f er ; 
j_decompress_ptr cinfo = state- >cinf o; 

/* Attempt to load at least MIN_GET_BITS bits into get_buffer. */ 

/* (It is assumed that no request will be for more than that many bits.) */ 

/* We fail to do so only if we hit a marker or are forced to suspend. */ 

if (cinf o->unread_marker ==0) { /* cannot advance past a marker */ 
while (bits_left < MIN_GET_BITS) { 
register int c; 

/* Attempt to read a byte */ 

if (bytes_in_buf f er ==0) { 
if (! (*cinfo->src->f ill_input_buf fer) (cinfo)) 

return FALSE; 
next_input_byte = cinf o->src->next_input_byte; 
bytes_ in_ buf f er = cinf o->src->bytes_in_buf fer ; 

} 

bytes_in_buf f er-- ; 

c = GETJOCTET ( *next_input_byte++ ) ; 

/* If it's OxFF, check and discard stuffed zero byte */ 



15 /* minimum allowable value */ 
(BIT_BUF_SIZE-7) 
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if (c == OxFF) { 
/* Loop here to discard ^^Badding FF's on terminating marke 

* so that we can save alKd unread_marker value. NOTE: we 

* accept multiple FF's followed by a 0 as meaning a single FF data 

* byte. This data pattern is not valid according to the standard. 
*/ 

do { 

if (bytes_in_buf fer ==0) { 

if (! (*cinf o->src->f ill_input_buf fer) (cinfo) ) 

return FALSE; 
next_input_byte = cinf o->src->next_input_byte; 
bytes_in__buf f er = cinf o->src->bytes_in_buf fer; 

} 

by t e s_ i n_bu f f er - - ; 
c = GETJOCTET(*next_input_byte++) ; 
} while (c == OxFF) ; 

if (c == 0) { 

/* Found FF/00, which represents an FF data byte */ 
c = OxFF; 
} else { 

/* Oops, it's actually a marker indicating end of compressed data. 

* Save the marker code for later use. 

* Fine point: it might appear that we should save the marker into 

* bi tread working state, not straight into permanent state. But 

* once we have hit a marker, we cannot need to suspend within the 

* current MCU, because we will read no more bytes from the data 

* source. So it is OK to update permanent state right away. 
*/ 

cinfo->unread_marker = c; 

/* See if we need to insert some fake zero bits. */ 
goto no_more_bytes ; 

Zl > 
UJ } 

/* OK, load c into get_buffer */ 
^ get_buffer = (get_buffer « 8) | c; 
\j bits_left += 8; 

} /* end while */ 
^3 else { 
y|jho_more_by tes : 

nl /* We get here if we've read the marker that terminates the compressed 
'''' * data segment. There should be enough bits in the buffer register 
s * to satisfy the request; if so, no problem. 
U */ 

^ if (nbits > bits_left) { 

/* Uh-oh. Report corrupted data to user and stuff zeroes into 
flj * the data stream, so that we can produce some kind of image. 

* We use a nonvolatile flag to ensure that only one warning message 
y * appears per data segment. 

Q */ 

if ( ! cinfo->entropy->insuf f icient_data) { 
WARNMS (cinfo, JWRN_H I T_MARKE R ) ; 
cinfo->entropy->insuf f icient_data = TRUE; 

} 

/* Fill the buffer with zero bits */ 
get_buffer «= MIN_GET_BITS - bits_left; 
bits_left = MIN_GET_BITS; 

} 

} 

/* Unload the local registers */ 
state- >next_input_byte = next_input_byte; 
state->bytes_in_buf f er = bytes_in_buf f er ; 
state- >get_buf f er = get_buffer; 
state->bits_lef t = bits_left; 

return TRUE; 

} 



/* 

* Out-of-line code for Huffman code decoding. 

* See jdhuff .h for info about usage. 
*/ 

GLOBAL (int) 

jpeg_huf f_decode (bitread_working_state * state, 

register bit_buf_type get_buffer, register int bits_left, 
d_derived_tbl * htbl, int min_bits) 
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{ 

register int 1 = min_bits; 
register INT32 code; 




/* HUFF_DECODE has determined that the code is at least min_bits */ 
/* bits long, so fetch that many bits in ( one swoop. */ 

CHECK — BIT_BUFFER { * state , 1, return -1) ; 
code = GET_BITS ( 1 ) ; 

/* Collect the rest of the Huffman code one bit at a time. */ 
/* This is per Figure F.16 in the JPEG spec. */ 

while (code > htbl->maxcode [ 1] ) { 
code «= 1; 

CHECK_BIT_BUFFER { * state , 1, return -1) ; 

code |= GET_BITS(1) ; 

1++; 

} 

/* Unload the local registers */ 
state->get_buf f er = get_buffer; 
state->bits_lef t = bits_left; 

/* With garbage input we may reach the sentinel value 1 = 17. */ 

if (1 > 16) { 

WARNMS(state->cinfo, JWRN_HUFF_BAD_CODE ) ; 

return 0; /* fake a zero as the safest result */ 

} 

P^eturn htbl->pub->huf fval [ (int) (code + htbl->valof f set [1] ) ]; 

^Figure F.12: extend sign bit. 

On some machines, a shift and add will be faster than a table lookup. 

s 

#JKdef AVOID_TABLES 

Icfefine HUFF_EXTEND ( x , s ) ( (x) < (l«((s)-l)) ? (x) + (((-l)«(s)) + 1) : (x) ) 
|alse 

§3efine HUFF_EXTEND(x, s) ( (x) < extend_test [s] ? (x) + extend_of f set [s] : (x) ) 

flj 

static const int extend_test [ 16] = /* entry n is 2**(n-l) */ 

y{ 0, 0x0001, 0x0002, 0x0004, 0x0008, 0x0010, 0x0020, 0x0040, 0x0080, 

p 0x0100, 0x0200, 0x0400, 0x0800, 0x1000, 0x2000, 0x4000 } ; 

~=. 

static const int extend„of f set [16 J = /* entry n is (-1 « n) +1 */ 
{ 0, <<-l)«l) + 1, ((-1)«2) + 1, <<-l)«3> + 1, ((-1)«4) + 1, 
((-1)«5) + 1, <(-l)«6) + 1, ((-1)«7) + 1, ((-1)«8) + 1, 
((-1)«9) + 1, <(-l)«10> + 1, + 1, ((-1)«12) + 1, 

<(-l)«13) + 1, ((-1)«14) + 1, <(-l)«15) + 1 }; 

#endif /* AVOID_TABLES */ 



/* 

* Check for a restart marker & resynchronize decoder. 

* Returns FALSE if must suspend. 
*/ 

LOCAL (boolean) 

process_restart ( j_decompress_ptr cinfo) 
{ 

huf f_entropy_ptr entropy = (huf f_entropy_ptr ) cinf o->entropy; 
int ci; 

/* Throw away any unused bits remaining in bit buffer; */ 
/* include any full bytes in next_marker ' s count of discarded bytes */ 
cinfo ->marker->discarded_bytes += entropy->bitstate.bits__lef t / 8; 
entropy->bitstate.bits_lef t = 0; 

/* Advance past the RSTn marker */ 

if (! (* cinf o->marker->read_res tar t_marker) (cinfo)) 
return FALSE; 
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/* Re-initialize DC predict^^B to 0 */ 

for (ci = 0; ci < cinf o->co^P^_in_scan; ci++) 
entr opy-> saved. las t_dc_val [ci] = 0; 



/* Reset restart counter */ 

entropy- >res tar ts_ to_go = cinf o->restart_interval; 

/* Reset out-of-data flag, unless read_restart_ marker left us smack up 

* against a marker. In that case we will end up treating the next data 

* segment as empty, and we can avoid producing bogus output pixels by 

* leaving the flag set. 
*/ 

if (cinf o->unread_marker == 0) 

entropy- >pub. insuff icient_ data = FALSE; 

return TRUE; 



/* 

* Decode and return one MCU's worth of Huffman-compressed coefficients. 

* The coefficients are reordered from zigzag order into natural array order, 

* but are not dequantized. 
* 

* The i'th block of the MCU is stored into the block pointed to by 

* MCU_data[i] . WE ASSUME THIS AREA HAS BEEN ZEROED BY THE CALLER. 

* (Wholesale zeroing is usually a little faster than retail...) 
* 

* Returns FALSE if data source requested suspension. In that case no 

* changes have been made to permanent state. (Exception: some output 
^coefficients may already have been assigned. This is harmless for 

this module, since we'll just re-assign them on the next call.) 

P 

JffiTHODDEF (boolean) 

de£ode_mcu ( j„decompress_ptr cinfo, JBLOCKROW *MCU_data) 

, r -3iuf f_entropy_ptr entropy = (huf f_entropy_ptr) cinf o->entropy; 

^4nt blkn; 

-j £ITREAD_STATE_VARS ; 

??savable_state state; 

s /* Process restart marker if needed; may have to suspend */ 

Ldf (cinfo->restart_interval) { 

l_~ if (entropy->restarts_to_go == 0) 

Cj if ( ! process„res tart (cinf o) ) 

FH return FALSE; 

O/* If we've run out of data, just leave the MCU set to zeroes. 

~I * This way, we return uniform gray for the remainder of the segment. 

U */ 

if (! entropy->pub. insuff icient_data) { 
/* Load up working state */ 

BITREAD_LOAD_STATE (cinf o, entr opy->bitstate) ; 
ASSIGN_STATE (state, entropy- >saved ) ; 

/* Outer loop handles each block in the MCU */ 

for (blkn = 0; blkn < cinf o->blocks_in_MCU; blkn++) { 
JBLOCKROW block = MCU_data [blkn] ; 

d_derived_tbl * dctbl = entropy- >dc_cur_tbls [blkn] ; 
d_derived_tbl * actbl = entropy- >ac_cur„tbls [blkn] ; 
register int s, k, r; 

/* Decode a single block's worth of coefficients */ 

/* Section F.2.2.1: decode the DC coefficient difference */ 
HUFF_DECODE(s, br_state ( dctbl, return FALSE, labell) ; 
if (s) { 

CHECK_BIT_BUFFER(br_state, s, return FALSE); 
r = GET_BITS(s) ; 
s = HUFF — EXTEND ( r , s); 
} 

if ( entropy- >dc_needed [blkn] ) { 
/* Convert DC difference to actual value, update last_dc_val */ 
int ci = cinf o->MCU_member ship [blkn] ; 
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PJ 



s += state . last_dc_val (c^ 

state . last_dc_val [ci J = 

/* Output the DC coefficient (assumes jpeg_natural_ order [0] 
(♦block) [0] = (JCOEF) s; 
} 




if (entropy->ac_needed[blkn] ) { 
/* Section F.2.2.2: decode the AC coefficients */ 

/* Since zeroes are skipped, output area must be cleared beforehand 
for (k = 1; k < DCTSIZE2; k++) { 

HUFF_DECODE { s , br_state, actbl, return FALSE, label2); 

r = s » 4; 
s &= 15; 

if (s) { 
k += r; 

CHECK_BIT_BUFFER (br_ state , s, return FALSE); 

r = GET_BITS(s) ; 

s = HUFF_EXTEND(r, s) ; 

/* Output coefficient in natural (dezigzagged) order. 

* Note: the extra entries in jpeg_natural_order [ ] will save us 

* if k >= DCTSIZE2, which could happen if the data is corrupted 
*/ 

(*block) [ jpeg„natural_order [kj ] = (JCOEF) s; 
> else { 

if (r != 15) 

break; 
k += 15; 



f 1 ) 



} else { 



} 



/* Section F.2.2.2: decode the AC coefficients */ 
/* In this path we just discard the values */ 
for (k = 1; k < DCTSIZE2; k++) { 

HUFF_DECODE(s, br_state, actbl, return FALSE, label3) ; 

r = s » 4; 
s &= 15; 

if (s) { 
k += r; 

CHECK_BIT_BUFFER(br„state, s, return FALSE); 
DROP_BITS ( s ) ; 
} else { 

if (r != 15) 

break; 
k += 15; 

} 



} 



} 



/* Completed MCU, so update state */ 
BITREAD_SAVE_STATE (cinf o , entropy->bitstate) ; 
ASSIGN_STATE ( entropy- > saved, state) ; 

} 

/* Account for restart interval (no-op if not using restarts) */ 
entropy->res tar ts_to_go- - ; 

return TRUE; 



/* 

* Module initialization routine for Huffman entropy decoding. 
*/ 

GLOBAL (void) 

jinit_huf f_decoder ( j_decompress_ptr cinfo) 
{ 

huf f_entropy__ ptr entropy; 
int i; 

entropy = (huf f_entropy_ptr) 
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(*cinfo->mem->alloc_smaiy^y j_ common_ptr) cinfo, JPOOL_IMAGE 
SIZEOF(huff_^^Bpy_decoder) ) ; 

cinfo->entropy = (struct jjS|Rntropy_decoder *) entropy; 
ent ropy- >pub. star t_pass = start_j?ass_huf f_de coder ; 
entropy- >pub . decode_mcu = decode — mcu; 

/* Mark tables unallocated */ 
for (i = 0; i < NUM_HUFF_TBLS ; i++) { 

entropy- >dc_derived_tbls [i] = entropy- >ac_der i ved_tbls (i] = NULL; 

} 




/* 

* jdinput.c 
* 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains input control logic for the JPEG decompressor. 

* These routines are concerned with controlling the decompressor's input 

* processing (marker reading and coefficient decoding) . The actual input 

* reading is done in jdmarker.c, jdhuff.c, and jdphuff.c. 
*/ 

#define JPEG_INTERNALS 
# include "j include. h" 
#include "jpeglib.h" 



/* Private state */ 

typedef struct { 

struct jpeg_input_cont roller pub; /* public fields */ 

boolean inheaders; /* TRUE until first SOS is reached */ 

} my_input_cont roller; 

typedef my_input_contr oiler * my_inputctl_ptr ; 



/* Forward declarations */ 
METHODDEF ( int ) consume_markers JPP{ ( j_decompress_ptr cinfo)); 



AS 

^Routines to calculate various quantities related to the size of the image 
L9£AL(void) 

iijfltial_setup ( j_decompress_ptr cinfo) 

A^i Called once, when first SOS marker is reached */ 

lint ci; 

\ s|jpeg_component_inf o * compptr ; 

s 7* Make sure image isn't bigger than I can handle */ 

j^-if {(long) cinfo->image_height > (long) JPEG_MAX_DIMENSION || 

El (long) cinfo->image_width > (long) JPEG_MAX_DIMENSION) 

rs ERREXIT1 (cinfo, JERR_IMAGE_TOO_BIG, (unsigned int) JPEG_MAX_DIMENSION) ; 

SJ/* F 0r now, precision must match compiled-in value... */ 

r^if (cinfo->data_precision != BITS_IN_JSAMPLE) 

~f ERREXITl (cinfo, JERR_BAD_PRECISION, cinf o->data precision) ; 

/* Check that number of components won't exceed internal array sizes */ 
if ( cinfo- >num_components > MAX_COMPONENTS) 

ERREX IT2(cinfo, JERR_COMPONENT_C OUNT , cinfo- >num_c omp onen t s , 
MAX_COMPONENTS) ; 

/* Compute maximum sampling factors; check factor validity */ 
cinf o->max — h„samp_f actor = 1 ; 
cinf o->max_v_samp_f actor = 1; 

for (ci = 0, compptr = cinf o->comp__ inf o; ci < cinf o->nuit\_ components ; 
ci++, compptr++) { 
if ( compptr ->h_samp_f actor<=0 | | compptr- >h_samp_factor>MAX_SAMP_F ACTOR 
compptr- >v_samp_factor<=0 | | compptr- >v_samp_factor>MAX_SAMP_FACTOR) 

ERREXIT (cinfo , JERR_BAD_SAMPLING) ; 
cinfo- >max_h_s amp_f actor = MAX (cinf o->max_h_samp_f actor , 

compptr ->h_samp_f actor) ; 
cinf o->max_v„samp_f actor = MAX (cinf o->max_v_samp_f actor , 
compptr ->v_samp_f actor) ; 

} 

/* We initialize DCT„scaled_size and min_DCT„scale6Usize to DCTSIZE. 

* In the full decompressor, this will be overridden by jdmaster.c; 

* but in the transcoder, jdmaster.c is not used, so we must do it here. 
*/ 

cinfo->min_DCT_scaled_size = DCTSIZE; 
/* Compute dimensions of components */ 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components ; 
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ci++, compptr++) { 
compptr- >DCT_scaled_size ^^KTSIZE; 
/* Size in DCT blocks */ 
compptr->width_in_blocks = (JDIMENSION) 

jdiv_round_up( (long) cinf o->image_width * (long) compptr->h_samp_f actor, 
(long) (cinfo->max_h_samp_factor * DCTSIZE) ) ; 
compptr- >height_in_blocks = (JDIMENSION) 

jdiv_round_up ( (long) cinf o->image_height * (long) compptr- > v_samp_f actor , 
(long) (c info ->max_v_samp_f actor * DCTSIZE)); 
/* downs amp led_width and downs amp led_height will also be overridden by 

* jdmaster.c if we are doing full decompression. The transcoder library 

* doesn't use these values, but the calling application might. 
*/ 

/* Size in samples */ 

compptr- >downsampled_width = (JDIMENSION) 

jdiv_round_up ( (long) cinf o->image_width * (long) compptr->h_samp_f actor , 
(long) cinf o->max_h_samp_f actor) ; 
compptr- >downsampled_height = (JDIMENSION) 

jdiv_round_up ( (long) cinf o->image_height * (long) compptr->v„samp_f actor , 
(long) cinf o->max_v_samp_f actor) ; 
/* Mark component needed, until color conversion says otherwise */ 
compptr->component_needed = TRUE; 

/* Mark no quantization table yet saved for component */ 
compptr->quant_ table = NULL; 

} 

/* Compute number of fully interleaved MCU rows. */ 
cinfo->total_iMCU_rows = (JDIMENSION) 

jdiv_round — up ( (long) cinf o->image_height , 

(long) (cinf o->max_v_samp_f actor *DCTS I ZE) ) ; 

_/* Decide whether file contains multiple scans */ 

£lf (cinf o->comps_in_scan < cinf o->num_components | | cinf o->progr ess ive_mode) 

j\ cinf o->inputctl->has_multiple_ scans = TRUE; 

^Jslse 

U= cinf o->inputctl->has_multiple_scans = FALSE; 

Hi 



LOCAL (void) 

pei__scan_setup ( j_decompress_ptr cinfo) 
J*f K Do computations that are needed before processing a JPEG scan */ 
A*l cinfo ->comps_in_s can and cinf o->cur_comp_inf o [ ] were set from SOS marker */ 

t 

5 ,int ci, mcublks, tmp; 
r-^jpeg^omponent^nf o * compptr; 

Pi 

aaf (cinf o->comps_in_s can ==1) { 

Sj /* Noninter leaved (single-component) scan */ 
pi compptr = cinf o->cur_comp_inf o [0] ; 

O /* Overall image size in MCUs */ 

cinf o->MCUs_ per_row = compptr->width_in_blocks; 
cinfo->MCU_ rows_in_scan = compptr->height_in_blocks; 

/* For noninter leaved scan, always one block per MCU */ 
compptr->MCU_ width = 1; 
compptr- >MCU_height = 1; 
compptr- >MCU_blocks = 1; 

compptr- >MCU_sample_width = compptr->DCT_scaled_size; 
compptr- >last_col_width = 1; 

/* For noninter leaved scans, it is convenient to define last_ row_height 
* as the number of block rows present in the last iMCU row. 
*/ 

tmp = (int) (compptr->height_in__blocks % compptr->v_samp_f actor) ; 
if (tmp == 0) tmp = compptr->v_ samp„f actor ; 
compptr- >1 as t_row_height = tmp; 

/* Prepare array describing MCU composition */ 
cinfo- >blocks_in_MCU = 1; 
cinfo->MCU_membership[0] = 0; 

} else { 

/* Interleaved (multi -component) scan */ 

if (cinfo->comps_in_scan <= 0 | | cinf o->comps_in_scan > MAX_COMPS_IN_SCAN ) 
ERREXIT2 (cinfo, JERR_COMPONENT_COUNT , cinf o->comps_in_scan, 
MAX_COMPS_IN_SCAN ) ; 
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/* Overall image size in Jflfe */ 
cinf o->MCUs_per_row = (Jl^^HlSION) 

jdiv_rouncL_up ( (long) ciSiF->image_width, 

(long) (cinf o->max_h_samp_f actor *DCTSIZE) ) ; 
cinfo->MCU_rows_in_scan = (JDIMENSION) 

jdiv_round_up ( (long) cinf o->image_height, 

(long) ( cinf o->raax_v_samp_fac tor *DCTSIZE) ) ; 

cinfo->blocks_in__MCU = 0; 

for (ci =0; ci < cinf o->comps_in_s can; ci++) { 
compptr = cinf o->cur_comp_inf o [ci] ; 
/* Sampling factors give # of blocks of component in each MCU */ 
compptr- >MCU_width = compptr->h_samp__f actor ; 
compptr ->MCU_height = compptr- >v_samp_f actor ; 

compptr->MCU_blocks = compptr- >MCU_width * compptr- >MCU_height ; 

compptr ->MCU_sample_width = compptr ->MCU__width * compptr ->DCT_scaled_size 

/* Figure number of non-dummy blocks in last MCU column & row */ 

tmp = (int) ( compptr- >width_in_blocks % compptr->MCU_width) ; 

if (tmp == 0) tmp = compptr->MCU_width; 

compptr- >last_col_ width = tmp; 

tmp = (int) ( compptr ->height_in_blocks % compptr->MCU_height) ; 

if (tmp == 0) tmp = compptr- >MCU_height ; 

compptr -> las t_row_ height = tmp; 

/* Prepare array describing MCU composition */ 

mcublks = compptr->MCU_blocks; 

if (cinfo->blocks_in_MCU + mcublks > D_MAX„BL0CKS_IN_*1CU) 
ERREXIT ( cinf o , JERR_BAD_MCU_SIZE) ; 

while (mcublks-- > 0) { 
cinfo->MCU_membership[cinfo->blocks_in_MCU++] = ci; 

} 

~ } 

*^ Save away a copy of the Q- table referenced by each component present 
yfj in the current scan, unless already saved during a prior scan. 

i& 

^ In a multiple-scan JPEG file, the encoder could assign different components 
Rj the same Q- table slot number, but change table definitions between scans 

* so that each component uses a different Q- table. (The IJG encoder is not 
~* currently capable of doing this, but other encoders might.) Since we want 

to be able to dequantize all the components at the end of the file, this 
means that we have to save away the table actually used for each component. 

2f[ We do this by copying the table at the start of the first scan containing 

^ the component. 

The JPEG spec prohibits the encoder from changing the contents of a Q- table 

^ slot between scans of a component using that slot. If the encoder does so 

y anyway, this decoder will simply use the Q- table values that were current 

Ql at the start of the first scan for the component. 
~*" 

* The decompressor output side looks only at the saved quant tables, 

* not at the current Q-table slots. 
*/ 

LOCAL (void) 

latch_quant_ tables ( j_decompress_ptr cinfo) 
{ 

int ci, qtblno; 
jpeg_component_inf o *compptr; 
JQUANT_TBL * qtbl; 

for (ci = 0; ci < cinf o->comps_ in_scan; ci++) { 
compptr = cinf o->cur_comp__ info [ci] ; 

/* No work if we already saved Q-table for this component */ 
if ( compptr ->quant_ table != NULL) 
continue ; 

/* Make sure specified quantization table is present */ 

qtblno = compptr->quant_tbl_no; 

if (qtblno < 0 | | qtblno >= NUM_QUANT_TBLS | | 

cinf o->quant_tbl_j?trs [qtblno] == NULL) 

ERREXIT 1 (cinfo , JERR_NO_QUANT_TABLE , qtblno ) ; 
/* OK, save away the quantization table */ 
qtbl = (JQUANT_TBL *) 

(*cinf o->mem->alloc_ small) ( ( j_common_j?tr) cinfo, JPOOL_IMAGE, 
S I Z EOF ( JQUANT_TBL ) ) ; 
MEMCOPY ( qtbl , cinf o->quant_tbl_ptrs [qtblno] , S I Z EOF ( JQUANT_TBL ) ) ; 
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compptr->quant_table = q 

} 

} 



/* 

* Initialize the input modules to read a scan of compressed data. 

* The first call to this is done by jdmaster.c after initializing 

* the entire decompressor (during jpeg_start_decompress) . 

* Subsequent calls come from consume_markers , below. 
*/ 

METHODDEF (void) 

start_input__pass ( j_decompress_ptr cinfo) 
{ 

per_scan_setup (cinfo) ; 
latch_quant_tables (cinfo) ; 
(*cinfo->entropy->start_pass) (cinfo) ; 
(*cinfo->coef->start_input_ pass) (cinfo) ; 

cinfo->inputctl->consume_input = cinf o->coef ->consume_data; 



/* 

* Finish up after inputting a compressed-data scan. 

* This is called by the coefficient controller after it's read all 

* the expected data of the scan. 
*/ 

METHODDEF (void) 

f inish_input_pass ( j_decompress__ptr cinfo) 
L. 

Ljbinf o->inputctl->consume_input = consume_markers ; 



/*! Read JPEG markers before, between, or after compressed-data scans. 
*s Change state as necessary when a new scan is reached. 

^Return value is JPEG_SUSPENDED, JPEG_REACHED_SOS , or JPEG_REACHED_EOI . 

1: 

jiJ <phe consume_input method pointer points either here or to the 

[%j coefficient controller's consume_data routine, depending on whether 

*** we are reading a compressed data segment or inter-segment markers. 

fv 

METHODDEF ( int ) 

dSnsume_markers ( j_decompress_ptr cinfo) 

(Hi 

L -==my_inputctl_ptr inputctl = (my_inputctl_ptr) cinf o->inputctl ; 
r -int val; 

CUf (inputctl->pub.eoi_reached) /* After hitting EOI, read no further */ 
return JPEG_REACHED_EOI ; 

val = (*cinfo->marker->read_markers) (cinfo); 

switch (val) { 

case JPEG_REACHED_SOS : /* Found SOS */ 
if (inputctl->inheaders) { /* 1st SOS */ 
initial_setup( cinfo) ; 
inputctl ->inheaders = FALSE; 

/* Note: start_input_pass must be called by jdmaster.c 

* before any more input can be consumed, jdapimin.c is 

* responsible for enforcing this sequencing. 
*/ 

} else { /* 2nd or later SOS marker */ 

if (! inputctl->pub.has_multiple_scans) 
ERREXIT (cinfo , JERR_EOI_EXPECTED) ; /* Oops, I wasn't expecting this! */ 

start_input_pass (cinfo) ; 

} 

break; 

case JPEG_REACHED_EOI : /* Found EOI */ 
inputctl->pub.eoi_reached = TRUE; 

if (inputctl->inheaders) { /* Tables-only datastream, apparently */ 

if (cinf o->marker->saw_SOF) 
ERREXIT (cinfo , JERR_SOF_NO_SOS ) ; 
} else { 

/* Prevent infinite loop in coef ctlr's decompress_data routine 

* if user set output_scan_number larger than number of scans. 
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if (cinfo->output_scan„^^B>er > cinf o->input_scan_number) 
c in f o - > ou tpu t_sc an_numbe r^^K: i n f o - > i npu t_s can_number ; 
} 

break; 
case JPEG_SUSPENDED: 
break; 

} 

return val; 



} 



/* 

* Reset state to begin a fresh datastream. 
*/ 

METHODDEF(void) 

reset_input_controller ( j_decompress_ptr cinfo) 
{ 

my_inputctl_ptr inputctl = (my_inputctl_ptr) cinfo->inputctl; 
inputctl ->pub . consume„input = consume_markers ; 

inputctl ->pub.has„multiple_scans = FALSE; /* "unknown" would be better */ 
inputctl->pub.eoi_reached = FALSE; 
inputctl->inheaders = TRUE; 
/* Reset other modules */ 

(*cinfo->err->reset_error_mgr) ( (j_common_j?tr) cinfo) ; 
(*cinfo->marker->reset_marker_reader) (cinfo) ; 

/* Reset progression state — would be cleaner if entropy decoder did this */ 
cinfo->coef_bits = NULL; 

}_ 

rj 

01 Initialize the input controller module. 

This is called only once, when the decompression object is created. 

QLOBAL(void) 

j~ifiit_input_controller ( j_decompress_ptr cinfo) 

Hl^Y— inputctl_ ptr inputctl; 

a /* Create subobject in permanent pool */ 
Mlnputctl = (my_inputctl_ptr) 

f~ (*cinfo->mem->alloc_small) ( ( j_common__ptr) cinfo, JPOOL_PERMANENT , 

SIZEOF(my_input_controller) ) ; 
li|;info->inputctl = (struct jpeg_input_controller *) inputctl; 

Initialize method pointers */ 
3nputctl->pub.consume_input = consume_markers ; 
klnputctl->pub . reset_input__controller = reset_input_controller ; 
rinputctl->pub.start_input_pass = start_input_pass ; 
~Inputctl->pub.f inish_input_pass = f inish_input_pass; 
/* Initialize state: can't use reset_input_controller since we don't 
* want to try to reset other modules yet. 
*/ 

inputctl->pub.has_multiple_scans = FALSE; /* "unknown" would be better */ 
inputctl ->pub.eoi_reached = FALSE; 
inputctl->inheaders = TRUE; 

} 
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/* 

* jdmainct.c 
* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains the main buffer controller for decompression. 

* The main buffer lies between the JPEG decompressor proper and the 

* post-processor; it holds downsampled data in the JPEG colorspace. 
* 

* Note that this code is bypassed in raw-data mode, since the application 

* supplies the equivalent of the main buffer in that case. 
*/ 

#define JPEG_INTERNALS 
# include ■ j include. h" 
#include "jpeglib.h" 



/* 

* In the current system design, the main buffer need never be a full-image 

* buffer; any full-height buffers will be found inside the coefficient or 

* postprocessing controllers. Nonetheless, the main controller is not 

* trivial. Its responsibility is to provide context rows for upsampling/ 

* rescaling, and doing this in an efficient fashion is a bit tricky. 

* Postprocessor input data is counted in "row groups". A row group 

* is defined to be (v_samp_f actor * DCT_scaled_size / min_DCT_scaled_size) 

* sample rows of each component. (We require DCT_scaled_size values to be 

* chosen such that these numbers are integers . In practice DCT_scaled_size 

* values will likely be powers of two, so we actually have the stronger 
^condition that DCT_scaled_size / min_DCT_scaled„size is an integer.) 
^Upsampling will typically produce max_v_samp_f actor pixel rows from each 

row group (times any additional scale factor that the upsampler is 
gl applying) . 

^ The coefficient controller will deliver data to us one iMCU row at a time; 
^ j each iMCU row contains v_samp_f actor * DCT_scaled_ size sample rows, or 
.^exactly min_DCT_scaled_size row groups. (This amount of data corresponds 
*f to one row of MCUs when the image is fully interleaved. ) Note that the 
l i J number of sample rows varies across components, but the number of row 
f%\ groups does not. Some garbage sample rows may be included in the last iMCU 
: f row at the bottom of the image. 
h* 

Depending on the vertical scaling algorithm used, the upsampler may need 
^ access to the sample row(s) above and below its current input row group. 
^The upsampler is required to set need_context„rows TRUE at global selection 
fytime if so. When need_context_rows is FALSE, this controller can simply 
£| obtain one iMCU row at a time from the coefficient controller and dole it 
^;out as row groups to the postprocessor. 

^=3 When need_context_rows is TRUE, this controller guarantees that the buffer 
^ r passed to postprocessing contains at least one row group's worth of samples 

* above and below the row group (s) being processed. Note that the context 

* rows "above" the first passed row group appear at negative row offsets in 

* the passed buffer. At the top and bottom of the image, the required 

* context rows are manufactured by duplicating the first or last real sample 

* row; this avoids having special cases in the upsampling inner loops. 
* 

* The amount of context is fixed at one row group just because that's a 

* convenient number for this controller to work with. The existing 

* upsamplers really only need one sample row of context. An upsampler 

* supporting arbitrary output rescaling might wish for more than one row 

* group of context when shrinking the image; tough, we don't handle that. 

* (This is justified by the assumption that downsizing will be handled mostly 

* by adjusting the DCT^scaled^size values, so that the actual scale factor at 

* the upsample step needn't be much less than one.) 
* 

* To provide the desired context, we have to retain the last two row groups 

* of one iMCU row while reading in the next iMCU row. (The last row group 

* can't be processed until we have another row group for its below-context , 

* and so we have to save the next-to-last group too for its above-context.) 

* We could do this most simply by copying data around in our buffer, but 

* that'd be very slow. We can avoid copying any data by creating a rather 

* strange pointer structure. Here's how it works. We allocate a workspace 

* consisting of M+2 row groups (where M = min_DCT_scaled_size is the number 

* of row groups per iMCU row) . We create two sets of redundant pointers to 

* the workspace. Labeling the physical row groups 0 to M+l, the synthesized 

* pointer lists look like this: 




1 



* 



* master pointer 



M+l 
--> 0 
1 




ster pointer - 



M-l 
> 0 
1 




* 



* 



* 



* 



* 



* 



* 



M-3 
M-2 
M-l 

M 
M+l 

0 



M-3 

M 
M+l 
M-2 
M-l 

0 



* We read alternate iMCU rows using each master pointer; thus the last two 

* row groups of the previous iMCU row remain un-overwritten in the workspace. 

* The pointer lists are set up so that the required context rows appear to 

* be adjacent to the proper places when we pass the pointer lists to the 

* upsampler. 



* The above pictures describe the normal state of the pointer lists. 

* At top and bottom of the image, we diddle the pointer lists to duplicate 

* the first or last sample row as necessary (this is cheaper than copying 

* sample rows around) . 



* This scheme breaks down if M < 2, ie, min_DCT_scaled_size is 1. In that 

* situation each iMCU row provides only one row group so the buffering logic 

* must be different (eg, we must read two iMCU rows before we can emit the 

* first row group) . For now, we simply do not support providing context 

* rows when min_DCT_ scaled_size is 1. That combination seems unlikely to 

* be worth providing if someone wants a l/8th-size preview, they probably 

* want it quick and dirty, so a context-free upsampler is sufficient. 
*/ 



4% Private buffer controller object */ 
typedef struct { 

^struct jpeg_d_main„controller pub; /* public fields */ 

dV* Pointer to allocated workspace (M or M+2 row groups) . */ 
CjJSAMPARRAY buf f er [MAX__COMPONENTS] ; 

dlboolean buffer,. full; /* Have we gotten an iMCU row from decoder? */ 

.rnJDIMENSION rowgroup_ctr ; /* counts row groups output to postprocessor */ 

\U/* Remaining fields are only used in the context case. */ 

; ./* These are the master pointers to the funny-order pointer lists. */ 
^"JSAMP IMAGE xbuffer[2]; /* pointers to weird pointer lists */ 

Cj 

rfdnt whichptr; /* indicates which pointer set is now in use */ 

[■;int context_state; /* process_data state machine status */ 

~-|jDIMENSION rowgroups_avai 1 ; /* row groups available to postprocessor */ 
f ^DIMENSION iMCU_row_ctr; /* counts iMCU rows to detect image top/bot */ 
£ fmy_ma i n_c on t r o 1 1 er ; 



typedef my_main_controller * my_main_j?tr ; 
/* context_state values: */ 

#define CTX_PREPARE_FOR_IMCU 0 /* need to prepare for MCU row */ 
#define CTX_PROCESS_IMCU 1 /* feeding iMCU to postprocessor */ 
#define CTX_POSTPONED_ROW 2 /* feeding postponed row group */ 



/* Forward declarations */ 

METHODDEF (void) process_data_simple_main 

JPP( ( j_decompress_ptr cinfo, JSAMPARRAY output_buf , 

JDIMENSION *out_row_ctr, JDIMENSION out_rows_avail ) ) ; 
METHODDEF (void) process_data„context_main 

JPP( ( j_decompress_ ptr cinfo, JSAMPARRAY output_buf, 

JDIMENSION *out_row_ctr, JDIMENSION out_rows_avail ) ) ; 
#ifdef QUANT_2PASS„SUPP0RTED 
METHODDEF (void) process_data_crank_post 

JPP( ( j_decompress_ptr cinfo, JSAMPARRAY output_buf, 

JDIMENSION *out_row_ctr, JDIMENSION out_rows_avail ) ) ; 

#endif 



LOCAL (void) 

alloc_funny„pointers ( j_decompress_ptr cinfo) 
/* Allocate space for the funny pointer lists 

* This is done only once, not once per pass. 

*/ 



* 



* 
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my_main_ptr main = (my — maii^^B?") cinf o->main; 
int ci, rgroup; 

int M = cinfo->min_DCT_scaled_size; 
jpeg_component_inf o * compptr; 
JSAMP ARRAY xbuf ; 

/* Get top-level space for component array pointers. 
* We alloc both arrays with one call to save a few cycles. 
*/ 

main->xbuffer[0] = ( JSAMP IMAGE ) 

(*cinf o->mem->alloc_small) ( (j_common_ptr) cinfo, JPOOL_IMAGE, 
cinfo- >num_components * 2 * SIZEOF ( JSAMPARRAY) ) ; 
main->xbuf f er [1] = main->xbuf f er [0] + cinfo->num_components; 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components ; 
ci++, compptr++) { 
rgroup = (compptr->v_samp_f actor * compptr- >DCT_scaled__size) / 

cinf o->min_DCT_scaled_size; /* height of a row group of component */ 

/* Get space for pointer lists M+4 row groups in each list. 

* We alloc both pointer lists with one call to save a few cycles. 
*/ 

xbuf = ( J SAMP ARRAY ) 

( *cinf o->mem->alloc_small) { ( j_common_ptr) cinfo, JPOOL_IMAGE, 
2 * (rgroup * (M+4)) * SIZE0F( JSAMPROW) ) ; 
xbuf += rgroup; /* want one row group at negative offsets */ 

main->xbuf f er [0] [ci] = xbuf; 
xbuf += rgroup * (M + 4) ; 
main->xbuf f er [1] [ci] = xbuf; 

} 

} 



M|cAL(void) 

tfy£ke_funny_pointers ( j_decompress_ptr cinfo) 
l& Create the funny pointer lists discussed in the comments above. 
r*{ The actual workspace is already allocated (in main->buf f er) , 
Ni and the space for the pointer lists is allocated too. 
J* 5 This routine just fills in the curiously ordered lists. 
~* This will be repeated at the beginning of each pass. 

ru 

my_main_ptr main = (my_main_ptr ) cinfo->main; 
5 int ci, i, rgroup; 

h=int M = cinf o->min_DCT_scaled_size; 
rijpeg_component„inf o * compptr; 
i!; JSAMPARRAY buf , xbufO, xbufl; 

Sjfor (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components; 

ci++, compptr++) { 
«J rgroup = (compptr->v_samp_f actor * compptr- >DCT_scaled_size) / 
fi cinf o->min_DCT_scaled_size; /* height of a row group of component */ 

xbufO = main->xbuf fer [0] [ci] ; 

xbufl = main->xbuf f er [1] [ci] ; 

/* First copy the workspace pointers as-is */ 

buf = main->buf f er [ci] ; 

for (i = 0; i < rgroup * (M + 2) ; i++) { 
xbuf0[i] = xbufl[i] = buf[i]; 

} 

/* In the second list, put the last four row groups in swapped order */ 
for (i = 0; i < rgroup * 2; i++) { 

xbuf 1 [rgroup* (M-2) + i] = buf[rgroup*M + i] ; 

xbuf 1 [rgroup *M + i] = buf [rgroup* (M-2) + i]; 

} 

/* The wraparound pointers at top and bottom will be filled later 

* (see set_wraparound_po inters, below) . Initially we want the "above" 

* pointers to duplicate the first actual data line. This only needs 

* to happen in xbuffer[0]. 
*/ 

for (i = 0; i < rgroup; i++) { 
xbuf0[i - rgroup] = xbuf0[0]; 

} 

} 

} 




LOCAL (void) 

set_wraparound_pointers ( j_decompress_ptr cinfo) 

/* Set up the "wraparound" pointers at top and bottom of the pointer lists. 
* This changes the pointer list state from top-of -image to the normal state. 
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my_main_ptr main = (my_jnain^PKr) cinfo->main; 
int ci, i, rgroup; 

int M = cinf o->min_DCT__scaled_size; 
jpeg_component_inf o * compptr; 
JSAMP ARRAY xbufO, xbufl; 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components; 
ci++, compptr++) { 
rgroup = ( compptr- >v_samp_f actor * compptr- >DCT_scaled_size) / 

cinf o->min_DCT_scaled_size; /* height of a row group of component */ 
xbufO = main->xbuf f er [0] [ci ) ; 
xbufl = main->xbuf f er [1] [ci] ; 
for (i = 0; i < rgroup; i++) { 

xbuf0[i - rgroup] = xbufO [rgroup* (M+l ) + ij ; 

xbufl [i - rgroup] = xbufl [rgroup* (M+l) + i] ; 

xbufO [rgroup* (M+2) + i] = xbuf0[i]; 

xbufl [rgroup* (M+2) + i] = xbufl [i] ; 

} 



LOCAL (void) 

set_bottom_po inters ( j„decompress_ptr cinfo) 

/* Change the pointer lists to duplicate the last sample row at the bottom 

* of the image, whichptr indicates which xbuffer holds the final iMCU row. 

* Also sets rowgroups_avail to indicate number of nondummy row groups in row. 
*/ 

{ 

my_main_ptr main = <my_main_ptr) cinfo->main; 
r>int ci, i, rgroup, iMCUheight, rows_left; 
l3peg_ components info * compptr; 
L 44JSAMPARRAY xbuf; 

l^for (ci = 0, compptr = cinf o->comp_inf o; ci < cinfo->num_components; 
^ ci++, compptr++) { 

~-j /* Count sample rows in one iMCU row and in one row group */ 
.fii iMCUheight = compptr- >v__samp_f actor * compptr->DCT_scaled_size; 

rgroup = iMCUheight / cinf o->min_DCT_scaled_size; 
UJ /* Count nondummy sample rows remaining for this component */ 
Hi rows_left = (int) (compptr->downsampled_height % (JDIMENSION) iMCUheight); 

if (rows_left == 0) rows_left = iMCUheight; 
s /* Count nondummy row groups. Should get same answer for each component, 
Li * so we need only do it once. 

*/ 

^ if (ci == 0) { 

;sj main->rowgroups_avail = (JDIMENSION) ( (rows_lef t-1) / rgroup + 1) ; 
> 

_l /* Duplicate the last real sample row rgroup*2 times; this pads out the 

%J * last partial rowgroup and ensures at least one full rowgroup of context. 

rj */ 

~' xbuf = main->xbuf fer [main->whichptr] [ci] ; 
for (i = 0; i < rgroup * 2; i++) { 

xbuf [rows_lef t + i] = xbuf [rows__lef t-1] ; 

} 

} 

} 



/* 

* Initialize for a processing pass. 
*/ 

METHODDEF (void) 

start_pass_main ( j__decompress_ptr cinfo, J_BUF„MODE pass_mode) 
{ 

my_main_ptr main = (my_main_j?tr ) cinfo->main; 

switch (pass_mode) { 
case JBUF_PASS_THRU: 

if (cinf o->upsample->need_context_rows) { 

main->pub.process_data = process_data_context_main; 
make_f unny_pointers (cinfo) ; /* Create the xbuffer[] lists */ 
main->whichptr =0; /* Read first iMCU row into xbuffer [0] */ 
main->context_state = CTX_PREPARE_FOR_IMCU; 
main->iMCU_row_ctr = 0; 
} else { 

/* Simple case with no context needed */ 
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a ^^feroc e s s_da t a_s imp 1 e_mai n ; 
3^^/* Mark buffer empty */ 



main->pub.process_data i 
} 

main->buf f er_f ull = FALStf^^/* Mark buffer empty 
main->rowgroup_ctr = 0 ; 
break ; 

#ifdef QUANT_2PASS_SUPP0RTED 
case JBUF_CRANK_ DEST : 

/* For last pass of 2-pass quantization, just crank the postprocessor */ 
main->pub.process„data = process. data_crank_j?ost ; 
break; 
#endif 
default: 

ERREXIT ( c inf o , JERR_BAD_BUFFER_MODE ) ; 
break ; 

} 

} 



/* 

* Process some data. 

* This handles the simple case where no context is required. 
*/ 

METHODDEF (void) 

process_data_simple_main ( j_decompress_ptr cinfo, 

JSAMPARRAY output_buf, JDIMENSION *out_row_ctr , 
JDIMENSION out_rows_avail) 

{ 

my_main_ptr main - (my_main_ptr) cinfo->main; 
JDIMENSION rowgr oups_avai 1 ; 

_./* Read input data if we haven't filled the main buffer yet */ 
LJif (! main->buf f er_full) { 

,j\ if (! (*cinfo->coef ->decompress_data) {cinfo, main->buf f er) ) 

z: return; /* suspension forced, can do nothing more */ 

y$ main- >buffer_f ull = TRUE; /* OK, we have an iMCU row to work with */ 

1*/* There are always min_DCT_scaled_size row groups in an iMCU row. */ 
iJjrowgroups_avail = (JDIMENSION) cinf o->min_DCT_scaled_size; 
j*/* Note: at the bottom of the image, we may pass extra garbage row groups 
Z\ * to the postprocessor. The postprocessor has to check for bottom 
Hi * of image anyway (at row resolution), so no point in us doing it too. 

= * / 

f=-/* Feed the postprocessor */ 

f] (*cinf o->post->post_process_data) (cinfo, main->buf f er , 

r"= fcmain- > rowgr oup_c tr , r owgroups_avai 1 , 

|^ output. buf, out_ row_ctr, out_rows_avail ) ; 

f=^/* Has postprocessor consumed all the data yet? If so, mark buffer empty */ 

if (main->rowgroup„ctr >= rowgroups„avail ) { 
Lj main- >buffer_f ull = FALSE; 
main->rowgroup__ ctr = 0; 

} 

} 



/* 

* Process some data. 

* This handles the case where context rows must be provided. 
*/ 

METHODDEF (void) 

process. data_context_main (j .decompress _j?tr cinfo, 

JSAMPARRAY output.buf, JDIMENSION *out_row_ctr , 
JDIMENSION out_rows_avail) 

{ 

my_main__ptr main = (my_jnain_ptr) cinfo->main; 

/* Read input data if we haven't filled the main buffer yet */ 
if (! main->buf f er.full) { 

if (! (*cinfo->coef ->decompress_data) (cinfo, 

main->xbuf f er [main->whichptr] ) ) 
return; /* suspension forced, can do nothing more */ 

main- >buffer_f ull = TRUE; /* OK, we have an iMCU row to work with */ 
main->iMCU_row_ctr++; /* count rows received */ 

} 

/* Postprocessor typically will not swallow all the input data it is handed 
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* in one call (due to fillj^^the output buffer first) . Must l^^ferepared 

* to exit and restart. Tt^^B witch lets us keep track of how ^^we got. 

* Note that each case fallaHKrough to the next on successful c^l^.etion. 
*/ 

switch (main->context_state) { 
case CTX_POSTPONED„ROW: 

/* Call postprocessor using previously set pointers for postponed row */ 
( *cinf o->post->post_j?rocess_data) (cinfo, main->xbuf f er [main->whichptr] , 
&main->rowgroup_ctr , main->rowgroups_avail , 
output_buf , ou t_row_c tr , out_rows_avai 1 ) ; 
if (main->rowgroup_ctr < main->rowgroups_avail) 

return; /* Need to suspend */ 

main->context_state = CTX„PREPARE_FOR_IMCU; 
if (*out_row_ctr >= out_rows_avail ) 

return; /* Postprocessor exactly filled output buf */ 

/ *FAIjLTHROUGH* / 
case CTX_PREPARE_FOR_IMCU: 

/* Prepare to process first M-l row groups of this iMCU row */ 
main->rowgroup_ctr = 0; 

main->rowgroups_avail = (JDIMENSION) (cinf o->min_DCT_scaled_size - 1); 
/* Check for bottom of image: if so, tweak pointers to "duplicate" 

* the last sample row, and adjust rowgroups_avail to ignore padding rows. 

*/ 

if (main->iMCU_row_ctr == cinf o->total_iMCU_rows) 

set_bottonL_pointers (cinf o) ; 
main->context_state = CTX_PROCESS_IMCU; 
/ *FALLTHROUGH* / 
case CTX_PROCESS_IMCU: 

/* Call postprocessor using previously set pointers */ 

(*cinfo->post->post_process_data) (cinfo, main->xbuf f er [main->whichptr] , 
&main->rowgroup_ctr , main- >rowgroups_a vail , 
output_buf, out__row_ctr , out_rows_avail) ; 
Q if (main->rowgroup_ctr < main->rowgroups_avail) 
return; /* Need to suspend */ 

/* After the first iMCU, change wraparound pointers to normal state */ 
yl if (main->iMCU_row_ctr == 1) 
j% set_wraparound_pointers (cinfo) ; 

/* Prepare to load new iMCU row using other xbuffer list */ 
~H main->whichptr 1; /* 0=>1 or 1=>0 */ 
J] main->buf fer_full = FALSE; 

Zl /* Still need to process last row group of this iMCU row, */ 

UJ /* which is saved at index M+l of the other xbuffer */ 

nj main->rowgroup_ctr = (JDIMENSION) (cinf o->min„DCT_scaled_size + 1) ; 

main->rowgroups_avail = (JDIMENSION) (cinf o->min_DCT_scaled_size + 2); 
5 main->context_state = CTX_POSTP0NED_ROW; 
H> 

£j 
ks 

Process some data. 
W Final pass of two-pass quantization: just call the postprocessor, 
r* Source data will be the postprocessor controller's internal buffer. 
"*/ 

#ifdef QUANT_2PASS_SUPP0RTED 
METHODDEF(void) 

process_data_crank_post ( j_decompress_ptr cinfo, 

JSAMPARRAY OUtput_buf, JDIMENSION *out_row_Ctr , 
JDIMENSION out_rows_avail) 

{ 

(*cinfo->post->post_process_data) (cinfo, ( JS AMP IMAGE ) NULL, 
(JDIMENSION *) NULL, (JDIMENSION) 0, 
outpu t_buf , out_row_c tr , out_rows_avai 1 ) ; 

) 

#endif /* QUANT_2PASS_SUPPORTED */ 



/* 

* Initialize main buffer controller. 
*/ 

GLOBAL (void) 

jinit_d_main — controller ( j_decompress_ptr cinfo, boolean need_full_buf f er) 
{ 

iny - jnain_ptr main; 

int ci, rgroup, ngroups; 

jpeg_component_inf o *compptr; 
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main = (my_main_ptr) 

(*cinfo->mem->alloc_smalflJp( j_common_ptr) cinfo, JPOOL_ IMAGE 
S I ZEOF (my_main_ controller) ) ; 
cinfo->main = (struct jpeg_d_jnain_cont roller *) main; 
main->pub.start_pass = start_pass_main; 

if (need_full_buf f er) /* shouldn't happen */ 

ERREXIT (cinf o, JERR_BAD_BUFFER_MODE) ; 

/* Allocate the workspace. 
* ngroups is the number of row groups we need. 
*/ 

if (cinf o->upsample->need_context_rows) { 

if (cinf o->min_DCT„scaled_size < 2) /* unsupported, see comments above */ 
ERREXIT ( cinf o, JERR_NOTIMPL) ; 

alloc_funny_po inters (cinf o) ; /* Alloc space for xbuffer[] lists */ 

ngroups = cinf o->min_DCT_scaled_size + 2; 
} else { 

ngroups = cinf o->min_DCT_scaled_size; 



for (ci = 0, compptr = cinf o->comp_inf o; ci < cinfo->nunucomponents; 
ci++, compptr++) { 
rgroup = (compptr->v_samp_f actor * compptr- >DCT_scaled_size) / 

cinf o->min_DCT_scaled_size; /* height of a row group of component */ 
main->buf f er [ci] = ( *cinf o->mem->alloc_sarray) 
( ( j_common_ptr) cinfo, JPOOL_IMAGE, 

compptr- >width_in_blocks * compptr->DCT_scaled_size, 
(JDIMENSION) (rgroup * ngroups)); 

} 

} 
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/* 

* jdmarker.c 

* Copyright (C) 1991-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file 
* 

* This file contains routines to decode JPEG datastream markers. 

* Most of the complexity arises from our desire to support input 

* suspension: if not all of the data for a marker is available, 

* we must exit back to the application. On resumption, we reprocess 

* the marker. 
*/ 

idefine JPEG_INTERNALS 
iinclude "j include. h" 
iinclude "jpeglib.h" 



typedef enum { /* JPEG marker codes */ 



M_SOF0 


= 


OxcO, 


M_S0F1 


= 


Oxcl, 


M„SOF2 


= 


0xc2 ( 


M_SOF3 


= 


0xc3, 


M_S0F5 


= 


0xc5 # 


M_SOF o 




UXCO , 


M_S0F7 


= 


0xc7, 


M_JPG 


= 


0xc8, 


M_S0F9 


= 


0xc9, 


M_SOF10 


= 


Oxca, 


ffLSOFll 

— - 


= 


Oxcb, 


Ck_S0F13 


= 


Oxcd, 


- = rl_SOF14 




Oxce , 


r^_S0Fl5 




Oxcf , 


^|l_DHT 


= 


0xc4, 


^fl_DAC 


= 


Oxcc, 


nM_RST0 


= 


OxdO, 


: '*1_RST1 


= 


Oxdl, 


s M_RST2 


= 


0xd2, 


LM_RST3 


= 


0xd3, 


LM.RST4 


= 


0xd4, 


~&_RST5 


= 


0xd5, 


0a_RST6 


— 


0xd6, 


L_M_RST7 


— 


0xd7, 


CSlsoi 


= 


0xd8, 






a v jq 

uxay , 






Oxda, 


M_DQT 


= 


Oxdb, 


M_DNL 


= 


Oxdc, 


M_ DRI 




Oxdd, 


M_DHP 




Oxde, 


M__EXP 




Oxdf , 


M^PPO 




OxeO, 


M_^APP1 




Oxel, 


M^APP2 




0xe2, 


M_J^PP3 




0xe3, 


M_APP4 




0xe4, 


M_APP5 




0xe5, 


M_APP6 




0xe6, 


M_APP7 




0xe7, 


M^APP8 




0xe8, 


M^APP9 




0xe9, 


M_APP10 




Oxea, 


H_APP11 




Oxeb, 


M_APP12 




Oxec , 


M_APP13 




Oxed, 


M_APP14 




Oxee, 


H_^APP15 




Oxef , 


M_JPG0 




OxfO, 


M_JPG13 




Oxfd, 


M_COM 




Oxfe, 
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M_TEM = 0x01, 

M_ERROR = 0x100 
} JPEG_MARKER ; 



/* Private state */ 

typedef struct { 

struct jpeg_marker_reader pub; /* public fields */ 

/* Application-overridable marker processing methods */ 
jpeg_marJcer_parser - niethod process_COM; 
jpeg_marker__parser_method process_APPn [16] ; 

/* Limit on marker data length to save for each marker type */ 
unsigned int length_limit_ COM; 
unsigned int length_limit_APPn[16] ; 

/* Status of COM/APPn marker saving */ 

jpeg_saved_marker_ptr cur_marker; /* NULL if not processing a marker */ 
unsigned int bytes_read; /* data bytes read so far in marker */ 

/* Note: cur_marker is not linked into marker_list until it's all read. */ 
} my_jnarker_reader ; 

typedef my_marker_reader * my_marker_ptr ; 



/* 

* Macros for fetching data from the data source module. 
★ 

?3 At all times, cinf o->src->next_input_byte and ->bytes_in_buf f er reflect 
J*l the current restart point; we update them only when we have reached a 
suitable place to restart if a suspension occurs. 

/*t Declare and initialize local copies of input pointer/count */ 
tfe&fine INPUTJVARS (cinf o) \ 

j\ struct jpeg_source_mgr * datasrc = (cinf o) ->src; \ 
^ const JOCTET * next_input_byte = datasrc ->next_input_byte; \ 
size_t bytes_in_buf f er = datasrc ->bytes_in_buf f er 

/*" Unload the local copies do this only at a restart boundary */ 

#Hefine INPUT_SYNC (cinf o) \ 

|=i ( datasrc ->next_input_byte = next„input_byte, \ 
J=== datasrc ->bytes_in_buf f er = bytes_in_buf f er ) 

/Sj Reload the local copies used only in MAKE_BYTE_JIVAIL */ 

#define INPUT_RELOAD ( cinf o ) \ 

F l { next_input_byte = datasrc ->next_input_byte, \ 

CJ bytes_in_buf f er = datasrc ->bytes_in_buf f er ) 

/^"internal macro for INPUT_BYTE and INPUT_2BYTES: make a byte available. 

* Note we do *not* do INPUT_SYNC before calling f ill_input__buf f er , 

* but we must reload the local copies after a successful fill. 
*/ 

#define MAKE_BYTE_AVAIL (cinf o, action) \ 
if (bytes_in_buf f er == 0) { \ 

if {! (*datasrc->f ill_input_buf f er) (cinfo) ) \ 

{ action; } \ 
INPUT__RELOAD (cinfo) ; \ 

) 

/* Read a byte into variable V. 

* If must suspend, take the specified action (typically "return FALSE"). 
*/ 

#define INPUT_BYTE (cinf o,V, action) \ 

MAKESTMT ( MAKE_BYTE_AVAIL (cinf o , action) ; \ 
by t es_in_buf f er- - ; \ 

V = GETJOCTET(*next_input__byte++) ; ) 

/* As above, but read two bytes interpreted as an unsigned 16-bit integer. 

* V should be declared unsigned int or perhaps INT32. 
*/ 

#define INPUT_2 BYTES (cinfo, V, action) \ 

MAKESTMT ( MAKE_BYTE_AVAIL (cinf o, action) ; \ 
bytes_in_buf f er--; \ 

V = ((unsigned int) GET JOCTET ( *next_input_by te++ ) ) « 8; \ 
MAKE__BYTE_AVAIL (cinfo, action) ; \ 
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bytes_in_buf f er- 

V += GETJOCTET(*ne^^Miput_byte++) ; ) 



/* 

* Routines to process JPEG markers . 
* 

* Entry condition: JPEG marker itself has been read and its code saved 

* in cinf o->unread_marker; input restart point is just after the marker. 
* 

* Exit: if return TRUE, have read and processed any parameters, and have 

* updated the restart point to point after the parameters. 

* If return FALSE, was forced to suspend before reaching end of 

* marker parameters; restart point has not been moved. Same routine 

* will be called again after application supplies more input data. 
* 

* This approach to suspension assumes that all of a marker's parameters 

* can fit into a single input bufferload. This should hold for ■normal" 

* markers . Some COM/APPn markers might have large parameter segments 

* that might not fit. If we are simply dropping such a marker, we use 

* skip_input_data to get past it, and thereby put the problem on the 

* source manager's shoulders. If we are saving the marker's contents 

* into memory, we use a slightly different convention: when forced to 

* suspend, the marker processor updates the restart point to the end of 

* what it's consumed (ie, the end of the buffer) before returning FALSE. 

* On resumption, cinf o->unread_marker still contains the marker code, 

* but the data source will point to the next chunk of marker data. 

* The marker processor must retain internal state to deal with this. 
* 

* Note that we don't bother to avoid duplicate trace messages if a 

* suspension occurs within marker parameters. Other side effects 

* require more care. 



igppAL (boolean) 

ge£_soi ( j_decompress_ptr cinfo) 
Process an SOI marker */ 

N 
;int i; 

d TRACEMS (cinfo , 1, JTRQJSOI) ; 

5 'if (cinf o->marker->saw_SOI) 

= ERREXIT (cinf o, JERR_SOI_DUPLICATE) ; 

'-J* Reset all parameters that are defined to be reset by SOI */ 

p-for (i = 0; i < NUM_ARITH_TBLS ; i + +) { 

cinf o->arith_dc_L[i] = 0; 
y cinfo->arith_dc„U[i] = 1; 
p cinfo->arith_ac_K[i] = 5; 

H 

^=cinfo->restart_interval = 0; 
/* Set initial assumptions for colorspace etc */ 
cinfo->jpeg_color_space = JCS_UNKNOWN; 

cinfo->CCIR601_sampling = FALSE; /* Assume non-CCIR sampling??? */ 
cinfo->saw_JFIF_marker = FALSE; 

cinfo->JFIF_major_version =1; /* set default JFIF APPO values */ 

c info- >JFIF_minor_vers ion = 1; 

cinfo->density_unit = 0; 

cinfo->X_density = 1; 

c info ->Y_ density = 1; 

cinfo->saw_Adobe_marker = FALSE; 

c info ->Adobe_trans form = 0; 

cinfo- >marker->saw_SOI = TRUE; 

return TRUE; 

} 



LOCAL ( boo 1 ean ) 

get_sof ( j_decompress_ptr cinfo, boolean is_prog, boolean is_arith) 

/* Process a SOFn marker */ 

{ 

INT32 length; 
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jpeg_component_inf o * compp^^H 
INPUT_VARS (cinfo) ; 

cinfo->progressive_jnode = is_prog; 
cinfo->arith_code = is_arith; 

INPUT_2BYTES (cinfo, length, return FALSE) ; 

INPUT_BYTE(cinfo / cinf o->data_precision, return FALSE) ; 
INPUT_2 BYTES {cinf o, cinf o->image_height , return FALSE); 
INPUT_2 BYTES (cinf o, cinf o->image_width, return FALSE); n 
INPUT_BYTE (cinfo , cinf o->num_components , return FALSE) ; 

length -= 8; 

TRACEMS4 (cinf o, 1, JTRC_SOF, cinf o->unread_marker , 

(int) cinf o->image_width, (int) cinf o->image_height, 
cinfo->num_components) ; 

if (cinf o->marker->saw_SOF) 

ERREXIT ( cinf o , JERR_SOF_DUPLICATE ) ; 

/* We don't support files in which the image height is initially specified */ 
/* as 0 and is later redefined by DNL. As long as we have to check that, */ 
/* might as well have a general sanity check. */ 
if (cinf o->image_height <= 0 | | cinf o->image_width <= 0 
| | cinf o->num_components <= 0) 
ERREXIT ( cinf o, JERR_EMPTY_IMAGE) ; 

if (length != (cinf o->num_components * 3)) 
ERREXIT ( cinf o , JERR_BAD_LENGTH ) ; 

,f4f (cinf o->comp_inf o == NULL) /* do only once, even if suspend */ 

~tf_ cinf o->comp_inf o = ( jpeg_ component_inf o *) { *cinfo->mem->alloc_small) 

yl ( (j_common_ptr) cinfo, JPOOL_IMAGE, 

L _p cinf o->num_components * SIZEOF ( jpeg_component_inf o) ) ; 

""tor (ci = 0, compptr = cinf o->comp__inf o; ci < cinf o->num„components ; 
Jj ci++, compptr++) { 

compptr ->component_index = ci; 
5^ INPUT_BYTE (cinf o, compptr->component_id, return FALSE); 
Flj INPUT_BYTE( cinfo, c, return FALSE) ; 

compptr->h_samp_f actor = (c » 4) & 15; 
* compptr- >v_samp_f actor = (c ) & 15; 

K- INPUT_BYTE (cinf o, compptr->quant_tbl_no , return FALSE); 

*Z\ TRACEMS4 (cinfo, 1, JTRC_SOF_COMPONENT , 

I -J compptr- >component_id, compptr- >h_samp_f actor, 

vi compptr- > v_samp_f actor , compptr- >quant_tbl_no ) ; 

2$inf o->marker->saw_SOF = TRUE; 

INPUT_SYNC< cinfo) ; 
return TRUE; 

} 



LOCAL (boolean) 

get_sos ( j_decompress_ptr cinfo) 

/* Process a SOS marker */ 

{ 

INT32 length; 
int i, ci, n, c, cc; 
jpeg_component_inf o * compptr; 
INPUT_VARS (cinfo) ; 

if ( ! cinf o->marker->saw_SOF) 

ERREXIT (cinfo, JERR_SOS_NO_SOF) ; 

INPUT_2BYTES( cinfo, length, return FALSE) ; 

INPUT_BYTE( cinfo, n, return FALSE); /* Number of components */ 
TRACEMS1 (cinfo, 1, JTRC_S0S, n) ; 

if (length !=(n*2+6) || n < 1 || n > MAX_COMPS_IN_SCAN) 
ERREXIT (cinfo , JERR_BAD_LENGTH ) ; 
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c info ->comps„in_s can - n; 

/* Collect the component -s^^^>arameters */ 

for (i = 0; i < n; i++) { 

INPUT_BYTE< cinfo, cc, return FALSE) ; 
INPUT_BYTE (cinf o , c, return FALSE) ; 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components; 
ci++, compptr++) { 
if (cc == compptr- >component_id) 
goto id_found; 
} 

ERREXIT1 (cinfo, JERR_BAD_COMPONENT_I D , cc) ; 

id_ found : 

cinfo->cur_comp_info[i] ~ compptr; 
compptr- >dc_tbl_no = (c » 4) & 15; 
compptr- >ac_tbl_no = (c ) & 15; 

TRACEMS3 (cinfo, 1, JTRC_SOS_COMPONENT, cc, 

compptr->dc_tbl_no, compptr->ac_tbl_no) ; 

} 

/* Collect the additional scan parameters Ss, Se, Ah/Al . */ 
INPUT_BYTE (cinfo , c, return FALSE) ; 
cinfo->Ss = c; 

INPUT_BYTE (cinfo, c, return FALSE); 
cinfo->Se = c; 

INPUT_BYTE {cinfo, c, return FALSE); 
pcinfo->Ah = (c » 4) & 15; 
?=cinfo->Al = (c ) & 15; 

01TRACEMS4 (cinfo, 1, JTRC_S 0S_P ARAMS , cinfo->Ss, cinfo->Se, 
J% cinfo->Ah, cinfo->Al) ; 

Prepare to scan data & restart markers */ 
JjCinfo->inarker->next_restart_num = 0; 

'^-/* Count another SOS marker */ 
jljcinf o->input_scan_number++ ; 

2 INPUT_SYNC (cinfo) ; 
^return TRUE; 

£j 

#4=fdef D_ARITH_CODING_SUPPORTED 
ikfcAL (boolean) 

g^t_dac ( j_decompr ess.pt r cinfo) 

A*" Process a DAC marker */ 

{ 

INT32 length; 
int index, val; 
INPUT_VARS (cinfo) ; 

INPUT_2BYTES( cinfo, length, return FALSE); 
length -= 2; 

while (length > 0) { 

INPUT_BYTE( cinfo, index, return FALSE) ; 
INPUT_BYTE( cinfo, val, return FALSE); 

length - = 2; 

TRACEMS2 (cinfo, 1, JTRC_DAC, index, val); 

if (index < 0 || index >= (2*NUM_ARITH_TBLS) ) 
ERREXIT1 (cinfo, JERR_DAC_INDEX, index); 

if (index >= NUM_ARITH_TBLS ) { /* define AC table */ 

cinfo->arith_ac_K[index-NUM_ARITH_TBLS] = (UINT8) val; 
} else { /* define DC table */ 

cinfo->arith_dc_L[ index] = (UINT8) (val & OxOF) ; 

cinfo->arith_dc_U[ index] = (UINT8) (val » 4); 

if (cinf o->arith_dc_L [index] > cinf o->arith_dc_U [ index] ) 
ERREXIT1 (cinfo, JERR__DAC_VALUE , val); 
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if (length != 0) 

ERREXIT ( c inf o , JERR_BAD_LENGTH ) ; 

INPUT_SYNC (cinfo) ; 
return TRUE; 

} 

#else /* ! D_ARITH_CODING_SUPPORTED */ 
#define get_dac (cinf o) skip_ variable (cinf o) 
#endif /* D_ARITH_CODING_SUP PORTED */ 



LOCAL (boolean) 

get_dht ( j_decompress_ptr cinfo) 
/* Process a DHT marker */ 
{ 

INT32 length; 
UINT8 bits [17] ; 
UINT8 huffval[256] ; 
int i, index, count; 
JHUFF_TBL **htblptr; 
INPUT_VARS (cinfo) ; 

INPUT_2BYTES (cinfo, length, return FALSE); 
length -= 2; 

_ while (length > 16) { 

p I NPUT_BYTE (cinfo, index, return FALSE) ; 

"lit TRACEMSl (cinfo, 1, JTRC_DHT, index); 

Jj bitsfO] = 0; 
^ \ count = 0; 

for (i = 1; i <= 16; i++) { 
4j INPUT_BYTE( cinfo, bits[i], return FALSE) ; 
count += bits[i]; 

SI > 

length -= 1 + 16; 

Uh TRACEMS8 (cinfo, 2, JTRC_HUFFBITS , 
O bits[l], bits [2], bits[3], bits[4], 

«" s bits[53, bits[6], bits[7], bits[8]); 

HJ TRACEMS8 (cinfo, 2, JTRC_HUFFBITS , 
V= bits[9], bits [10], bits[ll], bits[12], 

bits[13], bits[14], bits{15], bits[16]); 

O /* Here we just do minimal validation of the counts to avoid walking 

* off the end of our table space. jdhuff .c will check more carefully. 
*/ 

if (count > 256 || ( (INT32) count) > length) 
ERREXIT (cinfo, JERR_BAD_HUFF_TABLE) ; 

for (i = 0; i < count; i++) 

INPUT_BYTE( cinfo, huffval[i], return FALSE) ; 

length -= count; 

if (index & 0x10) { /* AC table definition */ 

index - = 0x10; 

htblptr = &cinfo->ac_huff_tbl__ptrs [index] ; 
} else { /* DC table definition */ 

htblptr = &cinfo->dc_huff„tbl_ptrs [index] ; 

} 

if (index < 0 | | index >= NUM_HUFF_TBLS) 
ERREXIT1 (cinfo, JERR__DHT_ INDEX, index); 

if (*htblptr == NULL) 

*htblptr = jpeg_alloc_huf f_table ( ( j_common_ptr) cinfo); 

MEMCOPY( (*htblptr) ->bits, bits, SIZEOF (( *htblptr) ->bits) ) ; 
MEMCOPY( (*htblptr) ->huf fval, huffval, SIZEOF ( ( *htblptr) ->huf fval) ) ; 

} 
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if (length != 0) 

ERREXIT ( cinf o , JERR_BAD_^^»H ) ; 



INPUT_SYNC (cinfo) ; 
return TRUE; 

} 



LOCAL (boolean) 

get_dqt ( j_decompress_ptr cinfo) 

/* Process a DQT marker */ 

( 

INT32 length; 
int n, i, prec; 
unsigned int tmp; 
JQUANT_TBL *quant_ptr; 
INPUT_VARS (cinfo) ; 

INPUT_2BYTES (cinfo, length, return FALSE) ; 
length -= 2; 

while (length > 0) { 

INPUT_BYTE (cinfo, n, return FALSE); 
prec = n >> 4; 
n &= OxOF; 

TRACEMS2 (cinfo, 1, JTRC_DQT, n, prec); 

if (n >= NUM_QUANT_TBLS) 

ERREXIT1 (cinfo, JERR_DQT_ INDEX, n) ; 

j\ if (cinfo->quant_tbl_ptrs [n] == NULL) 

z: cinf o->quant_tbl_ptrs [n] = jpeg_alloc_quant_table ( ( j_common_ptr) cinfo) 
U$ quant_ptr = cinf o->quant_tbl_ptrs [n] ; 

for (i = 0; i < DCTSIZE2; i++) { 
~* if (prec) 

Jj INPUT_2 BYTES (cinfo, tmp, return FALSE) ; 
11 else 

^- INPUT_BYTE (cinfo, tmp, return FALSE) ; 

flj /* We convert the zigzag-order table to natural array order. */ 
L ~ quant_ptr->quantval [ jpeg_natural_.order [i] ] = (UINT16) tmp; 



ri if (cinf o->err->trace_level >= 2) { 
r; for (i = 0; i < DCTSIZE2; i += 8) { 
MJ TRACEMS8 (cinfo, 2, JTRC_QUANTVALS , 

vj quant_ptr->quantval [i] , quant_ptr->quantval [i+1] , 

quant_ptr->quantval [i+2] , quant_ptr->quantval [i+3] , 
quant_ptr->quantval [i+4] , quant_ptr->quantval [i+5] , 

L.1 quant_ptr->quantval [i+6] , quant_ptr->quantval [i+7] ) ; 

} 

} 

length - = DCTSIZE2+1; 

if (prec) length -= DCTSIZE2 ; 

} 

if (length != 0) 

ERREXIT (cinfo, JERR_BAD_LENGTH ) ; 

INPUT_SYNC (cinfo) ; 
return TRUE; 

} 



LOCAL (boolean) 

get_ dri ( j - .decompress_j?tr cinfo) 

/* Process a DRI marker */ 

{ 

INT32 length; 
unsigned int tmp; 
INPUT_VARS (cinfo) ; 

INPUT_2BYTES{ cinfo, length, return FALSE) ; 

if (length != 4) 

ERREXIT (cinfo, JERR_BAD_LENGTH ) ; 

INPUT_2BYTES( cinfo, tmp, return FALSE) ; 
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TRACEMS1 (cinfo, 1, JTRC_DR^^Jip) ; 

cinf o->restart_interval = tmp; 

INPUT_SYNC (cinfo) ; 
return TRUE; 

} 



/* 

* Routines for processing APPn and COM markers . 

* These are either saved in memory or discarded, per application request. 

* APPO and APP14 are specially checked to see if they are 

* JFIF and Adobe markers, respectively. 
*/ 

#define APP0_DATA_LEN 14 /* Length of interesting data in APPO */ 
#define AP P 1 4_DATA_LEN 12 /* Length of interesting data in APP14 */ 
#define APPN_DATA_LEN 14 /* Must be the largest of the above!! */ 



LOCAL (void) 

examine^ appO ( j_decompress_ptr cinfo, JOCTET * data, 

unsigned int datalen, INT32 remaining) 
/* Examine first few bytes from an APPO. 

* Take appropriate action if it is a JFIF marker. 

* datalen is # of bytes at data[], remaining is length of rest of marker data. 
*/ 

{ 

QENT32 totallen = (INT32) datalen + remaining; 

=?Lf (datalen >= APPO_DATA_LEN && 
01 GET JOCTET ( data [ 0 3 ) == 0x4A && 
.1% GET JOCTET ( data [ 1 3 ) == 0x46 && 
GET JOCTET ( data [ 2 ] ) == 0x49 && 
K 4 GET JOCTET ( data [33) == 0x46 && 
j=j GET JOCTET ( data [43) == 0) { 
"« /* Found JFIF APPO marker: save info */ 
J J cinf o->saw_JFIF_ marker = TRUE; 

HI cinf o~>JFIF_maj or_vers ion = GETJOCTET (data [5] ) ; 
^' cinfo->JFIF_minor_version = GETJOCTET (data [63 ) ; 
5 cinfo->density_unit = GETJOCTET (data [7 ]) ; 

Li cinfo->X_density = (GETJOCTET (data [8] ) « 8) + GET JOCTET ( data [ 9 )) ; 
js % cinfo->Y_density = (GETJOCTET (data [10] ) « 8) + GETJOCTET (data [11] ) ; 
y /* Check version. 

Hi * Major version must be 1, anything else signals an incompatible change, 
t a * (We used to treat this as an error, but now it's a nonfatal warning, 
_J * because some bozo at Hijaak couldn't read the spec.) 
Lj * Minor version should be 0..2, but process anyway if newer. 

ri */ 

if (cinf o->JFIF_major_version != 1) 
WARNMS2 (cinfo, JWRN_JFIF_MAJOR, 

cinf o->JFIF_ major_version, cinf o->JFIF_minor_version) ; 
/* Generate trace messages */ 
TRACEMS5 (cinfo, 1, JTRC_JFIF, 

cinfo - > JFIF_ma j or_vers i on , c inf o- > JFI F_minor_ver sion , 
cinf o->X_density, cinf o->Y_density, cinf o->density_unit) ; 
/* Validate thumbnail dimensions and issue appropriate messages */ 
if (GETJOCTET ( data [ 12 ] ) | GETJOCTET (data [ 13 3 ) ) 
TRACEMS2 (cinfo, 1, JTRC_ JF I F_THUMBNA I L , 

GETJOCTET (data [ 12 ] ) , GET JOCTET ( data [ 13 ] ) ) ; 
totallen -= APP0_DATA_LEN; 
if (totallen != 

( (INT3 2) GETJOCTET (data [12] ) * ( INT3 2) GETJOCTET (data [13 ] ) * (INT32) 3)) 
TRACEMSK cinfo, 1, JTRC_JFIF_BADTHUMBNAILSIZE, (int) totallen); 
} else if (datalen >= 6 && 

GETJOCTET (data [ 0] ) == 0x4A && 
GETJOCTET (data [ 13 ) == 0x46 && 
GETJOCTET (data [2 ] ) == 0x58 && 
GETJOCTET (data [3 ] ) == 0x58 && 
GETJOCTET (data [4 ] ) ==0) { 
/* Found JFIF "JFXX' extension APPO marker */ 
/* The library doesn't actually do anything with these, 
* but we try to produce a helpful trace message. 
*/ 

swi t ch ( GETJOCTET ( da t a [ 5 ] ) ) { 
case 0x10: 

TRACEMSK cinfo, 1, JTRC_THUMB_JPEG , (int) totallen); 
break; 
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case Oxll: 

TRACEMS1 (cinfo, 1, JTR(j^^^MB_PALETTE , (int) totallen); 
break ; 
case 0x13 : 

TRACEMS1 (cinfo, 1, JTRC_THUMB_RGB , (int) totallen); 
break; 
default: 

TRACEMS2 (cinfo, 1, JTRC_JFIF_EXTENSION, 

GET JOCTET ( da ta [ 5 ] ) , (int) totallen) ; 
break; 

} 

} else { 

/* Start of APPO does not match "JFIF" or "JFXX", or too short */ 
TRACEMS1 (cinfo, 1, JTRC_APP0, (int) totallen); 

} 

} 



LOCAL (void) 

examine_appl4 (j_decompress_ptr cinfo, JOCTET * data, 

unsigned int datalen, INT32 remaining) 
/* Examine first few bytes from an APP14 . 

* Take appropriate action if it is an Adobe marker. 

* datalen is # of bytes at data[], remaining is length of rest of marker data. 
*/ 

{ 

unsigned int version, flagsO, flagsl, transform; 

if (datalen >= APP 1 4_DATA_LEN && 

GET JOCTET (data [0] ) == 0x41 && 

GET JOCTET (data [ 1 ] ) == 0x64 && 
□ GET JOCTET (data [ 2 ] ) == 0x6F && 
.« GET JOCTET (data [ 3 ] ) == 0x62 && 
z: GET JOCTET ( data [ 4 ] ) == 0x65) { 
yl /* Found Adobe APP14 marker */ 

J* version = ( GET JOCTET (data [5] ) « 8) + GET JOCTET (data [ 6] ) ; 
r* flagsO = ( GET JOCTET ( data [ 7 ] ) « 8) + GET JOCTET (data [8] ) ; 

flagsl = ( GET JOCTET ( da ta [ 9 ] ) « 8) + GETJOCTET <data[10] ) ; 
yjl transform = GETJOCTET (data [ 11] ) ; 

^ TRACEMS4 (cinfo, 1, JTRC_ADOBE, version, flagsO, flagsl, transform); 
^ cinfo- >saw_Adobe_marker = TRUE; 
nj cinfo->Adobe_transform = (UINT8) transform; 
J') else { 

7 Start of APP14 does not match "Adobe", or too short */ 

H= TRACEMS1 (cinfo, 1, JTRC_APP14, (int) (datalen + remaining)); 

if 

IffiTHODDEF (boolean) 

cNft — inter est ing_appn ( j_decompress_ptr cinfo) 

process an APPO or APP14 marker without saving it */ 

{ 9 

INT32 length; 
JOCTET b[APPN_DATA_LEN] ; 
unsigned int i, numtoread; 
INPUT_VARS (cinfo) ; 

INPUT_2 BYTES (cinfo, length, return FALSE) ; 
length -= 2; 

/* get the interesting part of the marker data */ 
if (length >= APPN_DATA_ LEN ) 

numtoread = APPN_DATA_LEN; 
else if (length > 0) 

numtoread = (unsigned int) length; 
else 

numtoread = 0; 
for (i = 0; i < numtoread; i++) 

INPUT_BYTE( cinfo, b[i], return FALSE) ; 
length -= numtoread; 

/* process it */ 

switch ( cinfo ->unread_marker) { 

case M_APP0: 

examine_app0 (cinfo, (JOCTET *) b, numtoread, length); 
break ; 
case M_APP14: 

examine_appl4 (cinfo, (JOCTET *) b, numtoread, lengths- 
break; 
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default: 

/* can't get here unless ^^^_save_markers chooses wrong proc 
ERREXITl (cinfo, JERR_UNKNol^_MARKER, cinf o->unread_marker ) ; 
break ; 

) 



/* skip any remaining data — could be lots */ 
INPUT_SYNC (cinfo) ; 
if (length > 0) 

(*cinfo->src->skip_input_data) {cinfo, (long) length); 

return TRUE; 

} 



#ifdef SAVE_MARKERS_SUPPORTED 
METHODDEF (boolean) 

save_marker (j_ decompress_ptr cinfo) 

/* Save an APPn or COM marker into the marker list */ 
{ 

my_marker_ptr marker = (my_marker_ptr) cinf o->marker; 
jpeg_saved_marker_ptr cur„marker = marker->cur_marker; 
unsigned int bytes„read, data_length; 
JOCTET * data; 
INT32 length = 0; 
INPUT_VARS (cinfo) ; 

if (cur_marker == NULL) { 

/* begin reading a marker */ 

INPUT_2BYTES (cinfo, length, return FALSE); 

length -= 2; 

=f if (length >= 0) { /* watch out for bogus length word */ 

l M /* figure out how much we want to save */ 

unsigned int limit; 
\1 if (cinf o->unread_marker == (int) M_C0M) 
-_J limit = marker- >length_l imit_.COM ; 
%j else 

limit = marker- >length_limit_APPn [cinf o->unread„marker - (int) M_APP0] 
^ if ((unsigned int) length < limit) 
Jj limit = (unsigned int) length; 

= h /* allocate and initialize the marker item */ 

cur_marker = ( jpeg_saved_marker_ptr) 
= ( *cinf o->mem->alloc_large) ( ( j_common_ptr) cinfo, JP00L__IMAGE , 

SIZEOF (struct jpeg_marker_struct) + limit); 
L., cur_marker->next = NULL; 

M cur_marker->marker = (UINT8) cinf o->unread_marker ; 
fjj cur_marker->original_length = (unsigned int) length; 
l'\ cur_marker->data_length = limit; 

y /* data area is just beyond the jpeg_marker_ struct */ 
CJ data = cur_marker->data = (JOCTET *) (cur_marker + 1) ; 
~l marker ->cur_marker = cur_marker; 

marker ->byte spread = 0; 

bytes_read = 0; 

data_length = limit; 
} else { 

/* deal with bogus length word */ 
bytes_read = data_length = 0; 
data = NULL; 

) 

} else { 

/* resume reading a marker */ 
bytes_read = marker ->bytes_read ; 
data_length = cur_marker->data_length; 
data = cur_marker->data + bytes_read; 

} 

while (bytes_read < data_length) { 

INPUT_SYNC (cinf o) ; /* move the restart point to here */ 

marker ->bytes_re ad = bytes_read; 

/* If there's not at least one byte in buffer, suspend */ 

MAKE__BYTE_AVAIL( cinfo, return FALSE) ; 

/* Copy bytes with reasonable rapidity */ 

while (bytes_read < data_length && bytes_in_buf f er > 0) { 

*data++ = *next_input_byte++; 

bytes_in_buf f er-- ; 

bytes__read++ ; 

} 

} 
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/* Done reading what we wanj^fco read */ 

if (cur_marker ! = NULL) { i^Hll be NULL if bogus length word 
/* Add new marker to end wRist */ 
if (cinf o->marker_ list == NULL) { 

cinfo->marker_list = cur_marker; 
} else { 

jpeg_saved_marker_ptr prev = cinfo- >marker_l is t; 
while (prev->next != NULL) 
prev = prev->next; 

prev->next = cur — marker ; 

} 

/* Reset pointer & calc remaining data length */ 
data = cur_marker->data; 

length = cur_marker->original_length - data_length; 

} 

/* Reset to initial state for next marker */ 
marker ->cur_marker - NULL; 

/* Process the marker if interesting; else just make a generic trace msg 
switch (cinf o->unread_marker) { 
case M_^APPO: 

examine_appO (cinfo, data, data_length, lengths- 
break; 

case M_APP14 : 

examine_appl4 (cinfo, data, data_length, lengths- 
break; 

default: 

TRACEMS2 (cinfo, 1, JTRC_MISC_MARKER, cinf o->unread_marker , 

(int) (data_length + length)); 
break; 

} 

M'* skip any remaining data — could be lots */ 
JlNPUT_SYNC (cinfo) ; /* do before skip_input_data */ 

=if (length > 0) 

(*cinfo->src->skip_input_data) (cinfo, (long) length); 

--return TRUE; 

ftgldif /* SAVE_MARKERS_SUP PORTED */ 

BJ 

HETHODDEF (boolean) 

skip_variable ( j_decompress_ptr cinfo) 

Skip over an unknown or uninteresting variable-length marker */ 

a 

F3&NT32 length; 
;is lNPUT_VARS (cinfo) ; 

r]INPUT_2 BYTES ( cinfo, length, return FALSE) ; 
^length -= 2; 

TRACEMS2 (cinfo, 1, JTRC — MISC — MARKER , cinf o->unread_marker , (int) length); 

INPUT_SYNC (cinfo) ; /* do before skip_input_data */ 

if (length > 0) 

(*cinfo->src->skip_input_data) (cinfo, (long) length); 

return TRUE; 

} 



/* 

* Find the next JPEG marker, save it in cinf o->unread_marker . 

* Returns FALSE if had to suspend before reaching a marker; 

* in that case cinf o->unread_marker is unchanged. 
* 

* Note that the result might not be a valid marker code, 

* but it will never be 0 or FF. 
*/ 

LOCAL (boolean) 

next_ marker ( j_decompress_ptr cinfo) 
{ 

int c; 

INPUT_VARS (cinfo) ; 

for (;;) { 

INPUT_BYTE( cinfo, c, return FALSE) ; 
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/* Skip any non-FF bytes .^^^ 

* This may look a bit ii^^Kcient, but it will not occur in ^^B.id file. 

* We sync after each dis^^Red byte so that a suspending data^BKirce 

* can discard the byte from its buffer. 
*/ 

while (c != OxFF) { 

cinf o->marker->discarded_bytes++; 
INPUT_SYNC (cinfo) ; 

INPUT_BYTE (cinfo, c, return FALSE) ; 

} 

/* This loop swallows any duplicate FF bytes. Extra FFs are legal as 

* pad bytes, so don't count them in discarded_bytes . We assume there 

* will not be so many consecutive FF bytes as to overflow a suspending 

* data source's input buffer. 
*/ 

do { 

INPUT_BYTE (cinf o, c, return FALSE) ; 
} while (c == OxFF) ; 
if (c != 0) 

break; /* found a valid marker, exit loop */ 

/* Reach here if we found a stuffed-zero data sequence (FF/00) . 

* Discard it and loop back to try again. 
*/ 

cinf o->marker->discarded_ bytes += 2; 
INPUT_SYNC(cinfo) ; 

} 

if (cinf o->marker->discardecL_bytes != 0) { 

WARNMS2 (cinfo, JWRN_EXTRANEOUS_DATA, cinf o->marker->discarded_bytes , c) ; 
cinf o->marker->discarded_bytes = 0; 

} 

^cinfo->unread_marker = c; 

i&NPUT_SYNC( cinfo) ; 
y return TRUE; 



D&&AL (boolean) 

£iTst_marker ( j_decompress__ ptr cinfo) 

Like next_marker, but used to obtain the initial SOI marker. */ 

For this marker, we do not allow preceding garbage or fill; otherwise, 

£ * we might well scan an entire input file before realizing it ain't JPEG. 
If an application wants to process non-JFIF files, it must seek to the 

\f SOI before calling the JPEG library. 

"7-nt c, c2; 
"&NPUT_VARS (cinfo) ; 

5flNPUT_BYTE( cinfo, c, return FALSE) ; 
QlNPUT_BYTE ( cinfo, c2, return FALSE) ; 
if (c != OxFF || c2 != (int) M_SOI) 
ERREXIT2 (cinfo, JERR_NO_SOI, c, c2); 

cinf o->unread_marker = c2; 

INPUT_SYNC( cinfo) ; 
return TRUE; 

} 



/* 

* Read markers until SOS or EOI . 
* 

* Returns same codes as are defined for jpeg_consume_input : 

* JPEG_SUSPENDED, JPEG_REACHED_SOS , or JPEG_REACHED_EOI . 
*/ 

METHODDEF ( int ) 

read_markers ( j_decompress_ptr cinfo) 
{ 

/* Outer loop repeats once for each marker. */ 
for (;;) { 

/* Collect the marker proper, unless we already did. */ 

/* NB: f irst_marker ( ) enforces the requirement that SOI appear first. */ 
if (cinf o->unread_marker ==0) { 

if (! cinf o->marker~>saw_SOI) { 
if (! f irst_marker (cinf o) ) 
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return JPEG_SUSPENDED; 
} else { 
if {! next_marker (cinfo) T 
return JPEG_SUSPENDED; 
} 

} 

/* At this point cinf o->unread_raarker contains 
input point is just past the marker proper, 



the marker code and the 
but before any parameters . 



A suspension will cause us to return with this state still true. 



switch (cinfo->unread_marker) 
case M_SOI: 

if (! get_soi (cinf o) ) 
return JPEG_SUSPENDED; 

break; 



{ 



case M_SOF0: /* 
case M_S0F1: /* 

if {! get_sof (cinfo, 
return JPEG_SUSPENDED; 

break; 



Baseline */ 

Extended sequential, Huffman */ 
FALSE, FALSE) ) 



in 



case M_ S0F2 : /* Progressive, Huffman */ 

if (! get_sof (cinfo, TRUE, FALSE)) 
return JPEG_SUSPENDED; 

break; 

case M_ S0F9 : /* Extended sequential, arithmetic */ 

if (! get_sof (cinfo, FALSE, TRUE) ) 
return JPEG_SUSPENDED; 

break; 

case M_SOF10: /* Progressive, arithmetic */ 

if (! get_sof (cinfo, TRUE, TRUE)) 
return JPEG_SUSPENDED; 

break; 



/* Currently unsupported SOFn types */ 
case M_S0F3: /* 
case M_S0F5: /* 
case M_S0F6: /* 
case M_S0F7: /* 
case M_JPG: /< 
case M_S0F11: /* 
case M_S0F13: /* 
case M_S0F14: /' 
I* 



Lossless, Huffman */ 
Differential sequential, Huffman */ 
Differential progressive, Huffman */ 
Differential lossless, Huffman */ 
Reserved for JPEG extensions */ 
Lossless, arithmetic */ 
Differential sequential, arithmetic */ 
Differential progressive, arithmetic */ 
Differential lossless, arithmetic */ 



case M_S0F15: 

ERREXITK cinfo, JERR_SOF_UNSUP PORTED, cinf o->unread_marker ) ; 
break; 



case M_SOS: 

if (! get_sos (cinf o) ) 
return JPEG_SUSPENDED; 

cinf o->unread_marker = 0; 

return JPEG_REACHED_SOS ; 



/* processed the marker */ 



case M_EOI : 

TRACEMS (cinfo, 1, JTRC_EOI) ; 

cinf o->unread_marker =0; /* processed the marker */ 
return JPEG_REACHED_EOI ; 

case M_DAC: 

if (! get_dac (cinf o) ) 
return JPEG_SUSPENDED; 

break; 

case M_DHT: 

if ( ! get_dht (cinfo) ) 
return JPEG_SUSPENDED; 

break; 

case M_DQT: 

if (! get_dqt (cinf o) ) 
return JPEG_SUSPENDED; 

break; 



case M_DRI: 

if (! get_dri (cinf o) ) 
return JPEG_SUSPENDED; 

break; 
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case M^APPO: 
case M_^APP1 : 
case M^APP2: 
case M_^APP3 : 
case M_APP4: 
case M_APP5: 
case M_APP6: 
case M_APP7: 
case M_APP8: 
case M_APP9 : 
case M^PPIO: 
case M^APPll: 
case M_APP12: 
case M_APP13: 
case M_APP14 : 
case M_APP15: 

if (! (* { (my_marker_ptr) 
cinf o->unread__marker - 
return JPEG_SUSPENDED; 

break ; 



cinf o->marker) ->process_APPn[ 
(int) M_APP0]) (cinfo)) 



case M_COM: 

if (! ( * ( (my_marker_ptr) cinf o->marker) ->process_COM) (cinfo)) 
return JPEG_SUSPENDED; 
break; 

case M_RST0 : /* these are all parameter less */ 

case M_RST1: 

case M_RST2 : 

case M_RST3: 

case M_RST4: 
^ case M_RST5: 

case M_RST6 : 

case M_RST7 : 
^ case M_TEM : 

J5 TRACEMS1 (cinfo , 1, JTRC_P ARMLE S S_MARKER , cinf o->unread_marker ) ; 
I break; 

-13 

case M_DNL: /* Ignore DNL ... perhaps the wrong thing */ 

if (! skip_variable (cinfo) ) 
~l return JPEG_SUSPENDED; 
break; 

^ default: /* must be DHP, EXP, JPGn, or RESn */ 

r s /* p or now, we treat the reserved markers as fatal errors since they are 
rj * likely to be used to signal incompatible JPEG Part 3 extensions. 
fll * Once the JPEG 3 version-number marker is well defined, this code 
5 ' r * ought to change! 
\J */ 

fj ERREXITK cinfo, JERR_UNKNOWN_MARKER , cinf o->unread_marker ) ; 
Zl break; 
U } 

/* Successfully processed marker, so reset state variable */ 
cinf o->unread_marker = 0; 
} /* end loop */ 

} 



/* 

* Read a restart marker, which is expected to appear next in the datastream; 

* if the marker is not there, take appropriate recovery action. 

* Returns FALSE if suspension is required. 
* 

* This is called by the entropy decoder after it has read an appropriate 

* number of MCUs . cinf o->unread_marker may be nonzero if the entropy decoder 

* has already read a marker from the data source. Under normal conditions 

* cinfo->unread_marker will be reset to 0 before returning; if not reset, 

* it holds a marker which the decoder will be unable to read past. 
*/ 

METHODDEF (boolean) 

read_restart_marker ( j_decompress_ptr cinfo) 
£ 

/* Obtain a marker unless we already did. */ 

/* Note that next_marker will complain if it skips any data. */ 
if (cinf o->unread_marker ==0) { 
if (! next_ marker (cinf o) ) 
return FALSE; 

} 
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} 



if (cinf o->unread_marker 

( (int) M_RSTO + cinf o->lSPker->nex t_res tar t_num) ) { 

/* Normal case swallow the marker and let entropy decoder continue */ 

TRACEMS1 (cinfo, 3, JTRC_RST, cinf o->marker- >next_res tar t_num) ; 
cinf o->unread_marker - 0; 
} else { 

/* Uh-oh, the restart markers have been messed up. */ 

/* Let the data source manager determine how to resync. */ 

if (! ( *cinf o->src->resync_ to_restart) (cinfo, 

cinf o->marker ->next_res tar t„num) ) 

return FALSE; 

} 

/* Update next-restart state */ 

cinfo->marker->next_restart_num = (cinf o->marker ->next_res tar t_num + 1) & 7; 
return TRUE; 



/* 

* This is the default resync_to_restart method for data source managers 

* to use if they don't have any better approach. Some data source managers 

* may be able to back up, or may have additional knowledge about the data 

* which permits a more intelligent recovery strategy; such managers would 

* presumably supply their own resync method. 
* 

* read_restart_marker calls resync_to_restart if it finds a marker other than 

* the restart marker it was expecting. (This code is *not* used unless 

* a nonzero restart interval has been declared.) cinf o->unread_marker is 
^the marker code actually found (might be anything, except 0 or FF) . 
^fThe desired restart marker number (0..7) is passed as a parameter. 

if] This routine is supposed to apply whatever error recovery strategy seems 
^appropriate in order to position the input stream to the next data segment. 
^. s Note that cinf o->unread_marker is treated as a marker appearing before 

the current data-source input point; usually it should be reset to zero 
*£l before returning . 

*! Returns FALSE if suspension is required. 

yg 

if] This implementation is substantially constrained by wanting to treat the 
^ input as a data stream; this means we can't back up. Therefore, we have 
=*$ only the following actions to work with: 

h* 1. Simply discard the marker and let the entropy decoder resume at next 
if a, byte of file. 

™~ 2. Read forward until we find another marker, discarding intervening 

Hj data. (In theory we could look ahead within the current bufferload, 

ft | without having to discard data if we don't find the desired marker. 

This idea is not implemented here, in part because it makes behavior 

>s dependent on buffer size and chance buffer -boundary positions.) 

g 3. Leave the marker unread (by failing to zero cinf o->unread_marker) . 

X This will cause the entropy decoder to process an empty data segment, 

^ inserting dummy zeroes, and then we will reprocess the marker. 

* 

* #2 is appropriate if we think the desired marker lies ahead, while #3 is 

* appropriate if the found marker is a future restart marker (indicating 

* that we have missed the desired restart marker, probably because it got 

* corrupted) . 

* We apply #2 or #3 if the found marker is a restart marker no more than 

* two counts behind or ahead of the expected one. We also apply #2 if the 

* found marker is not a legal JPEG marker code (it's certainly bogus data). 

* If the found marker is a restart marker more than 2 counts away, we do #1 

* (too much risk that the marker is erroneous; with luck we will be able to 

* resync at some future point) . 

* For any valid non-restart JPEG marker, we apply #3. This keeps us from 

* overrunning the end of a scan. An implementation limited to single- scan 

* files might find it better to apply #2 for markers other than EOI, since 

* any other marker would have to be bogus data in that case. 
*/ 

GLOBAL ( bo o 1 e an ) 

jpeg_resync_to_restart ( j_decompress_ptr cinfo, int desired) 
{ 

int marker = cinf o->unread_marker ; 
int action = 1; 

/* Always put up a warning. */ 

WARNMS2 (cinfo, JWRN_MUST_RESYNC , marker, desired); 

/* Outer loop handles repeated decision after scanning forward. */ 
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for (;;) { 

if (marker < (int) M,SOF < 

action -2; /* iirWld marker */ 

else if (marker < (int) M_RST0 | | marker > (int) M_RST7) 

action =3; /* valid non-restart marker */ 

else { 

if (marker == ((int) M_RST0 + ((desired+1) & 7)) || 

marker == ((int) M_RST0 + ((desired+2) & 7))) 
action =3; /* one of the next two expected restarts */ 

else if (marker — ((int) M_RST0 + ((desired-1) & 7)) || 
marker == ((int) M_RST0 + ( (desired-2) & 7))) 
action =2; /* a prior restart, so advance */ 

else 

action = 1; /* desired restart or too far away */ 

} 

TRACEMS2 (cinfo, 4, JTRC_RECOVERY_ACTION, marker, action); 
switch (action) { 
case 1: 

/* Discard marker and let entropy decoder resume processing. */ 
cinf o->unread_marker = 0; 
return TRUE; 
case 2 : 

/* Scan to the next marker, and repeat the decision loop. */ 

if (! next_marker (cinf o) ) 
return FALSE; 

marker = cinf o->unread_marker; 

break; 
case 3 : 

/* Return without advancing past this marker. */ 

/* Entropy decoder will be forced to process an empty segment. */ 
return TRUE; 

p } 

,j /* end loop */ 

~* 

Li ; 

Reset marker processing state to begin a fresh datastream. 

J? 

M&HODDEF(void) 

iff set_marker_reader ( j__decompress_ptr cinfo) 

r r 

5 my_marker_ptr marker = (my_marker_ptr) cinf o->marker ; 

Li 

l=:cinfo->comp_info = NULL; /* until allocated by get_sof */ 

^=cinfo->input„scan_number =0; /* no SOS seen yet */ 

fljbinf o->unread_marker = 0; /* no pending marker */ 

L marker ->pub.saw_SO I = FALSE; /* set internal state too */ 

3narker->pub.saw_SOF = FALSE; 

L;lnarker->pub.discarded_bytes = 0; 

^= : marker->cur_marker = NULL; 

f 8 * 



/* 

* Initialize the marker reader module. 

* This is called only once, when the decompression object is created. 
*/ 

GLOBAL (void) 

jinit_marker_reader ( j_decompress„ptr cinfo) 
{ 

my_jnarker_ptr marker; 
int i; 

/* Create subobject in permanent pool */ 
marker = (my_marker_ptr ) 

(*cinfo->mem->alloc_small) ( ( j_common__ptr ) cinfo, JPOOL_ PERMANENT , 
SIZEOF(my_marker_reader) ) ; 
cinfo->marker = (struct jpeg_marker_reader *) marker; 
/* Initialize public method pointers */ 
marker->pub.reset_marker_reader = reset_marker_reader; 
marker->pub. read__markers = read_markers ; 
marker ->pub . read_res tart_marker = read_restart_marker ; 
/* Initialize COM/APPn processing. 

* By default, we examine and then discard APPO and APP14, 

* but simply discard COM and all other APPn. 
*/ 

marker ->process_COM = skip_variable; 
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marker->length_limit_COM = 
for (i = 0; i < 16; i++) ( 

marker ->process_APPn [ i ] =^PRp_variable ; 

marker->length_limit_APPn[i] = 0; 

} 

marker->process_APPn[0] = get_interesting_appn; 
marker->process_APPn[14] = get_interesting_appn; 
/* Reset marker processing state */ 
reset_marker_reader (cinf o) ; 



/* 

* Control saving of COM and APPn markers into marker_list. 
*/ 

#ifdef SAVE_MARKERS_SUPPORTED 
GLOBAL (void) 

jpeg_save_markers ( j_decompress_ptr cinfo, int marker_code, 
unsigned int length_limit) 

{ 

my_marker_ptr marker - (my_marker„ptr) cinf o->marker; 
long maxlength; 

jpeg_marker_parser_method processor; 

/* Length limit mustn't be larger than what we can allocate 
* (should only be a concern in a 16-bit environment). 
*/ 

maxlength = cinf o->mem->max_alloc_chunk - SIZEOF (struct jpeg_marker_struct) ; 
_if (((long) length_limit) > maxlength) 
Q length_limit = (unsigned int) maxlength; 

:zf* Choose processor routine to use. 

ifi * APP0/APP14 have special requirements. 

;fl */ 

-|f (length_limit) { 

processor = save_marker; 
■J% I* If saving APP0/APP14 , save at least enough for our internal use. */ 
Zl if (marker_code == (int) M_APP0 && length_limit < AP P 0_DATA_LEN ) 
^ length_limit = APP0_DATA_LEN; 

Hi else if (marker_code == (int) M_APP14 && length_limit < APP1 4_DATA_LEN ) 
I" length_limit = APP14_DATA„LEN; 

* } else { 

r=- processor = skip_variable; 

ri /* If discarding APP0/APP14 , use our regular on-the-fly processor. */ 
~* if (marker_code == (int) M_APP0 | | marker_code == (int) M_APP14) 
IU processor = get_interesting_appn; 

^if (marker_code == (int) M_C0M) { 
Cj marker->process_C0M = processor; 

inarker->length_limit_COM = length_limit ; 
} else if (marker_code >= (int) M_APP0 && marker_code <= (int) M_APP15) { 
marker->process_APPn[marker_code - (int) M_APP0] = processor; 
marker->length_limit_APPn[marker_code - (int) M_APP0] = length_limit; 
} else 

ERREXIT1 (cinfo, JERR_UNKNOWN_MARKER , marker_code) ; 



#endif /* SAVE_MARKERS_SUPPORTED */ 



/* 

* Install a special processing method for COM or APPn markers. 
*/ 

GLOBAL (void) 

jpeg_set_marker_processor ( j_decompress_ptr cinfo, int marker_code, 
jpeg_marker_parser_method routine) 

{ 

my_marker_ptr marker = (my_marker_ptr) cinf o->marker ; 

if (marker_code == (int) M_COM) 

marker- >process_COM = routine; 
else if (marker_code >= (int) M_APP0 && marker_code <= (int) M_APP15) 

marker->process_APPn[marker_code - (int) M_APP0] = routine; 
else 

ERREXIT1 (cinfo, JERR_UNKNOWN_ MARKER , marker_code) ; 
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/* 

* jdmaster.c 
* 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains master control logic for the JPEG decompressor. 

* These routines are concerned with selecting the modules to be executed 

* and with determining the number of passes and the work to be done in each 

* pass. 
*/ 

idefine JPEG_INTERNALS 
iinclude "j include. h" 
iinclude •jpeglib.h" 



/* Private state */ 

typedef struct { 

struct jpeg_decompjnaster pub; /* public fields */ 

int pass_number; /* # of passes completed */ 

boolean using_merged_upsample; /* TRUE if using merged upsample/cconvert */ 

/* Saved references to initialized quantizer modules, 
* in case we need to switch modes. 
*/ 

struct jpeg_color_quantizer * quant izer_lpass; 
fstruct jpeg_color_quantizer * quantizer_2pass; 
} ^fiiy_dec omp_mas t e r ; 

tgpedef my_decomp_master * my_master_ptr ; 

43 

t *l Determine whether merged upsample/ color conversion should be used. 
^ CRUCIAL : this must match the actual capabilities of jdmerge.c! 

ft 

til 

tOCAL (boolean) 

use__merged_up sample { j_decompress_ptr cinfo) 
&Lfdef UPSAMPLE__MERGING_SUPPORTED 

l=J/* Merging is the equivalent of plain box-filter upsampling */ 
ffjif ( cinfo ->do_fancy_upsampling | | cinf o->CCIR601_sampling) 
l"g return FALSE; 

jdmerge.c only supports YCC=>RGB color conversion */ 
LjLf (cinf o->jpeg_color_space != JCS_YCbCr | | cinf o->num_components != 3 | | 
cinf o->out_color_space != JCS_RGB | | 
cinf o->out_color_components != RGB_PIXELSI2E) 
return FALSE; 

/* and it only handles 2hlv or 2h2v sampling ratios */ 
if (cinf o->comp_info[0] .h_samp_f actor != 2 

cinf o->comp_info [1] .h_samp_f actor ! = 1 

cinf o->comp_info [2 ] ,h_samp_f actor ! = 1 

cinf o->comp_info[0 ] ,v_samp_f actor > 2 

cinf o->comp_info[l] ,v_samp_f actor != 1 

cinfo->comp_info[2 3 .v_samp„f actor != 1) 
return FALSE; 

/* furthermore, it doesn't work if we've scaled the IDCTs differently */ 
if (cinfo->comp_info [0] .DCT_scaled_size != cinfo->min_DCT_scaled_size 
cinfo->comp_info [1] .DCT_scaled_size != cinfo->min_DCT_scaled_ size 
cinfo->comp_info[2] .DCT_scaled_size != cinfo->min_DCT_scaled_size) 
return FALSE; 

/* ??? also need to test for upsample- time rescaling, when & if supported */ 

return TRUE; /* by golly, it'll work... */ 

#else 

return FALSE; 
#endif 



/* 

* Compute output image dimensions and related values. 

* NOTE: this is exported for possible use by application. 

* Hence it mustn't do anything that can't be done twice. 

* Also note that it may be called before the master module is initialized! 
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*/ 

GLOBAL (void) 

jpeg_calc_output_di mens ions ( j_decompress_ptr cinfo) 

/* Do computations that are needed before master selection phase */ 

{ 

iifdef IDCT_SCALING_SUPPORTED 
int ci; 

jpeg_component_inf o * compptr; 
# end if 

/* Prevent application from calling me at wrong times */ 
if (cinfo->global_state != DSTATE_READY ) 

ERREXIT1 (cinfo, JERR_BAD_ STATE , cinf o->global_state) ; 

#ifdef IDCT_SCALING_SUPPORTED 

/* Compute actual output image dimensions and DCT scaling choices. */ 
if (cinf o->scale_num * 8 <= cinf o->scale - denom) { 
/* Provide 1/8 scaling */ 
cinfo->output_width = (JDIMENSION) 

jdiv_round__up( (long) cinf o->image_width, 8L) ; 
cinfo->output_height = (JDIMENSION) 

jdiv_round_up( (long) cinf o->image_height, 8L) ; 
cinfo->min_DCT_scaled_size - 1; 
} else if (cinf o->scale_num * 4 <= cinf o->scale_denom) { 
/* Provide 1/4 scaling */ 
cinfo->output_width = (JDIMENSION) 

jdiv_round_up ( (long) cinf o->image_width, 4L) ; 
cinfo->output_height = (JDIMENSION) 

jdiv_round_up ( (long) cinf o->image_height, 4L) ; 
Li cinfo->min_DCT_scaled_size = 2; 

else if (cinf o->scale_num * 2 <= cinf o->scale — denom) { 
/* Provide 1/2 scaling */ 
01 cinfo->output_width = (JDIMENSION) 
.j^ jdiv_round_up ( (long) cinf o->image_width, 2L) ; 
f s s cinfo->output_height = (JDIMENSION) 
~*j jdiv_round_up ( (long) cinf o->image_height , 2L) ; 
; _n cinf o->min_DCT_scaled_size = 4; 
*j else { 

-4J /* Provide 1/1 scaling */ 

nj cinf o->output_width = cinf o->image_width; 

cinf o->output_height = cinf o->image_height ; 
~ cinf o->min_DCT_scaled_size = DCTSIZE; 

ri/* In selecting the actual DCT scaling for each component, we try to 

'zZ * scale up the chroma components via IDCT scaling rather than upsampling 

l?j * This saves time if the upsampler gets to use 1:1 scaling. 

* Note this code assumes that the supported DCT scalings are powers of 2 

~i */ 

%zSfor (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components ; 
fj ci++, compptr++) { 

int ssize = cinf o->min_DCT_scaled_size; 

while (ssize < DCTSIZE && 

( compptr- >h_samp_f actor * ssize * 2 <= 

cinf o->max_h_samp_f actor * cinf o->min_DCT_scaled_size) && 
(compptr->v_samp_f actor * ssize * 2 <= 

cinf o->max_v_samp_f actor * cinf o->min__ DCT„scaled_size) ) { 
ssize = ssize * 2 ; 

} 

compptr- >DCT_scaled_size = ssize; 

} 

/* Recompute downsampled dimensions of components; 

* application needs to know these if using raw downsampled data. 
*/ 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components ; 
ci++, compptr++) { 
/* Size in samples, after IDCT scaling */ 
compptr- >downsampled_width = (JDIMENSION) 
jdiv_round_up ( (long) cinf o->image_width * 

(long) ( compptr- >h_samp_f actor * compptr->DCT_scaled_size) , 
(long) (cinf o->max_h_samp_f actor * DCTSIZE) ) ; 
compptr- >downsampled_height = (JDIMENSION) 
jdiv_round_up ( (long) cinf o->image_height * 

(long) ( compptr ->v_samp_f actor * compptr->DCT_scaled_size) , 
(long) (cinf o->max_v_samp_f actor * DCTSIZE) ) ; 

} 

#else /* ! IDCT_SCALING_SUPPORTED */ 
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/* Hardwire it to "no scalr^^B*/ 

cinfo->output_width = cinf o^BRriage__width ; 

cinf o->output_height = cinfo->image_height; 

/* jdinput.c has already initialized DCT_scaled_size to DCTSIZE, 
* and has computed unsealed downs ampled_ width and downsampled_height . 
*/ 



tendif /* IDCT_SCALING_SUPPORTED */ 



/* Report number of components in selected colorspace. */ 

/* Probably this should be in the color conversion module... */ 

switch (cinf o->out_color_space) { 

case JCS_GRAYSCALE: 

cinfo->out_color_components = 1; 

break; 
case JCS_RGB: 
#if RGB_PIXELSIZE •= 3 

cinfo->out_color_components = RGB_PIXELSIZE; 

break; 

tendif /* else share code with YCbCr */ 
case JCS_YCbCr: 

cinfo->out_color_components = 3; 

break; 
case JCS_CMYK: 
case JCS_YCCK: 

cinfo->out_color_components = 4; 

break ; 

default: /* else must be same colorspace as in file */ 

cinfo->out_color_components = cinf o->num_components; 
break ; 

^pinfo->output_components = {cinf o->quantize_colors ? 1 : 
k lJ cinf o->out_color_ components) ; 

m 

"J* See if upsampler will want to emit more than one row at a time */ 
"If ( use_merged_ups ample (cinf o) ) 

SJ cinf o->rec_outbuf_height = cinf o->max_v_samp_ factor ; 
.£lse 

cinf o->rec_outbuf_height = 1; 



Several decompression processes need to range-limit values to the range 
tj. 0 . . MAX J SAMPLE ; the input value may fall somewhat outside this range 

due to noise introduced by quantization, roundoff error, etc. These 
rf | processes are inner loops and need to be as fast as possible. On most 
lf[ machines, particularly CPUs with pipelines or instruction prefetch, 

a (subscript-check-less) C table lookup 
jr^; x = sample_range_limit [x] ; 

is faster than explicit tests 
^ if (x < 0) x = 0; 

* else if (x > MAXJSAMPLE) x = MAX JSAMPLE ; 

* These processes all use a common table prepared by the routine below. 
* 

* For most steps we can mathematically guarantee that the initial value 

* of x is within MAXJSAMPLE+1 of the legal range, so a table running from 

* - (MAXJSAMPLE+1 ) to 2* MAXJSAMPLE+1 is sufficient. But for the initial 

* limiting step (just after the IDCT) , a wildly out-of -range value is 

* possible if the input data is corrupt. To avoid any chance of indexing 

* off the end of memory and getting a bad-pointer trap, we perform the 

* post-IDCT limiting thus: 

* x = range_limit [x & MASK] ; 

* where MASK is 2 bits wider than legal sample data, ie 10 bits for 8 -bit 

* samples. Under normal circumstances this is more than enough range and 

* a correct output will be generated; with bogus input data the mask will 

* cause wraparound, and we will safely generate a bogus -but-in-range output. 

* For the post-IDCT step, we want to convert the data from signed to unsigned 

* representation by adding CENTERJSAMPLE at the same time that we limit it. 

* So the post-IDCT limiting table ends up looking like this: 

* CENTERJSAMPLE , CENTERJSAMPLE+ 1 , . . . , MAXJSAMPLE , 

* MAXJSAMPLE (repeat 2* (MAXJSAMPLE+1) -CENTERJSAMPLE times), 

* 0 (repeat 2* (MAXJSAMPLE+1) -CENTERJSAMPLE times), 

* 0,1,..., CENTERJSAMPLE- 1 

* Negative inputs select values from the upper half of the table after 

* masking. 
* 

* We can save some space by overlapping the start of the post-IDCT table 

* with the simpler range limiting table. The post-IDCT table begins at 
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sample_range_limit + CENT; 



iSHrced in near data space on PCs; it^iRnal 



* Note that the table is all^BPted in near data space on PCs; it^Kmall 

* enough and used often enough to justify this. 
*/ 

LOCAL (void) 

prepare_range_limit_table ( j_decompress_ptr cinfo) 

/* Allocate and fill in the sample_range_limit table */ 

{ 

JSAMPLE * table; 
int i; 

table = (JSAMPLE *) 

(*cinf o->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
(5 * (MAXJSAMPLE+1) + CENTERJS AMPLE ) * S I ZEOF (JSAMPLE) ) ; 
table += (MAXJSAMPLE+1); /* allow negative subscripts of simple table */ 
cinfo- >sample_range_limit = table; 

/* First segment of "simple" table: limit [x] = 0 for x < 0 */ 
MEMZERO(table - (MAXJSAMPLE+1) , (MAXJSAMPLE+1) * S I ZEOF (JSAMPLE) ) ; 
/* Main part of "simple" table: limitfx] = x */ 
for (i = 0; i <= MAX JSAMPLE ; i++) 

table [i] = (JSAMPLE) i; 
table += CENTERJSAMPLE; /* Point to where post-IDCT table starts */ 
/* End of simple table, rest of first half of post-IDCT table */ 
for (i = CENTERJSAMPLE; i < 2* (MAXJSAMPLE+1) ; i++) 

table Ei] = MAX J SAMPLE ; 
/* Second half of post-IDCT table */ 
MEMZER0( table + (2 * (MAXJSAMPLE+1)), 

(2 * (MAXJSAMPLE+1) - CENTERJSAMPLE) * S I ZEOF ( JSAMPLE )) ; 
MEMCOPY ( table + (4 * (MAXJSAMPLE+1) - CENTERJSAMPLE), 

cinfo->sample_range_limit, CENTERJSAMPLE * S I ZEOF (JSAMPLE) ) ; 

HI 

'is Master selection of decompression modules. 

This is done once at jpeg_start_decompress time. We determine 
,H which modules will be used and give them appropriate initialization calls. 
^ We also initialize the decompressor input side to begin consuming data. 

Since jpeg_read_header has finished, we know what is in the SOF 
^ and (first) SOS markers. We also have all the application parameter 
=* settings . 

0/ 

iSbAL(void) 

iS&pter_s elect ion ( j_decompress_ ptr cinfo) 

" : «iy_jnaster_ptr master = (my_master_ptr) cinf o->master; 
Qboolean use_c_buf f er ; 
piLong samplesperrow; 
^JDIMENSION jd_s ample sper row; 

/* Initialize dimensions and other stuff */ 
jpeg_calc_output_dimensions (cinfo) ; 
prepare_range_l imit_t able (cinf o) ; 

/* Width of an output scanline must be representable as JDIMENSION. */ 
samplesperrow = (long) cinf o->output_width * (long) cinfo->out_ color_components; 
jd_samplesperrow = (JDIMENSION) samplesperrow; 
if ((long) jd_sample sper row != samplesperrow) 
ERREXIT( cinfo, JERR_WIDTH_OVERFLOW) ; 

/* Initialize my private state */ 
master->pass_number = 0; 

mas ter->using_merged_up sample = use_merged_ups ample (cinfo) ; 

/* Color quantizer selection */ 
master->quantizer_lpass = NULL; 
master->quantizer_2pass = NULL; 

/* No mode changes if not using buffered- image mode. */ 
if (■ cinf o->quantize_colors || ! cinf o->buf f ered_image) { 

cinf o->enable_lpass_quant = FALSE; 

cinf o->enable_external_quant = FALSE; 

cinfo ->enable_2 pas s — quant = FALSE; 

} 

if (cinf o->quantize_colors) { 
if (cinf o->raw_data_out) 

ERREXIT ( cinfo , JERR_NOTIMPL) ; 
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/* 2-pass quantizer only j^ycs in 3-component color space. */ 
if (cinf o->out_color_coim^^^Lts != 3) { 

cinf o->enable_lpass — quaB^^ TRUE; 

cinf o->enable_external_quant = FALSE; 

cinf o->enable_ 2pass_quant = FALSE; 

cinf o->colormap = NULL; 
} else if (cinfo->colormap != NULL) { 

cinf o->enable_external_quant ~ TRUE; 
} else if (cinf o->two_ pass_quantize) { 

cinf o->enable_2pass_quant = TRUE; 
} else { 

cinf o->enable_lpass_quant = TRUE; 

} 

if (cinfo->enable_lpass_quant) { 
#ifdef QUANT_1PASS_SUPP0RTED 

jinit_lpass_quantizer (cinf o) ; 
master->quantizer_lpass - cinf o->cquantize; 

#else 

ERREXIT (cinf o , JERR_NOT_COMPILED) ; 

#endif 
} 

/* We use the 2-pass code to map to external colormaps. */ 
if (cinf o->enable_2pass_quant | | cinf o->enable_external_quant) { 
#ifdef QUANT_2PASS_SUPPORTED 

jinit_2pass_quantizer (cinf o) ; 
master->quantizer_2pass = cinf o->cquantize; 

#else 

ERREXIT ( cinf o, JERR_NOT_COMPILED) ; 

#endif 

n > 

^# /* If both quantizers are initialized, the 2-pass one is left active; 
dl * this is necessary for starting with quantization to an external map. 

-ii */ 

^3 

%$* Post-processing: in particular, color conversion first */ 
U cinf o->raw_data_out) { 
if (master->using_merged_upsample) { 
Mfdef UPSAMPLE_MERGING_SUP PORTED 

~\ j init_merged_ups ampler (cinf o) ; /* does color conversion too */ 
#4ise 

2 ERREXIT (c info, JERR_NOT_COMPILED) ; 

#§ndif 

} else { 

LJ jinit_color_deconverter (cinf o) ; 
f^a jinit_upsampler (cinf o) ; 
> 

jinit_d__post_controller (cinf o, cinfo- >enable_2pass_quant) ; 

xl/* Inverse DCT */ 
^=^jinit_inverse_dct (cinf o) ; 

/* Entropy decoding: either Huffman or arithmetic coding. */ 
if (cinf o->arith_code) { 

ERREXIT ( cinf o, JERR_ARITH_NOTIMPL) ; 
} else { 

if (cinf o - >pr ogres si ve__mode) { 
#ifdef D_PROGRESSIVE_SUPP0RTED 

jinit_phuf f_decoder (cinfo) ; 

#else 

ERREXIT (cinfo, JERR_NOT_COMPILED) ; 

#endif 

} else 

jinit_huf f_decoder (cinf o) ; 

} 

/* Initialize principal buffer controllers. */ 

use_c_buff er = cinf o->inputctl->has_multiple_scans | | cinf o->buf f ered_image 
jinit_d_coef_controller (cinfo, use_c_buf f er) ; 

if (! cinf o->raw_data_out) 

jinit_d_main_controller (cinf o, FALSE /* never need full buffer here */); 

/* We can now tell the memory manager to allocate virtual arrays. */ 
(*cinfo->mem->realize_virt_arrays) ( ( j_common_j?tr) cinfo); 

/* Initialize input side of decompressor to consume first scan. */ 
(*cinfo->inputctl->start_input_pass) (cinfo) ; 
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iifdef d_multiscan_files_supm^:d 

/* If jpeg_start_decompres^^^.l read the whole file, initializ 

* progress monitoring appr^^Rately . The input step is counte 

* as one pass . 
*/ 

if (cinf o->progress != NULL && ! cinf o->buf f ered_image && 
cinf o->inputctl->has_multiple_scans) { 
int nscans; 

/* Estimate number of scans to set pass_limit. */ 
if (cinf o->progressive_mode) { 

/* Arbitrarily estimate 2 interleaved DC scans + 3 AC scans /component . */ 

nscans = 2 + 3 * cinf o->num_ component s; 
} else { 

/* For a nonprogressive multiscan file, estimate 1 scan per component. */ 
nscans = cinf o->num_components ; 

} 

cinf o->progress->pass_counter = OL; 

cinfo->progress->pass_limit = (long) cinf o->total_iMCU_rows * nscans; 
cinf o->progress->completed_passes = 0; 

cinf o->progress->total_passes = (cinf o->enable_2pass_quant ? 3 : 2); 
/* Count the input pass as done */ 
master->pass_number++ ; 

} 

#endif /* D_MULTISCAN_FILES_SUPPORTED */ 




/* 

* Per-pass setup. 

* This is called at the beginning of each output pass. We determine which 

* modules will be active during this pass and give them appropriate 

£5. start_pass calls. We also set is_dummy_j?ass to indicate whether this 

is a "real" output pass or a dummy pass for color quantization. 
'd* (In the latter case, jdapistd.c will crank the pass to completion.) 

6i 

MEJhODDEF ( vo i d ) 

prepare^ fpr_output_pass (j_decompress_ptr cinfo) 
Umy_ master_ptr master = (my_master_ptr) cinf o->master ; 

»if (master->pub. is_dummy_pass) { 
fiidef QUANT_2PASS_SUPPORTED 

e /* Final pass of 2-pass quantization */ 

j_ : master->pub. is_dummy_pass = FALSE; 

^ (*cinf o->cquantize->start_pass) (cinfo, FALSE); 

|J (*cinfo->post->start_pass) (cinfo, JBUF_CRANK_DEST ) ; 

fy (*cinf o->main->start__pass) (cinfo, JBUF_CRANK_DEST ) ; 
#else 

'"-4 ERREXIT (cinfo, JERR_NOT_COMPILED) ; 
fepdif /* QUANT_2PASS_SUPPORTED */ 
~l) else { 

if (cinf o->quantize_colors && cinf o->colormap == NULL) { 
/* Select new quantization method */ 

if (cinf o->two_pass_quantize && cinf o->enable_ 2pass_quant) { 
cinf o->cquantize - master->quantizer_2pass ; 
master->pub. is_dummy_pass = TRUE; 

} else if (cinf o->enable_lpass_quant) { 
cinf o->cquantize = master->quantizer_lpass ; 

} else { 

ERREXIT (cinfo, JERR_MODE_CHANGE) ; 
} 

} 

(*cinfo->idct->start_pass) (cinfo) ; 
(*cinfo->coef->start_output_pass) (cinfo) ; 
if (! cinf o->raw_data_ out) { 

if (! mas ter->using_merged_ups ample) 
(*cinf o->cconvert->start_pass) (cinfo) ; 

( *cinf o->upsample->start_pass) (cinfo) ; 

if (cinf o->quanti ze_co lor s) 
(*cinf o->cquantize->start_pass) (cinfo, master->pub. is_dummy_pass) ; 

(* cinf o->post->s tar t_pass) (cinfo, 

(master->pub.is_dummy_pass ? JBUF_SAVE_AND_PASS : JBUF_PASS_THRU) ) ; 

(*cinf o->main->start_pass) (cinfo, JBUF_PASS_THRU) ; 

} 

} 

/* Set up progress monitor's pass info if present */ 
if (cinfo->progress != NULL) { 

cinfo->progress->completed_passes = master->pass_number ; 
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cinf o->progress->total_pa^^^ = master->pass_number + 

(master-:^^Bis_dummy_j?ass ? 2 : 1) ; 
/* In buffered- image modelMre assume one more output pass if iS^ffiot 

* yet reached, but no more passes if EOI has been reached. 

*/ 

if (cinf o->buf f ered_image && ! cinf o->inputctl->eoi_reached) { 

cinfo->progress->total„passes += (cinf o->enable_2pass_quant ? 2 : 1) 

} 



/* 

* Finish up at end of an output pass. 
*/ 

METHODDEF (void) 

f inish_output_pass ( j_decompress_ptr cinfo) 
{ 

my_mas t er_p t r master = (my_master_ptr) cinf o->master; 

if (cinf o->quantize_colors) 

(*cinf o->cquantize->f inish_pass) (cinfo) ; 
master->pass_number++ ; 

} 



#ifdef D_MULTISCAN_FILES_SUPPORTED 
/* 

* Switch to a new external colormap between output passes . 

U 

: a 

GgOBAL(void) 

jgeg_new_colormap (j_decompress_ptr cinfo) 

y3iy_master_ptr master = <my_master_j?tr) cinf o->master ; 

"f* Prevent application from calling me at wrong times */ 
4lf (cinfo->global_state != DSTATE_BUFIMAGE ) 
if j ERREXIT1 (cinfo, JERR_BAD„STATE , cinf o->global_state) ; 

^4f (cinfo->quantize_colors && cinf o->enable_external_quant && 
= cinf o-> colormap != NULL) { 

s_. /* Select 2 -pass quantizer for external colormap use */ 

^* cinf o->cquantize = mas ter->quanti zer_2 pass; 

O /* Notify quantizer of colormap change */ 

n§ (*cinfo->cquantize->new_color„map) (cinfo); 

[** inaster->pub. is_dummy_j?ass = FALSE; /* just in case */ 

~k else 

r=% ERREXIT (cinfo , JERR_MODE_CHANGE) ; 

K 

#endif /* D_MULTISCAN_FILES_SUPPORTED */ 



/* 

* Initialize master decompression control and select active modules. 

* This is performed at the start of jpeg_start_decompress . 
*/ 

GLOBAL (void) 

jinit_master_decompress ( j_decompress__ptr cinfo) 
{ 

my_master_ptr master; 

master = (my_master_j?tr) 

(*cinfo->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
S I Z EO F ( my_de c omp_mas t e r ) ) ; 
cinfo->master = (struct jpeg_decomp — master *) master; 
mas ter->pub . prepare_f or_output_pass = prepare_f or_output j)ass ; 
master->pub. f inish_output_pass - f inish_output_pass; 

master->pub. is_dummy_pass = FALSE; 

mas ter_s elect ion (cinf o) ; 

} 
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* jdmerge.c 
* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains code for merged upsampling/color conversion. 
* 

* This file combines functions from jdsample.c and jdcolor.c; 

* read those files first to understand what's going on. 
* 

* When the chroma components are to be upsampled by simple replication 

* (ie, box filtering) , we can save some work in color conversion by 

* calculating all the output pixels corresponding to a pair of chroma 

* samples at one time. In the conversion equations 

* R = Y + Kl * Cr 

* G = Y + K2 * Cb + K3 * Cr 

* B = Y + K4 * Cb 

* only the Y term varies among the group of pixels corresponding to a pair 

* of chroma samples, so the rest of the terms can be calculated just once. 

* At typical sampling ratios, this eliminates half or three-quarters of the 

* multiplications needed for color conversion. 
* 

* This file currently provides implementations for the following cases: 

* YCbCr => RGB color conversion only. 

* Sampling ratios of 2hlv or 2h2v. 

* No scaling needed at upsample time. 

* Corner-aligned (non-CCIR601) sampling alignment. 

* Other special cases could be added, but in most applications these are 

* the only common cases. (For uncommon cases we fall back on the more 
-^general code in jdsample.c and jdcolor.c.) 

#§efine JPEG_INTERNALS 
# Include "j include .h" 
#Mclude " jpeglib.h" 

#ildef UPSAMPLE _^ERGING_SUPPORTED 

/fi \ Private subobject */ 
t^pedef struct { 

Lstruct jpeg_ups ampler pub; /* public fields */ 

M'* Pointer to routine to do actual upsampling/ conversion of one row group */ 

njTMETHOD (void, upmethod, ( j_decompress_ptr cinfo, 

V\ JSAMP IMAGE input_buf, JDIMENSION in_row_group__ctr , 

2: JSAMPARRAY output_buf ) ) ; 

pV* Private state for YCC->RGB conversion */ 

Hnt * Cr_r_tab; /* => table for Cr to R conversion */ 

int * Cb_b_tab; /* => table for Cb to B conversion */ 

INT32 * Cr_g_tab; /* => table for Cr to G conversion */ 

INT32 * Cb_g_tab; /* => table for Cb to G conversion */ 

/* For 2:1 vertical sampling, we produce two output rows at a time. 

* We need a "spare" row buffer to hold the second output row if the 

* application provides just a one-row buffer; we also use the spare 

* to discard the dummy last row if the image height is odd. 
*/ 

JSAMPROW spare_row; 

boolean spare_full; /* T if spare buffer is occupied */ 

JDIMENSION out_row_width; /* samples per output row */ 
JDIMENSION rows_to_go; /* counts rows remaining in image */ 
} my_ups ampler; 

typedef my_upsampler * my_upsample_ptr ; 

#define SCALEBITS 16 /* speediest right-shift on some machines */ 

#define ONE_HALF ((INT32) 1 « (SCALEBITS-l) ) 

#define FIX(x) ((INT32) { (x) * ( 1L«SCALEBITS) + 0.5)) 



/* 

* Initialize tables for YCC->RGB colorspace conversion. 

* This is taken directly from jdcolor.c; see that file for more info. 
*/ 
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LOCAL (void) 

build__ycc_rgb_table ( j_decomp , MJs_ptr cinfo) 
{ 

my_upsample_ptr upsample = (my_upsample_ptr) cinf o->ups ample ; 
int i; 
INT32 x; 
SHIFT TEMPS 



upsample ->Cr_r 
( *cinf o->mem 

up s amp 1 e - > C b_b. 
(*cinf o->mem 

upsample ->Cr_g 
(*cinf o->mem 

up s amp 1 e - > Cb_g. 
(*cinf o->mem 



tab = (int *) 
,->alloc_small) 
(MAXJSAMPLE+1) 
_tab = (int *) 
->alloc_small) 
(MAXJSAMPLE+1) 
_tab = (INT32 *) 

->alloc_small) ( ( j_coramon_ptr) cinfo, JPOOL_IMAGE, 
( MAX JSAMPLE+ 1 ) * S I ZEOF ( INT3 2 ) ) ; 
_tab = (INT32 *) 

->alloc_small) ( ( j_common_jptr) cinfo, JPOOL_IMAGE, 
(MAXJSAMPLE+1) * SIZEOF ( INT32 )) ; 



( ( j_common_j?tr) cinfo, JPOOL^IMAGE, 

* SIZEOF (int) ) ; 

( ( j_common_ptr) cinfo, JPOOL_IMAGE , 

* SIZEOF (int) ) ; 



for (i = 0, x = -CENTERJS AMPLE; i <= MAX JSAMPLE ; i++, x++) { 

/* i is the actual input pixel value, in the range 0 . . MAX JSAMPLE */ 
/* The Cb or Cr value we are thinking of is x = i - CENTERJSAMPLE */ 
/* Cr->R value is nearest int to 1.40200 * x */ 
upsample ->Cr_r_tab[i] = (int) 

RIGHT_SHIFT (FIX (1.40200) * x + ONE__HALF, SCALEBITS); 
/* Cb=>B value is nearest int to 1.77200 * x */ 
upsample ->Cb_b_tab [ i ] = ( int ) 

RIGHT_SHIFT (FIX (1.77200) * x + ONE_HALF, SCALEBITS); 
/* Cr=>G value is scaled-up -0.71414 * x */ 
upsample->Cr_g_tab[i] = (- FIX (0 . 71414 ) ) * x; 
5f /* Cb=>G value is scaled-up -0.34414 * x */ 

Ol /* We also add in ONE_HALF so that need not do it in inner loop */ 
.% upsample->Cb_g_tab[i] = (- FIX (0 . 34414 ) ) * x + ONE_HALF; 



pi Initialize for an upsampling pass. 
jfeTHODDEF(void) 

Star t_pass_merged_up sample ( j_decompress_ptr cinfo) 

niny_upsample_ptr upsample = (my_upsample_ptr) cinf o->ups ample, • 

M 

.3* Mark the spare buffer empty */ 
LAipsample->spare_full = FALSE; 

PV* Initialize total-height counter for detecting bottom of image */ 

^ upsample ->rows_to_go = cinf o->output_height; 

} 



/* 

* Control routine to do upsampling (and color conversion) . 
* 

* The control routine just handles the row buffering considerations. 
*/ 

METHODDEF (void) 

merged_2v_up sample ( j_decompress_ ptr cinfo, 

J SAMP IMAGE input_buf, JDIMENSION *in_row_group_ctr , 
JDIMENSION in_row_groups_avail , 

JSAMP ARRAY output_buf, JDIMENSION *out_row_ctr , 

JDIMENSION out_rows_avail) 
/* 2:1 vertical sampling case: may need a spare row. */ 
{ 

my_upsample_ptr upsample = (my_upsample_ptr ) cinf o->upsample; 
JSAMPROW workjptrs [2] ; 

JDIMENSION num_rows; /* number of rows returned to caller */ 

if (upsample->spare_full) { 

/* If we have a spare row saved from a previous cycle, just return it. */ 
jcopy_sample_rows (& upsample->spare__ row, 0, outputs buf + *out_row_ctr , 0, 

1 , ups amp 1 e - > ou t_r ow_wi d th ) ; 
nunv_ rows - 1 ; 

upsample ->spare_full = FALSE; 
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} else { 

/* Figure number of rows ^^K e turn to caller. */ 
num_rows = 2; 

/* Not more than the distance to the end of the image. */ 
if (nunurows > upsample- >rows_to_go) 

num_rows = upsample->rows_to_go; 
/* And not more than what the client can accept: */ 
out_rows_avai 1 - = * ou t_row_c tr ; 
if (num_rows > out_rows_avail) 

num_rows = out_rows_avail ; 
/* Create output pointer array for upsampler. */ 
workup trs [ 0 3 = output_buf [ *out_row_ctr ] ; 
if (num_rows > 1) { 

work_ptrs[13 = output_buf [*out_row_ ctr + 13; 
} else { 

work_j?trs [ 1 ] = upsample->spare_row; 
upsample ->spare_full = TRUE; 

} 

/* Now do the upsampling. */ 
(*upsample->upmethod) {cinfo, input_buf , *in_row_group_ctr , work_ptrs) ; 

) 

/* Adjust counts */ 
*out_row_ctr += num_rows; 
upsample->rows_to_go - = num_rows; 

/* When the buffer is emptied, declare this input row group consumed */ 
if (! upsample- >spare_full) 
( * in_row_group_c tr ) ++ ; 



CJ 

MgfHODDEF(void) 

m.lJrgecLlv_up sample { j_decompress_ptr cinfo, 

y= JSAMPIMAGE input_buf # JDIMENSION *in_row_group_ctr , 

fefS JDIMENSION in_row_groups_avail, 

JSAMPARRAY output_buf, JDIMENSION *out_row_ctr , 

~j JDIMENSION out_rows_avail) 

Mll:l vertical sampling case: much easier, never need a spare row. */ 

Zftiy_upsample_ptr upsample = (my_upsample_ptr) cinf o->ups ample ; 
„ /* Just do the upsampling. */ 

f s {*upsample->upmethod) (cinfo, input_buf, *in_row„group_ctr , 
^~ output_buf + *out_row_ctr) ; 

* Adjust counts */ 
l=ll(*out_row_ctr ) + + ; 
5 * i n_r ow_gr oup_c t r ) + + ; 

M 



AS 

* These are the routines invoked by the control routines to do 

* the actual upsampling/conversion. One row group is processed per call. 
* 

* Note: since we may be writing directly into application-supplied buffers, 

* we have to be honest about the output width; we can't assume the buffer 

* has been rounded up to an even width. 
*/ 




/* 

* Upsample and color convert for the case of 2:1 horizontal and 1:1 vertical. 
*/ 

METHODDEF (void) 

h2vl_merged_ups ample ( j_decompress_ ptr cinfo, 

JSAMPIMAGE input_buf, JDIMENSION in_row_group_ctr , 
JSAMPARRAY output_buf ) 

{ 

my_upsample_ptr upsample = (my_ upsample_ptr) cinf o->upsample; 
register int y, cred, cgreen, cblue; 
int cb, cr; 

register JSAMPROW outptr; 
JSAMPROW inptrO, inptrl, inptr2; 
JDIMENSION col; 

/* copy these pointers into registers if possible */ 
register JSAMPLE * range_limit = cinf o->sample_range_limit ; 
int * Crrtab = upsample- >Cr_r_tab; 
int * Cbb tab = upsample- >Cb_b_tab; 
INT 3 2 * Crgtab = upsample ->Cr_g_tab; 
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I NT 3 2 * Cbgtab = ups ample -:_|^^j_tab; 

SHIFT_TEMPS 

inptrO = input_buf [ 0 ] [ in_row_group_c tr ] ; 
i np tr 1 = i npu t_bu f [ 1 ] [ i n_row_.gr oup_c t r ] ; 
inptr2 = input_buf [2] [in_row_group_ctr j ; 
outptr = output_buf [0] ; 

/* Loop for each pair of output pixels */ 

for <col = cinf o->output_width >> 1; col > 0; col--) { 

/* Do the chroma part of the calculation */ 

cb = GETJS AMPLE ( *inptrl++ ) ; 

cr = GETJS AMPLE (*inptr 2++) ; 

cred = Crrtab[cr]; 

cgreen = (int) RIGHT_SHI FT (Cbgtab [cb] + Crgtabfcr] , SCALEBITS); 
cblue = Cbbtab [cb]; 

/* Fetch 2 Y values and emit 2 pixels */ 

y = GETJS AMPLE (*inptrO++) ; 

outptr [RGB_RED] = range — limit [y + cred] ; 

outptr [RGB_GREEN] = range_ limit [y + cgreen]; 

outptr [RGB_BLUE] = range_limit [y + cblue]; 

outptr += RGB_PIXELSIZE; 

y = GETJSAMPLE (*inptrO++) ; 

outptr [RGB_RED] = range_limit [y + cred] ; 

outptr [RGB_GREEN] = range_limit [y + cgreen] ; 

outptr [RGB_BLUE] = range_limit [y + cblue] ; 

outptr += RGB_PIXELSIZE; 

} 

/* If image width is odd, do the last output column separately */ 
if (cinf o->output_width & 1) { 

cb = GETJSAMPLE (*inptrl) ; 

cr = GETJSAMPLE (*inptr2) ; 
rj cred = Crrtab[cr]; 

j\ cgreen = (int) RIGHT_SHIFT (Cbgtab [cb] + Crgtab[cr], SCALEBITS); 

~tz cblue = Cbbtab[cb] ; 

yl y = GETJSAMPLE ( *inptrO ) ; 

J* outptr [RGB_RED] = range_limit [y + cred] ; 
J"t outptr [RGB_GREEN] = range_limit [y + cgreen]; 
~~i outptr [RGB_BLUE] = range_limit [y + cblue]; 

^ Upsample and color convert for the case of 2:1 horizontal and 2:1 vertical. 

NV 

lfe?rHODDEF(void) 

HSv2_merged_upsample ( j_decompress_j?tr cinfo, 

S.1 JSAMPIMAGE input_buf, JDIMENSION in„row_group_ctr , 

JSAMPARRAY output_buf) 

fc J 

L.lr\y_upsample_ptr upsample = (my_upsample_ptr) cinf o->upsample; 
"register int y, cred, cgreen, cblue; 
int cb # cr; 

register JSAMPROW outptrO, outptrl; 
JSAMPROW inptrOO, inptrOl, inptrl, inptr2 ; 
JDIMENSION col; 

/* copy these pointers into registers if possible */ 

register JSAMPLE * range_limit = cinf o->sample_range_limit ; 

int * Crrtab = upsample->Cr_r_tab; 

int * Cbbtab = upsample->Cb_fc_tab; 

INT 3 2 * Crgtab = upsample- >Cr_g_tab; 

INT 3 2 * Cbgtab = upsample->Cb_g_tab; 

SHIFT_TEMPS 

inptrOO = input_buf [ 0 ] [ in_row_group_ctr*2 ] ; 
inptrOl = input_buf [0] [in_row_group_ctr*2 + 1] ; 
inptrl = input_buf [1] [in_row_group_ctr] ; 
inptr2 = input_buf [2 ] [in_row_group„ctr] ; 
outptrO = output_buf [0] ; 
outptrl = output_buf [1] ; 

/* Loop for each group of output pixels */ 

for (col = cinf o->output_width » 1; col > 0; col--) { 

/* Do the chroma part of the calculation */ 

cb - GETJSAMPLE ( *inptrl++ ) ; 

cr = GETJSAMPLE (* inptr2++ ) ; 

cred = Crrtab[cr]; 

cgreen = (int) RIGHT_SHIFT( Cbgtab [cb] + Crgtab [cr] , SCALEBITS); 
cblue = Cbbtab [ cb]; 

/* Fetch 4 Y values and emit 4 pixels */ 
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y = GETJSAMPLE (*inptrOO+J^^ 
outptrO [RGB_RED] = ran^^Amit 
outptrO [RGB__GREEN] = ran^^P.mit 

outptrO [RGB__BLUE] = range_limit 
outptrO += RGB_PIXELSIZE; 
y = GETJSAMPLE ( *inptr00++) ; 
outptrO [RGB_RED] = range_limit 
outptrO [RGB_GREEN] = range_limit 
outptrO [RGB_BLUE] = range_limit 
OUtptrO += RGB_PIXELSIZE; 
y = GETJSAMPLE (* inp tr 01++) ; 
outptrl [RGB_RED] = range_limit 
outptrl [RGB_GREEN] = range„limit 
outptrl [RGB_BLUE] = range_limit 
outptrl += RGB_PIXELSIZE; 
y = GETJSAMPLE (*inptr01 + + ) ; 
outptrl [RGB_RED] = range_limit 
outptrl [RGB_GREEN] = range_limit 
outptrl [RGB_BLUE] = range„limit 
outptrl += RGB_PIXELSIZE; 



Ey 
[y 
[y 



cred] ; 
cgreen] ; 
cblue] ; 



[y + 
(y + 
[y + 



[y 
[y 
[y 



[y 
[y 
[y 



cred] ; 
cgreen] ; 
cblue] ; 



cred] ; 
cgreen] ; 
cblue] ; 



cred] ; 
cgreen] ; 
cblue] ; 



* If image width is odd, do the last output column separately */ 
f (cinf o->output_width & 1) { 

cb = GETJSAMPLE ( *inptrl ) ; 

cr = GETJSAMPLE (* inptr2 ) ; 

cred = Crrtabtcr); 

cgreen = (int) RIGHT_SHIFT (Cbgtab [cb] +Crgtab[cr], SCALEBITS) ; 

cblue = Cbbtab[cb] ; 

y = GETJSAMPLE ( *inptr00) ; 

outptrO [RGB_RED] = range_limit [y + cred]; 
outptrO [RGB_GREEN] = range„limit [y + cgreen]; 
outptrO [RGB_BLUE] = range„limit [y + cblue]; 
y = GETJSAMPLE ( *inptr01 ) ; 

outptrl [RGB_RED] = range_limit [y + cred] ; 
outptrl [RGB_GRE EN] = range„limit [y + cgreen] ; 
outptrl [RGB_BLUE] = range_limit [y + cblue]; 



* E lj 

_* Module initialization routine for merged upsampling/color conversion. 

St 

f*- NB : this is called under the conditions determined by us e_merged_ups ample ( ) 
f* J in jdmaster.c. That routine MUST correspond to the actual capabilities 
y\ of this module; no safety checks are made here. 

Gl|)BAL(void) 

|jjhit_merged__ups ampler { j_decompress_ptr cinfo) 

my_upsample_ptr upsample; 

up sample = (my_upsample_ptr ) 

(*cinf o->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
SIZEOF (my_upsampler) ) ; 
c info ->ups ample = (struct jpeg_ups ampler *) upsample; 
upsample->pub. start_pass = start_pass_merged„upsample; 
upsample->pub.need_context_rows = FALSE; 

upsample ->out_row_width = cinf o->output_width * cinf o->out_ color_ components; 

if (cinf o->max_v_samp_f actor ==2) { 
"upsample->pub. upsample = merged_2v_upsample; 
upsample ->upmethod = h2v2_merged_ups ample; 
/* Allocate a spare row buffer */ 
upsample ->spare_row = (JSAMPROW) 

( *cinf o->mem->alloc__large) ( ( j_ common_ptr) cinfo, JPOOL_IMAGE, 
(size_t) (upsample->out_row_width * SIZEOF (JSAMPLE) )) ; 
} else { 

upsample->pub. upsample = merged__lv_upsample; 
upsample->upmethod = h2vl_merged_ upsample; 
/* No spare row needed */ 
upsample ->spare_row = NULL; 

} 

build_ycc_rgb_table (cinf o) ; 

} 

#endif /* UP SAM PLE_MERGING_SUP PORTED */ 
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/* 

* jdphuff.c 
* 

* Copyright (C) 1995-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains Huffman entropy decoding routines for progressive JPEG. 

* Much of the complexity here has to do with supporting input suspension. 

* If the data source module demands suspension, we want to be able to back 

* up to the start of the current MCU. To do this, we copy state variables 

* into local working storage, and update them back to the permanent 

* storage only upon successful completion of an MCU. 
*/ 

#define JPEG_INTERNALS 
# include " j include. h m 
# include "jpeglib.h" 

#include "jdhuff .h" /* Declarations shared with jdhuff .c */ 




#ifdef D_PROGRESSIVE_SUPPORTED 
/* 

* Expanded entropy decoder object for progressive Huffman decoding. 
* 

* The savable_state subrecord contains fields that change within an MCU, 

* but must not be updated permanently until we complete the MCU. 
*/ 

tygedef struct { 
;= tinsigned int EOBRUN; /* remaining EOBs in EOBRUN */ 

JJnt last_dc_val [MAX_COMPS_IN_SCAN] ; /* last DC coef for each component */ 

} QSavable_state ; 

/^JThis macro is to work around compilers with missing or broken 
*j structure assignment. You'll need to fix this code if you have 
*Zsuch a compiler and you change MAX_COMPS_IN_SCAN . 

#Jrndef NO_STRUCT_ASSIGN 

^define ASSIGN_STATE (dest , src) ((dest) = (src) ) 
felse 

Msf MAX_COMPS_IN_SCAN == 4 
^define ASSIGN_STATE (dest , src) \ 

Q ( (dest) .EOBRUN = (src) .EOBRUN, \ 

ft I (dest) .las t_dc_val [0] = (src) . last_dc_val [0] , \ 

l" n (dest) .las t_dc_val [1] = (src) . last_dc_val [1] , \ 

^ (dest) .last_dc_val [2] = (src) . last_dc_val [2 ] , \ 

f* (dest) .last_dc_val [3] = (src) . last_dc_val [3 ] ) 
*£ndif 
Midif 



typedef struct { 

struct jpeg_entropy_decoder pub; /* public fields */ 

/* These fields are loaded into local variables at start of each MCU. 
* In case of suspension, we exit WITHOUT updating them. 
*/ 

bitread__perm_state bitstate; /* Bit buffer at start of MCU */ 
savable_state saved; /* Other state at start of MCU */ 

/* These fields are NOT loaded into local working state. */ 

unsigned int restarts_to_go; /* MCUs left in this restart interval */ 

/* Pointers to derived tables (these workspaces have image lifespan) */ 
cL_derived_tbl * derived_tbls [NUM_HUFF_TBLS] ; 

d__derived_tbl * ac_derived__tbl ; /* active table during an AC scan */ 
} phuf f_entropy_de coder ; 

typedef phuf f_entropy_de coder * phuf f_entropy_ptr; 
/* Forward declarations */ 

METHODDEF (boolean) decode_mcu__DC_f irst JPP( ( j_decompress_ptr cinfo, 

JBLOCKROW *MCU__data) ) ; 
METHODDEF (boolean) decode_mcu__AC_f irst JPP( (j_decompress_ptr cinfo, 

JBLOCKROW *MCU_data) ) ; 
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METHODDEF (boolean) decode_mc 

JBL< 

METHODDEF (boolean) decode_mciS| 

JBLOCKROW *MCU_data) ) 



* refine JPP ( ( j_decompress_ptr cin£^^ 
W *MCU_data) ) ; j^B 
refine JPP( ( j_decompress_ptr cinS^^ 



/* 

* Initialize for a Huffman-compressed scan. 
V 

METHODDEF (void) 

start_pass_phuf f_decoder ( j_decompress_ptr cinfo) 
{ 

phuf f_entropy_ptr entropy = (phuf f_entropy_ptr) cinf o->entropy; 
boolean is_DC_band, bad; 
int ci, coefi, tbl ; 
int *coef_bit ptr; 
jpeg_component_inf o * compptr; 

is_DC_band = (cinf o->Ss == 0) ; 

/* Validate scan parameters */ 
bad = FALSE; 
if ( i s_DC_band ) { 
if (cinfo->Se != 0) 
bad = TRUE; 
} else { 

/* need not check Ss/Se < 0 since they came from unsigned bytes */ 
if (cinfo->Ss > cinfo->Se | | cinfo->Se >= DCTSIZE2) 

bad = TRUE; 
/* AC scans may have only one component */ 
ft if (cinf o->comps_in_scan != 1) 
« bad = TRUE; 

Olf (cinfo->Ah != 0) { 

j% /* Successive approximation refinement scan: must have Al = Ah-1. */ 

if (cinfo->Al ! = cinfo->Ah-l) 
N bad = TRUE; 

Jf 

"".if (cinfo->Al > 13) /* need not check for < 0 */ 

'€* bad = TRUE; 

pj* Arguably the maximum Al value should be less than 13 for 8 -bit precision, 

' " * but the spec doesn't say so, and we try to be liberal about what we 

- * accept. Note: large Al values could result in out-of -range DC 

U'h * coefficients during early scans, leading to bizarre displays due to 

* overflows in the IDCT math. But we won't crash. 
"V 

HjLf (bad) 

V§ ERREXIT4 (cinfo, JERR_BAD_PROGRESSION, 

cinfo->Ss, cinfo->Se, cinfo->Ah, cinfo->Al); 
»J/* Update progression status, and verify that scan order is legal, 
f] * Note that inter-scan inconsistencies are treated as warnings 

* not fatal errors ... not clear if this is right way to behave. 
V 

for (ci = 0; ci < cinf o->comps_in_scan; ci++) { 

int cindex = cinf o->cur_comp_inf o [ci] ->component_index; 
coef_bit_ptr = & cinf o->coef_bits [cindex] [0] ; 

if (!is_DC_band && coef_bit_ptr [0] < 0) /* AC without prior DC scan */ 

WARNMS2 (cinfo, JWRN_BOGUS_PROGRESSION, cindex, 0) ; 
for (coefi = cinfo->Ss; coefi <= cinfo->Se; coefi++) { 

int expected = (coef_bit__ptr [coefi ] < 0) ? 0 : coef_bit_ptr [coefi ] ; 

if (cinfo->Ah != expected) 
WARNMS2( cinfo, JWRN_BOGUS_PROGRESSION, cindex, coefi); 

coef_bit_ptr [coefi] = cinfo->Al; 

} 

} 

/* Select MCU decoding routine */ 
if (cinf o->Ah == 0) { 

if (is_DC_band) 

entropy- >pub . decode_mcu = decode_mcu_DC_f irst ; 

else 

entropy- >pub . decode_mcu = decode„mcu_AC_f irst ; 
} else { 

if (is_DC_band) 

entropy- >pub . decode_mcu = decode_mcu — DC_ref ine ; 
else 

entropy- >pub . decode_mcu = decode^ mcu_AC_ref ine ; 

} 
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for (ci = 0; ci < cinf o->cc^^^.in_scan; ci++) { ^fl^ 
compptr = cinf o->cur_com]^^Ho [ci] ; 

/* Make sure requested tSBR are present, and compute derivec^Hroles . 

* We may build same derived table more than once, but it's not expensive. 
*/ 

if (is_DC_band) { 

if (cinfo->Ah ==0) { /* DC refinement needs no table */ 
tbl = compptr->dc_tbl_no; 

jpeg_make_d_derived_tbl (cinfo, TRUE, tbl, 
& entropy- >derived_tbls [ tbl J ) ; 

} 

} else { 

tbl = compptr- >ac_tbl_no, • 

jpeg_make — d_derived_tbl (cinf o, FALSE, tbl, 
& entropy- >derived_ tbl s [ tbl ] ) ; 
/* remember the single active table */ 
entropy- >ac_derived_tbl = entropy- >derived_tbls [ tbl] ; 

} 

/* Initialize DC predictions to 0 */ 
entr opy-> saved. las t_dc_val [ci] = 0; 

) 

/* Initialize bi tread state variables */ 
entropy->bitstate .bits_lef t = 0; 

entropy- >bitstate.get_buf fer =0; /* unnecessary, but keeps Purify quiet */ 
entropy->pub. insuf f icient_data = FALSE; 

/* Initialize private state variables */ 
entropy- >saved. EOBRUN = 0; 

/* Initialize restart counter */ 
?*entropy->restarts_to_go = cinf o->res tar t_interval ; 

^r" Figure F.12: extend sign bit. 

*.J0n some machines, a shift and add will be faster than a table lookup, 
frildef AVO I D_TABLES 

#yifine HUFF_EXTEND(X,S) ( <x) < (l«((s)-l)) ? (x) + (((-l)«(s)) + 1) : (x) ) 
ft&lse 

^define HUFF_EXTEND(x,s) ( (x) < extend_test [s] ? (x) + extend_of f set [s ] : (x) ) 

fii 

s'ifatic const int extend_test [16] = /* entry nis2**(n-l) */ 

0, 0x0001, 0x0002, 0x0004, 0x0008, 0x0010, 0x0020, 0x0040, 0x0080, 
□ 0x0100, 0x0200, 0x0400, 0x0800, 0x1000, 0x2000, 0x4000 }; 

ilt&tic const int extend_of f set [16] = /* entry n is (-1 « n) +1 */ 
{ 0, ((-1)«1) + 1, <(-l)«2) + 1, (<-l)«3) + 1, <<-l)«4) + 1, 
<(-l)«5) + 1, ((-1)«6) + 1, <<-l)«7) + 1, <(-l)«8) + 1, 
<(-l)«9) + 1, ((-1)«10) + 1, ((-1)«11) + 1, {(-1)«12) + 1, 
<(-l)«13) + 1, (<-l)«14) + 1, ((-1)«15) + 1 }; 

#endif /* AVO I D_TABLE S */ 



/* 

* Check for a restart marker & resynchronize decoder. 

* Returns FALSE if must suspend. 
*/ 

LOCAL (boolean) 

process_restart ( j_decompress_ptr cinfo) 
{ 

phuf f_entropy_ptr entropy = (phuf f_entropy_ptr) cinf o->entropy; 
int ci; 

/* Throw away any unused bits remaining in bit buffer; */ 
/* include any full bytes in next_marker ' s count of discarded bytes */ 
cinf o->marker->discarded_bytes += entropy->bitstate.bits_lef t / 8; 
entropy->bitstate .bits_lef t = 0; 

/* Advance past the RSTn marker */ 

if (! (* cinfo ->marker->read_res tar t_marker) (cinfo)) 
return FALSE; 
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/* Re-initialize DC predic^^K to 0 */ 

for (ci = 0; ci < cinf o->coi^K_in_scan,* ci++) 

entropy- >saved. las t_dc_val [ci] = 0; 
/* Re-init EOB run count, too */ 
entropy->saved.EOBRUN = 0; 

/* Reset restart counter */ 

entropy->restarts_to_go = cinf o->restart — interval ; 

/* Reset out-of-data flag, unless read_restart_marker left us smack up 

* against a marker. In that case we will end up treating the next data 

* segment as empty, and we can avoid producing bogus output pixels by 

* leaving the flag set. 
*/ 

if (cinf o->unread_marker == 0) 

entropy->pub. insuf ficient_data = FALSE; 

return TRUE; 



} 



/* 

* Huffman MCU decoding. 

* Each of these routines decodes and returns one MCU's worth of 

* Huffman-compressed coefficients. 

* The coefficients are reordered from zigzag order into natural array order, 

* but are not dequantized. 
* 

* The i'th block of the MCU is stored into the block pointed to by 

* MCU_data[i] . WE ASSUME THIS AREA IS INITIALLY ZEROED BY THE CALLER. 

*fWe return FALSE if data source requested suspension. In that case no 
*3 changes have been made to permanent state. (Exception: some output 
gicoef f icients may already have been assigned. This is harmless for 
/^L spectral selection, since we'll just re-assign them on the next call. 
'^Successive approximation AC refinement has to be more careful, however.) 

-3. 

*iMCU decoding for DC initial scan (either spectral selection, 
or first pass of successive approximation). 

METHODDEF (boolean) 

dscode_mcu_DC_f irst ( j_decompress_ptr cinfo, JBLOCKROW *MCU_data) 

y 

Ojphuf f_entropy_ptr entropy = (phuf f_entropy_ptr) cinf o->entropy; 

■Llint Al = cinfo->Al; 

.Register int s, r; 

L.lint blkn, ci; 

~=JBLOCKROW block; 

==BITREAD_STATE_VARS ; 

savable__state state; 

d__derived_tbl * tbl; 

jpeg_component_inf o * compptr; 

/* Process restart marker if needed; may have to suspend */ 
if (cinf o->restart_interval) { 

if (entropy->restarts_to_go == 0) 
if (! process_restart (cinf o) ) 

return FALSE; 

} 

/* If we've run out of data, just leave the MCU set to zeroes. 
* This way, we return uniform gray for the remainder of the segment. 
*/ 

if (! entropy->pub. insuf f icient_data) { 
/* Load up working state */ 

BITREAD_LOAD_S TATE (cinf o, entropy- >bit state) ; 
ASSIGN_STATE (state, entropy- >saved) ; 

/* Outer loop handles each block in the MCU */ 

for (blkn = 0; blkn < cinf o->blocks_in_MCU; blkn++) { 
block = MCU_data[blkn] ; 
ci = cinf o->MCU_member ship [blkn] ; 
compptr = cinf o->cur_comp„inf o [ci] ; 
tbl = en t r opy- >derived_ tbl s [compptr ->dc_tbl_no] ; 
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/* Decode a single blo^^^ worth of coefficients */ 

/* Section F.2.2.1: decode the DC coefficient difference */ 
HUFF_DECODE(s, br_state, tbl, return FALSE, labell) ; 
if (s) { 

CHECK_BIT_BUFFER<br_state, s, return FALSE) ; 
r = GET_BITS(s) ; 
S = HUFF_EXTEND(r, s); 
} 

/* Convert DC difference to actual value, update last_dc_val */ 
s += state. las t_dc_val [ci] ; 
state. las t_dc_val [ci] = s; 

/* Scale and output the coefficient (assumes jpeg__ natural_order [0] =0) */ 
(*block) [0] = (JCOEF) (s « Al) ; 

} 

/* Completed MCU, so update state */ 
BITREAD_SAVE_STATE (cinf o, entropy->bitstate) ; 
ASSIGN_STATE ( entropy- > saved, state) ; 



/* Account for restart interval (no-op if not using restarts) */ 
entropy- > res tar ts_to_go — ; 

return TRUE; 




/* 

fjMCU decoding for AC initial scan (either spectral selection, 
^lor first pass of successive approximation) . 

MOTHODDEF (boolean) 

decode_mcu_AC_f irst ( j_decompress„ptr cinfo, JBLOCKROW *MCU_data) 

i5 -phuf f_entropy_ptr entropy = (phuf f_entropy_ptr) cinf o->entropy; 

^int Se = cinfo->Se; 

Jint Al = cinfo->Al; 

^register int s, k, r; 

"unsigned int EOBRUN; 

s JBLOCKROW block; 

LBITREAD_STATE_VARS ; 

=.d_derived_tbl * tbl; 

fly* Process restart marker if needed; may have to suspend */ 
if (cinf o->restart_interval) { 

if (entropy->restarts_to_go == 0) 
Cl if ( ! process_restart (cinf o) ) 
£1 return FALSE; 



/* If we've run out of data, just leave the MCU set to zeroes. 
* This way, we return uniform gray for the remainder of the segment. 
*/ 

if (! entropy->pub. insuf f icient_data) { 

/* Load up working state. 
* We can avoid loading/ saving bi tread state if in an EOB run. 
*/ 

EOBRUN = en tropy-> saved. EOBRUN; /* only part of saved state we need */ 

/* There is always only one block per MCU */ 

if (EOBRUN > 0) /* if it's a band of zeroes... */ 

EOBRUN--; /* ...process it now (we do nothing) */ 

else { 

BITREAD_LOAD_STATE (cinfo, entropy->bitstate) ; 

block = MCU_data[0]; 

tbl = entropy->ac__derived_tbl; 

for (k = cinfo->Ss; k <= Se; k++) { 
HUFF_DECODE(s, br_state, tbl, return FALSE, label2) ; 
r = s >> 4; 
S &= 15; 
if (s) { 

k += r; 

CHECK_BIT_BUFFER(br_state, s, return FALSE); 
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r = GET_BITS(s); 

S = HUFF_EXTEND(r, s);^^R 

/* Scale and output coe^^K:ient in natural (dezigzagged) oro^^F*/ 
(*block) [ jpeg_natural_order [k] ] = (JCOEF) (s « Al) ; 
} else { 

if (r == 15) { /* ZRL */ 

k += 15; /* skip 15 zeroes in band */ 

} else { /* EOBr, run length is 2*r + appended bits */ 

EOBRUN = 1 « r; 

if (r) { /* EOBr, r > 0 */ 

CHECK_BIT_BUFFER(br__state, r, return FALSE); 
r = GET_BITS(r) ; 
EOBRUN += r; 

} 

EOBRUN- - ; /* this band is processed at this moment */ 

break; /* force end-of-band */ 

} 

} 

} 

BITREAD_SAVE_STATE (cinf o , entropy->bit state) ; 

} 

/* Completed MCU, so update state */ 

entropy- >saved. EOBRUN = EOBRUN; /* only part of saved state we need */ 

} 

/* Account for restart interval (no-op if not using restarts) */ 
entropy->restarts_to_go-- ; 

return TRUE; 

} 

/m 

.^MCU decoding for DC successive approximation refinement scan. 
^Note: we assume such scans can be mul ti -component , although the spec 
"^jis not very clear on the point. 

3i 

ME&HODDEF (boolean) 

decode_mcu_DC_ref ine ( j_decompress_ptr cinfo, JBLOCKROW *MCU_data) 

5 phuf f_entropy_ptr entropy = (phuf f_entropy_j?tr) cinf o->entropy; 
|=:int pi = 1 << cinfo->Al; /* 1 in the bit position being coded */ 
kdnt blkn; 
^BLOCKROW block; 
[1BITREAD_STATE_VARS ; 

J*/* process restart marker if needed; may have to suspend */ 
LjLf (cinf o->restart_interval ) { 
r% if (entropy->restarts_to_go ==0) 
^~ if ( ! process_restart (cinf o) ) 
return FALSE; 

} 

/* Not worth the cycles to check insuf f icient_data here, 
* since we will not change the data anyway if we read zeroes. 
*/ 

/* Load up working state */ 

BITREAD_LOAD_STATE (cinfo, entropy->bitstate) ; 

/* Outer loop handles each block in the MCU */ 

for (blkn = 0; blkn < cinf o->blocks_in__MCU; blkn++) { 
block = MCU_data [blkn] ; 

/* Encoded data is simply the next bit of the two' s -complement DC value */ 
CHECK_BIT_BUFFER(br_state, 1, return FALSE) ; 
if (GET_BITS(1) ) 

(*block) [0] |= pi; 
/* Note: since we use |=, repeating the assignment later is safe */ 

} 

/* Completed MCU, so update state */ 
BITREAD_SAVE_STATE (cinfo, entropy- >bit state) ; 

/* Account for restart interval (no-op if not using restarts) */ 
entropy- >res tar ts_to_go-- ; 
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h. 3 



return TRUE; 

} 
/* 

* MCU decoding for AC successive approximation refinement scan. 
*/ 

METHODDEF ( bo o 1 e an ) 

dec ode_mcu_AC_re fine ( j_decompress_ptr cinfo, JBLOCKROW *MCU_data) 
{ 

phuf f_entropy_ptr entropy = (phuf f_entropy_ptr) cinf o->entropy; 
int Se = cinfo->Se; 

int pi = 1 << cinfo->Al; /* 1 in the bit position being coded */ 

int ml = (-1) « cinfo->Al; /* -1 in the bit position being coded */ 

register int s, k, r; 

unsigned int EOBRUN; 

JBLOCKROW block; 

JCOEFPTR thiscoef; 

BITREAD_STATE_VARS ; 

d_derived_tbl * tbl; 

int num_newnz ; 

int newnz_pos [DCTSIZE2 ] ; 

/* Process restart marker if needed; may have to suspend */ 
if (cinfo->restart_interval) { 

if (entropy->restarts_to_go == 0) 
if (! process_restart (cinfo) ) 

return FALSE; 

} 

If we've run out of data, don't modify the MCU. 

*/ 

Qif (! entropy->pub. insuf f icient_data) { 
/* Load up working state */ 

BITREAD_LOAD_STATE (cinfo, entropy- >bit state) ; 
EOBRUN = en tropy-> saved. EOBRUN; /* only part of saved state we need */ 

]U /* There is always only one block per MCU */ 
Hj block = MCU_data[0]; 

tbl = entropy->ac_derived_tbl ; 

/* if we are forced to suspend, we must undo the assignments to any newly 
* nonzero coefficients in the block, because otherwise we'd get confused 
^ * next time about which coefficients were already nonzero, 
ili * But we need not undo addition of bits to already-nonzero coefficients; 
^= * instead, we can test the current bit to see if we already did it. 

I*-* num_newnz = 0; 

/* initialize coefficient loop counter to start of band */ 
k = cinfo->Ss; 

if (EOBRUN ==0) { 

for {; k <= Se; k++) { 
HUFF_DECODE(s, br_state, tbl, gotoundoit, label3); 
r = s » 4 ; 
s &= 15; 
if (s) { 

if (s != 1) /* size of new coef should always be 1 */ 

WARNMS (cinfo, JWRN_HUFF_BAD_CODE) ; 
CHECK_BIT_BUFFER (br_state, 1, goto undoit) ; 
if (GET_BITS(1) ) 

s = pi; /* newly nonzero coef is positive */ 

else 

s = ml; /* newly nonzero coef is negative */ 

} else { 

if (r != 15) { 

EOBRUN = 1 « r; /* EOBr, run length is 2^r + appended bits */ 
if (r) { 

CHECK_BIT_BUFFER(br_state, r, goto undoit); 
r = GET_BITS(r) ; 
EOBRUN += r; 

} 

break; /* rest of block is handled by EOB logic */ 

} 

/* note s = 0 for processing ZRL */ 

} 
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/* Advance over al ready -n^^^ro coefs and r still-zero coefs , 

* appending correction ^Hto the nonzeroes. A correction ^^B~ s * 

* if the absolute value^^the coefficient must be increased. 
*/ 

do { 

thiscoef = *block + jpeg_natural_order [k] ; 
if (*thiscoef •= 0) { 

CHECK_BIT_BUFFER(br_state, 1, goto undoit) ; 
if (GET_BITS{1) ) { 

if (<*thiscoef & pi) == 0) { /* do nothing if already set it */ 
if (*thiscoef >= 0) 

*thiscoef += pi; 
else 

*thiscoef += ml; 
} 

} 

} else { 

if (--r < 0) 

break; /* reached target zero coefficient */ 

} 

k++; 

} while (k <= Se) ; 
if (s) { 

int pos = jpeg_natural_order [k] ; 

/* Output newly nonzero coefficient */ 

<*block) [pos] = (JCOEF) s; 

/* Remember its position in case we have to suspend */ 
newnz_pos [num_newnz++] = pos; 

} 

} 

} 

I — H 

T% if (EOBRUN > 0) { 

2? /* Scan any remaining coefficient positions after the end-of-band 

yl * (the last newly nonzero coefficient, if any) . Append a correction 

* bit to each already-nonzero coefficient. A correction bit is 1 
~; * if the absolute value of the coefficient must be increased. 

M */ 

«J f° r < '* k <= Se; k+ + ) { 

Zl thiscoef = *block + jpeg_natural_order [k] ; 

^ if (*thiscoef != 0) { 

Oj CHECK_BIT_BUFFER(br_state, 1, goto undoit) ; 
if (GET_BITS(1) ) { 

f if ((*thiscoef & pi) == 0) { /* do nothing if already changed it */ 

M if (*thiscoef >= 0) 

pi *thiscoef += pi; 

St else 

Ml * thiscoef += ml; 

%.l ) " 

=: ) 
P > 

/* Count one block completed in EOB run */ 
EOBRUN- - ; 

} 

/* Completed MCU, so update state */ 
BITREAD_SAVE_STATE { cinf o , entropy->bi ts tate) ; 

entropy- > saved. EOBRUN = EOBRUN; /* only part of saved state we need */ 

} 

/* Account for restart interval (no-op if not using restarts) */ 
entropy- >restarts_to_go — ; 

return TRUE; 

undoit: 

/* Re-zero any output coefficients that we made newly nonzero */ 
while (num_newnz > 0) 

( *block) [newnz_pos [--num_newnz] ] = 0; 

return FALSE; 

} 



/* 

* Module initialization routine for progressive Huffman entropy decoding. 
*/ 

GLOBAL (void) 
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jinit_phuf f_decoder ( j_decomg^^s_ptr cinfo) 
{ 

phuf f_entropy„ptr entropy; 
int *coef_bit_ptr ; 
int ci , i ; 



entropy = (phuf f_entropy_ptr) 

(*cinf o->mem->alloc_small) ( ( j_ common_j?tr ) cinfo, JPOOL_IMAGE, 
SIZEOF(phuff_entropy — decoder) ) ; 
cinfo->entropy = (struct jpeg_entropy_de coder *) entropy; 
entropy- >pub. star t__pass = s tar t_pa s s_phuff_de coder ; 

/* Mark derived tables unallocated */ 
for (i = 0; i < NUM_HUFF_TBLS ; i++) { 
entropy- >derived_tbls [i] = NULL; 

} 

/* Create progression status table */ 
cinfo->coef_bits = (int ( * ) [DCTSI2E2 ] ) 

(*cinfo->mem->alloc_small) ( ( j_common_ptr) cinfo, JPO0L_IMAGE, 
cinf o->num_components*DCTSIZE2*SIZEOF (int) ) ; 
coef_bit_ptr = & cinf o->coef_bits [0] [0] ; 
for (ci = 0; ci < cinf o->nun\_components; ci++) 
for (i = 0; i < DCTSIZE2; i++) 
*coef_bit_ptr++ = -1; 

} 

#endif /* D_PROGRESSIVE_SUPPORTED */ 
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* jdpostct.c 
* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains the decompression postprocessing controller. 

* This controller manages the upsampling, color conversion, and color 

* quantization/reduction steps; specifically, it controls the buffering 

* between upsample/color conversion and color quantization/reduction. 
* 

* If no color quantization/reduction is required, then this module has no 

* work to do, and it just hands off to the upsample/color conversion code. 

* An integrated upsample/convert/quantize process would replace this module 

* entirely. 
*/ 

#define JPEG_INTERNALS 
#include "j include. h" 
#include "jpeglib.h" 



/* Private buffer controller object */ 

typedef struct { 

struct jpeg_d_post_controller pub; /* public fields */ 

/* Color quantization source buffer: this holds output data from 
* the upsample/color conversion step to be passed to the quantizer. 
O* For two-pass color quantization, we need a full-image buffer; 
II* for one-pass operation, a strip buffer is sufficient. 

Ujvirt_sarray_ptr whole_image; /* virtual array, or NULL if one -pass */ 
JSAMPARRAY buffer; /* strip buffer, or current strip of virtual */ 

^JDIMENSION strip_height; /* buffer size in rows */ 

for two -pass mode only: */ 
JJDIMENSION starting_row; /* row # of first row in current strip */ 
^DIMENSION next_row; /* index of next row to fill /empty in strip */ 

} ~^my_j?o s t_c ontroller; 

Hi 

typedef my_post_controller * my_j?ost_ptr ; 

4*^ Forward declarations */ 
^gf'HODDEF (void) post_process_lpass 
\U JPP( ( j_decompress_ptr cinfo, 

\\ JSAMP IMAGE input_buf, JDIMENSION *in_row_group_ctr , 

JDIMENSION in_row_groups_avail, 

J SAMP ARRAY output_buf, JDIMENSION *out_row_ctr , 
rj JDIMENSION out_rows_avail) ) ; 

#Tfdef QUANT_2PASS_SUPPORTED 
METHODDEF (void) post_process_prepass 
JPP( ( j_decompress_ptr cinfo, 

J SAMP IMAGE input_buf, JDIMENSION *in_row_group_ctr , 
JDIMENSION in_row__groups_avail, 

JSAMPARRAY OUtput_buf, JDIMENSION *out_row_Ctr , 
JDIMENSION out_rows_avail) ) ; 
METHODDEF (void) post_process_2pass 
JPP ( ( j_decompress_ptr cinfo, 

JSAMPIMAGE input_buf, JDIMENSION *in_row_group_ctr , 
JDIMENSION in_row_groups_avail , 

JSAMPARRAY output_buf, JDIMENSION *out_row_ctr , 
JDIMENSION out_rows„avail) ) ; 

#endif 



/* 

* Initialize for a processing pass. 
*/ 

METHODDEF (void) 

start_pass_dpost ( j_decompress_ptr cinfo, J — BUF — MODE pass_mode) 
{ 

my_post_ptr post = (my__post_ptr ) cinfo->post; 

switch (pass_mode) { 
case JBUF_PASS_THRU: 

if (cinf o->quantize_colors) { 

/* Single-pass processing with color quantization. */ 
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post->pub.post_processJ*fca = post__process_lpass; 

/* We could be doing b^^K*ed- image output before starting ^^Bpass 

* color quantization; ^^^:hat case, jinit_d_jpost_controlle^^^6 not 

* allocate a strip buffer. Use the virtual -array buffer as workspace. 
*/ 

if (post->buf fer == NULL) { 
post->buffer = { *cinfo- >mem->access_virt_s array) 
( ( j_common_ptr) cinfo, post->whole_image, 
(JDIMENSION) 0, post->strip_height, TRUE); 

) 

} else { 

/* For single-pass processing without color quantization, 

* I have no work to do; just call the upsampler directly. 
*/ 

post->pub.post_process_ data = cinf o->upsample->upsample; 

} 

break; 

#ifdef QUANT_2PASS_SUPPORTED 
case JBUF_SAVE_AND_PASS: 

/* First pass of 2-pass quantization */ 
if (post->whole_image == NULL) 

ERREXIT (cinfo , JERR_BAD_BUFFER_MODE ) ; 
post->pub.post_process_data = post_process_prepass; 
break; 
case JBUF_CRANK_DEST: 

/* Second pass of 2-pass quantization */ 
if (post->whole_image == NULL) 

ERREXIT (cinfo , JERR_BAD_BUFFER.J10DE ) ; 
post->pub.post_process_data = post_process_2pass; 
break ; 

#endif /* QUANT_2PASS_SUPPORTED */ 
rde fault : 

1* ERREX IT (cinfo , JERR_BAD_BUFFER_J10DE ) ; 
break; 

m 

. f |)OSt->starting_row = post->next_ row = 0; 

Vj 

^Process some data in the one-pass (strip buffer) case. 

r^sThis is used for color precision reduction as well as one-pass quantization. 
HETHODDEF(void) 

post_process_lpass (j_decompress_ptr cinfo, 

^ J SAMP IMAGE input_buf, JDIMENSION *in_row_group_ctr , 

flj JDIMENSION in_row_groups„avail, 

l'\ JSAMPARRAY output__buf, JDIMENSION *out_row_ctr , 

JDIMENSION out_rows__avail) 

O 

ffiy. post_ptr post = (my_post_j?tr ) cinfo->post; 
"^JDIMENSION num_rows, max_rows ; 

/* Fill the buffer, but not more than what we can dump out in one go. */ 
/* Note we rely on the upsampler to detect bottom of image. */ 
max_rows = out_rows_avail - *out_row__ ctr ; 
if (max_rows > post->strip_height) 

max_rows = post->strip_height ; 
num_rows = 0 ; 

(*cinf o->upsample->ups ample) (cinfo, 

i npu t_bu f , i n_r ow_gr oup_c t r , i n_r ow__gr oups_ava i 1 , 

post->buf f er, &num_rows, max_rows) ; 
/* Quantize and emit data. */ 
( *cinf o->cquantize->color_quantize) (cinfo, 

post->buf f er , output_buf + *out_ row_ctr , (int) num_rows) ; 
*out_row_ctr += num_ rows; 



#ifdef QUANT_2PASS_SUPPORTED 
/* 

* Process some data in the first pass of 2-pass quantization. 
*/ 

METHODDEF (void) 

post_process_prepass ( j_decompress_ptr cinfo, 

JS AMP IMAGE input_buf, JDIMENSION *in_row_group_ctr , 
JDIMENSION in_row_groups__avail , 
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JSAMPARRAY out; 
JDIMENSION out. 



{ 



.U^^Duf, JDIMENSION *out_row_ctr, 



my_post_ptr post = (my_post_j?tr) cinfo->post; 
JDIMENSION old_next_row, nunt_rows; 

/* Reposition virtual buffer if at start of strip. */ 

if (post->next_row == 0) { 

post->buffer = { *cinf o->mem->access_virt_s array) 
( ( j_common__ptr) cinfo, post->whole_image, 
post->starting_row, post->strip_height , TRUE) ; 

} 

/* Upsample some data (up to a strip height's worth) . */ 

old_next_row - post->next_row; 

(*cinf o->upsample->upsample) (cinfo, 

input_buf, in_row_group_ctr, in_row_ groups_avail , 
post->buf f er , &post->next_row, post->strip_height) , 



/* Allow quantizer to scan new data. No data is emitted, */ 

/* but we advance out_row_ctr so outer loop can tell when we're done. */ 

if (post->next_row > old_next_row) { 

num_rows = post->next_row - old_next_row; 

(*cinf o->cquantize->color_quantize) (cinfo, post->buffer + old_next_row, 

(JSAMPARRAY) NULL, (int) num_rows) ; 
*out_row_ctr += num_rows; 

} 



/* Advance if we filled the strip. */ 
if (post->next_row >= post->strip_height ) { 
post->starting_row += post->strip_height; 
j*j post->next_row = 0; 




/4i 

W Process some data in the second pass of 2-pass quantization. 
*gJ'HODDEF<void) 

R©st_process_2pass ( j_decompress_ptr cinfo, 

llV JS AMP IMAGE input_buf, JDIMENSION *in_row_group„ctr , 

£ JDIMENSION in_row_groups_avail, 

Ll JSAMPARRAY output_buf, JDIMENSION *out_row_ctr , 

JDIMENSION out_rows_avail) 

nl n y , -P ost -P tr post = (my_post_ptr) cinfo->post; 
L_ "JDIMENSION num_rows, max_rows; 

Q/* Reposition virtual buffer if at start of strip. */ 

if (post->next_row == 0) { 
^ post->buffer = { *cinf o->mem->access_virt_sarray) 
( ( j_common_ptr) cinfo, post->whole_image, 
post->starting_row, post->strip_height , FALSE); 

} 

/* Determine number of rows to emit. */ 

nuirurows = post->strip_height - post->next_row; /* available in strip */ 
max_rows = out_rows_avail - *out_row_ctr ; /* available in output area */ 
if (num_rows > max_rows) 

num_rows = max_rows; 
/* We have to check bottom of image here, can't depend on upsampler. */ 
max_rows = cinf o->output_height - post->starting_row; 
if (num_rows > max_rows) 

num_rows = max_rows; 

/* Quantize and emit data. */ 

(*cinf o->cquantize->color_quantize) (cinfo, 

post->buffer + post->next_row, output_buf + *out_row_ ctr , 

( int ) num_rows ) ; 
*out_row_ctr += num__rows; 

/* Advance if we filled the strip. */ 

post->next_row += num__rows; 

if (post->next_row >= post->strip_height ) { 

post- >s tart ing_row += post->strip_height; 

post->next_row = 0; 

} 
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iendif /* QUANT_2PASS_SUPP0R' 




/* 

* Initialize postprocessing controller. 
*/ 

GLOBAL (void) 

jinit_d_j?ost_contr oiler { j_decompress_ptr cinfo, boolean need_full_buf f er) 
{ 

my_post_ptr post; 

post = (my__post__ptr) 

(*cinfo->mem->alloc_small) { ( j_common_ptr) cinfo, JP00L_IMAGE, 
SIZEOF(my_post_controller) ) ; 
cinfo->post = (struct jpeg_d_post_contr oiler *) post; 
post->pub. start_pass = start_pass__dpost; 

post->whole_image = NULL; /* flag for no virtual arrays */ 
post->buffer = NULL; /* flag for no strip buffer */ 

/* Create the quantization buffer, if needed */ 
if (cinf o->quantize_colors) { 

/* The buffer strip height is max_v_„samp_f actor , which is typically 

* an efficient number of rows for upsampling to return. 

* (In the presence of output rescaling, we might want to be smarter?) 
*/ 

post->strip_height = (JDIMENSION) cinf o->max_v_samp_f actor ; 
if (need_full_buffer) { 

/* Two-pass color quantization: need full-image storage. */ 
/* We round up the number of rows to a multiple of the strip height. */ 
#ifdef QUANT_2PASS_SUPP0RTED 

post->whole_image = { *cinf o->mem->request_virt_sarray) 
'J J ( ( j_common_ptr) cinfo, JPOOL_IMAGE, FALSE, 
HI cinf o->output_width * cinf o->out_color_components , 
~k (JDIMENSION) jround_up ( (long) cinf o->output_height , 

(long) post->strip_height) , 
S\ post->strip_height) ; 
#. ej.se 

ERREXIT (cinfo, JERR_BAD_BUFFER_MODE ) ; 
#J|ldif /* QUANT_2PASS_SUPP0RTED */ 
f=| } else { 

s '- /* One-pass color quantization: just make a strip buffer. */ 
s post->buffer = ( *cinf o->mem->alloc_sarray) 
Li ( ( j_common_ptr) cinfo, JP00L_IMAGE, 
L- cinf o->output_width * cinf o->out_color_components , 
post->strip_height) ; 

ni ) 

ys 

5 — s 
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/* 

* jdsample.c 

* Copyright (C) 1991-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains upsarapling routines. 
* 

* Upsampling input data is counted in "row groups". A row group 

* is defined to be (v_samp_f actor * DCT_scaled_size / min_DCT_scaled_size) 

* sample rows of each component. Upsampling will normally produce 

* max_v_samp_f actor pixel rows from each row group (but this could vary 

* if the upsampler is applying a scale factor of its own) . 
* 

* An excellent reference for image resampling is 

* Digital Image Warping, George Wolberg, 1990. 

* Pub. by IEEE Computer Society Press, Los Alamitos, CA. ISBN 0-8186-8944-7 
*/ 

#define JPEG_INTERNALS 
# include ■ j include .h" 
#include "jpeglib.h" 



/* Pointer to routine to upsample a single component */ 
typedef JMETHOD (void, upsample l_ptr , 

( j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY * output_data_ptr ) ) ; 

/* Private subobject */ 

t&edef struct { 
-Jitruct jpeg_upsampler pub; /* public fields */ 

~.}* Color conversion buffer. When using separate upsampling and color 
'41* conversion steps, this buffer holds one upsampled row group until it 
S.l * has been color converted and output . 

Note: we do not allocate any storage for component(s) which are full-size 
*J * ie do not need rescaling. The corresponding entry of color_ buf [ ] is 
J] * simply set to point to the input data array, thereby avoiding copying. 
?^ */ 

- ^xTSAMP ARRAY color_buf [MAX_COMPONENTS ] ; 

y/* Per-component upsampling method pointers */ 
Ijupsamplel^ptr methods [MAX_COMPONENTS] ; 

flint next_row_out ; /* counts rows emitted from color_buf */ 

""JDIMENSION rows_to_go; /* counts rows remaining in image */ 

rV* Height of an input row group for each component. */ 
^=int rowgroup_height [MAX_COMPONENTS] ; 

/* These arrays save pixel expansion factors so that int_expand need not 
* recompute them each time. They are unused for other upsampling methods. 
*/ 

UINT8 h_expand[MAX_COMPONENTS] ; 
UINT8 v_expand[MAX_COMPONENTS] ; 
} my_ups ampler ; 

typedef my_upsampler * my_upsample__ptr ; 



/* 

* Initialize for an upsampling pass. 
*/ 

METHODDEF (void) 

s tar t_pass_up sample ( j_ decompress_ptr cinfo) 
{ 

my_upsample_ptr upsample = (my_upsample_ptr) cinf o->upsample; 

/* Mark the conversion buffer empty */ 
upsample->next_row_out = cinf o->max_v_samp_f actor; 

/* Initialize total-height counter for detecting bottom of image */ 
upsample->rows_to_go = cinf o->output_height ; 



/* 
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* Control routine to do upsa^^.ng (and color conversion) . 

* In this version we upsamp^^Rch component independently. 

* We upsample one row group into the conversion buffer, then apply 

* color conversion a row at a time. 
*/ 

METHODDEF (void) 

sep_ups ample ( j_decompress_ptr cinfo, 

JSAMP IMAGE input_buf, JDIMENSION *in_row_group_ctr , 
JDIMENSION in_row_groups_avail, 

JSAMPARRAY output_buf, JDIMENSION *out_row_ctr , 
JDIMENSION out_rows_avail) 

{ 

my_upsample_ptr upsample = (my_upsample__ptr) c inf o - >ups ample; 
int ci; 

jpeg_component_inf o * compptr; 
JDIMENSION num_rows; 

/* Fill the conversion buffer, if it's empty */ 

if (upsample->next_row_ out >= cinf o->max_v_samp_f actor) { 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components; 
ci++, compptr++) { 
/* Invoke per-component upsample method. Notice we pass a POINTER 
* to color_buf [ci] , so that f ullsize_upsample can change it. 
*/ 

( *upsample->methods [ci] ) (cinfo, compptr, 
input_ buf [ci] + ( *in_ row_group_ctr * upsample- >rowgroup_height [ci] ) , 
upsample ->color_buf + ci) ; 
} 

upsample->next_row_out = 0; 

el 

U?* Co lor- convert and emit rows */ 

01 

~?{* How many we have in the buffer: */ 

"Mum_rows = (JDIMENSION) (cinf o->max_v_samp_f actor - upsample->next_row_out ) ; 
%jr* Not more than the distance to the end of the image. Need this test 
~i* in case the image height is not a multiple of max_v_samp_f actor : 

y,if (num_rows > upsample->rows_to - go) 
q3 num_rows = upsample->rows_to_go; 

z3 '/* And not more than what the client can accept: */ 
5 out_rows_avail -= *out_row_ctr ; 
Ldf (num__rows > out_rows_avail) 
num_rows = out_rows_avail ; 

f|J(*cinf o->cconvert->color_convert) (cinfo, upsample->color_buf , 
L_ 1 (JDIMENSION) upsample ->next_row_out , 

output_buf + *out_row_ctr , 
Ci (int) num_rows) ; 

Adjust counts */ 
* ou t_r ow_c t r + = num_r ows ; 
upsample ->rows_to_go -= num_rows; 
upsample ->next_row_out += num^rows ; 

/* When the buffer is emptied, declare this input row group consumed */ 
if (upsample->next_row_out >= cinf o->max_v_samp_factor) 
( * in_row_group_c tr ) + + ; 




/* 

* These are the routines invoked by sep_upsample to upsample pixel values 

* of a single component. One row group is processed per call. 
*/ 



/* 

* For full-size components, we just make color_buf [ci] point at the 

* input buffer, and thus avoid copying any data. Note that this is 

* safe only because sep_upsample doesn't declare the input row group 

* "consumed" until we are done color converting and emitting it. 
*/ 

METHODDEF (void) 

ful Is ize_ups ample ( j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY * output_data_ptr ) 

{ 

*output_ data_ptr = input_data; 
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/* 

* This is a no-op version used for "uninteresting - components. 

* These components will not be referenced by color conversion. 
*/ 

METHODDEF (void) 

noop_upsample ( j_decompress_ptr cinfo, jpeg_component_ inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY * output_data_ptr ) 

{ 

*output_data_ptr = NULL; /* safety check */ 

} 



/* 

* This version handles any integral sampling ratios. 

* This is not used for typical JPEG files, so it need not be fast. 

* Nor, for that matter, is it particularly accurate: the algorithm is 

* simple replication of the input pixel onto the corresponding output 

* pixels. The hi-falutin sampling literature refers to this as a 

* "box filter". A box filter tends to introduce visible artifacts, 

* so if you are actually going to use 3:1 or 4:1 sampling ratios 

* you would be well advised to improve this code. 
*/ 

METHODDEF (void) 

int_upsample { j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY * output_data_ptr ) 

{ 

f*ay_upsample_ptr upsample = (my_upsample_ptr ) cinf o->upsample; 

hfSAMPARRAY output_data = *output_data_ptr ; 

^register JSAMPROW inptr, outptr; 

□Register JSAMPLE invalue; 

^register int h; 

=eTSAMPROW outend; 

Sint h_expand , v_expand; 

t j4nt inrow, outrow; 

u 4h_expand = upsample->h_expand[compptr->component_index] ; 
pv_expand = upsample->v_expand[compptr->component_index] ; 

= inrow = outrow = 0; 

§_.while (outrow < cinf o->max_v_samp_f actor ) { 

/* Generate one output row with proper horizontal expansion */ 
jLJ inptr = input_data [ inrow] ; 
pj outptr = output_data [ outrow] ; 
L"s outend = outptr + cinf o->output_width; 
2* while (outptr < outend) { 

G invalue = *inptr++; /* don't need GET JSAMPLE ( ) here */ 

for (h = h_expand; h > 0; h--) { 
fa== *outptr++ = invalue; 

} 

} 

/* Generate any additional output rows by duplicating the first one */ 
if (v_expand > 1) { 

jcopy_sample_rows (output_data, outrow, output_data, outrow+1, 
v_expand-l, cinf o->output_width) ; 

} 

inrow++; 

outrow += v_expand; 

} 

} 



/* 

* Fast processing for the common case of 2:1 horizontal and 1:1 vertical. 

* It's still a box filter. 
*/ 

METHODDEF (void) 

h2vl_ups ample ( j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY * output_data_ptr ) 

{ 

JSAMPARRAY output_data = *output_data_ptr ; 
register JSAMPROW inptr, outptr; 
register JSAMPLE invalue; 
JSAMPROW outend; 
int inrow; 
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for (inrow = 0; inrow < ci 
inptr = input_data[ inrow 
outptr = output_data [inrow] ; 
out end = outptr + cinf o->output_width; 
while (outptr < outend) 

invalue = *inptr++; 

*outptr++ = invalue; 

*outptr++ = invalue; 

} 

} 



max_jv_samp_f actor ; inrow++) { 



don't need GETJSAMPLE ( ) here */ 



/* 

* Fast processing for the common case of 2:1 horizontal and 2:1 vertical. 

* It's still a box filter. 
*/ 

METHODDEF (void) 

h2v2_up sample ( j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY * output„data_j?tr ) 

{ 

JSAMPARRAY output_data = *output_data_ptr ; 
register JSAMPROW inptr, outptr; 
register JSAMPLE invalue; 
JSAMPROW outend; 
int inrow, outrow; 

inrow = outrow = 0; 

while (outrow < cinf o->max_v_samp_f actor) { 

inptr = input_data [inrow] ; 

outptr = output_data [outrow] ; 
dl outend = outptr + cinf o->output_ width; 
m while (outptr < outend) { 

%l invalue = *inptr++; /* don't need GETJSAMPLE ( ) here */ 
4^' *outptr++ = invalue; 
S.I *outptr++ = invalue; 

A > 

jcopy_sample_rows (output_data, outrow, output„data, outrow+1, 
Jj 1, cinf o->output_width) ; 

— s inrow++; 
H - outrow += 2; 
£ } 



^ Fancy processing for the common case of 2:1 horizontal and 1:1 vertical. 

H The upsampling algorithm is linear interpolation between pixel centers, 

^ also known as a "triangle filter". This is a good compromise between 

^ speed and visual quality. The centers of the output pixels are 1/4 and 3/4 

* of the way between input pixel centers . 
* 

* A note about the "bias" calculations: when rounding fractional values to 

* integer, we do not want to always round 0.5 up to the next integer. 

* If we did that, we'd introduce a noticeable bias towards larger values. 

* Instead, this code is arranged so that 0.5 will be rounded up or down at 

* alternate pixel locations (a simple ordered dither pattern) . 
*/ 

METHODDEF (void) 

h2vl_fancy_upsample ( j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JSAMPARRAY input__data, JSAMPARRAY * output_data_ptr ) 

{ 

JSAMPARRAY output_data = *output_data_ptr ; 
register JSAMPROW inptr, outptr; 
register int invalue; 
register JDIMENSION colctr; 
int inrow; 

for (inrow = 0; inrow < cinf o->max_v_samp_f actor ; inrow++) { 
inptr = input_data [inrow] ; 
outptr = output_data [ inrow] ; 
/* Special case for first column */ 
inva lue = GETJSAMPLE ( * inptr++ ) ; 
*outptr++ = (JSAMPLE) invalue; 

*outptr++ = (JSAMPLE) ((invalue * 3 + GETJSAMPLE (* inptr ) + 2) » 2); 
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for (colctr = compptr->d 
/* General case: 3/4 * 
invalue = GETJSAMPLE <* 
*outptr++ = (JS AMPLE) 
*outptr++ = (JS AMPLE) 

} 



colctr > 0; col 
further pixel 



ipled_width - 2; 
er pixel + 1/4 * 
+ ) * 3; 

((invalue + GETJSAMPLE ( inptr[ -2} ) + 
((invalue + GETJSAMPLE (*inptr) + 2) 



m 



) { 



i) » 

» 2); 



2); 



/* Special case for last column */ 
invalue = GETJSAMPLE (*inptr) ; 

*outptr++ = (JSAMPLE) ((invalue * 3 + GETJSAMPLE (inptr [-1] ) + 1) 
*outptr++ = (JSAMPLE) invalue; 



» 2); 



/* 

* Fancy processing for the common case of 2:1 horizontal and 2:1 vertical. 

* Again a triangle filter; see comments for h2vl case, above. 
* 

* It is OK for us to reference the adjacent input rows because we demanded 

* context from the main buffer controller (see initialization code) . 
*/ 

METHODDEF (void) 

h2v2_fancy_upsample ( j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JSAMPARRAY input__data, JSAMPARRAY * output_data_ptr ) 

( 

JSAMPARRAY output_data = *output_data_ptr ; 

register JSAMPROW inptrO, inptr 1, outptr; 
#if BITS_IN_JSAMPLE == 8 

register int thiscolsum, lastcolsum, nextcolsum; 
#else 

Heregister INT32 thiscolsum, lastcolsum, nextcolsum; 
#i#dif 

reregister JDIMENSION colctr; 
^int inrow, outrow, v; 

S.inrow = outrow = 0; 

..While (outrow < cinf o->max_v_samp_f actor) { 
"iJ for (v = 0; v < 2; v++) { 

J] /* inptrO points to nearest input row, inptr 1 points to next nearest */ 
=1*5 inptrO = inpu t_data[ inrow] ; 

— if (v == 0) /* next nearest is row above */ 

= inptrl = input_data [inrow-l] ; 

^ h else /* next nearest is row below */ 

inptrl = input_data [inrow+1] ; 
O outptr = output_data[outrow++3 ; 



/* Special case for first column */ 

thiscolsum = GETJSAMPLE (* inptr 0++) * 3 + GETJSAMPLE (* inptr 1++) ; 
nextcolsum = GETJSAMPLE (* inptr 0++) * 3 + GETJSAMPLE (* inptr 1++) ; 
*outptr++ = (JSAMPLE) ((thiscolsum * 4 + 8) » 4) ; 
*outptr++ = (JSAMPLE) ((thiscolsum * 3 + nextcolsum + 7) » 4) ; 
lastcolsum = thiscolsum; thiscolsum = nextcolsum; 

for (colctr = compptr- >downsampled_width - 2; colctr > 0; colctr--) { 
/* General case: 3/4 * nearer pixel + 1/4 * further pixel in each */ 
/* dimension, thus 9/16, 3/16, 3/16, 1/16 overall */ 
nextcolsum = GETJSAMPLE (* inptr 0++) * 3 + GETJSAMPLE (* inptr 1++) 
*outptr++ = (JSAMPLE) {(thiscolsum * 3 + lastcolsum + 8) » 4) 
*outptr++ = (JSAMPLE) {(thiscolsum * 3 + nextcolsum + 7) » 4) 
lastcolsum = thiscolsum; thiscolsum = nextcolsum; 

} 

/* Special case for last column */ 

*outptr++ = (JSAMPLE) {(thiscolsum * 3 + lastcolsum + 8) » 4) ; 
*outptr++ = (JSAMPLE) ((thiscolsum * 4 + 7) » 4) ; 

} 

inrow++; 



/* 

* Module initialization routine for upsampling. 
*/ 

GLOBAL (void) 

jinit_up sampler ( j_decompress_ptr cinfo) 
{ 
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my_upsample_ptr upsample; 
int ci; 

jpeg_component_inf o * comp^ 
boolean need_buffer, do.fanc^ . 
int h_in_group, v_in_group, h_out_group, v_out_group; 



upsample = (my_upsample_ptr) 

(*cinfo->mem->alloc_small) ( (j_common_ptr) cinfo, JPOOL_IMAGE, 
SIZEOF (my_upsampler) ) ; 
cinfo->upsample = (struct jpeg_ups ampler *) upsample; 
upsample->pub.start_pass = s tar t_pass_ups ample ; 
upsample->pub. upsample = sep_upsample; 

upsample->pub.need_context_rows = FALSE; /* until we find out differently */ 

if (cinfo->CCIR601_sampling) /* this isn't supported */ 
ERREXIT( cinfo, JERR_CCIR601_NOTIMPL) ; 

/* jdmainct.c doesn't support context rows when min_DCT_scaled_size = 1, 

* so don't ask for it. 
*/ 

do_fancy = cinf o->do_f ancy_up samp ling && cinfo ->min_DCT_scaled_size > 1; 

/* Verify we can handle the sampling factors, select per-component methods, 

* and create storage as needed. 
*/ 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components ; 
ci + +, compptr++) { 

/* Compute size of an "input group" after IDCT scaling. This many samples 
* are to be converted to max_h_samp_f actor * max_v_samp_f actor pixels. 
*/ 

ri h_in_group = ( compptr- >h_samp_f actor * compptr ->DCT_scaled_size) / 

cinf o->min_DCT_scaled_size; 
yj v_in„group = ( compptr- >v_samp_ factor * compptr->DCT_scaled_size) / 

01 cinf o->min_DCT_scaled_size; 
h_out_group = cinf o->max_h_samp_f actor ; 

^ v_out_group = cinf o->max_v_samp_f actor ; 

%■ upsample->rowgroup_height [ci] = v_in_group; /* save for use later */ 
need_buffer = TRUE; 
if ( ! compptr ->component_needed) { 

/* Don't bother to upsample an uninteresting component. */ 
rss upsample ->methods [ci] = noop_upsample; 
need_buffer = FALSE; 

2 } else if (h_in_group == h„out_group && v_in_group == v_out_group) { 
U'h /* Fullsize components can be processed without any work. */ 

L=. upsample- >methods [ci] = f ullsize_upsample ; 
y need_buffer = FALSE; 

[Ij } else if (h_in_group * 2 == h_out_group && 

v_in_group == v_out_group) { 
^: /* Special cases for 2hlv upsampling */ 
L3 if (do_fancy && compptr ->downsampled_width > 2) 
P=fc upsample->methods [ci] = h 2 vl_fancy_up sample ; 
else 

upsample->methods [ci] = h2vl_upsample; 
} else if (h_in_group * 2 == h_out_.gr oup && 
v_in_group * 2 == v_out_group) { 

/* Special cases for 2h2v upsampling */ 

if (do_fancy && compptr- >downsampled_width > 2) { 
ups ample ->methods [ci] = h2v2_fancy_ups ample; 
upsample->pub.need_context_rows = TRUE; 

} else 

upsample->methods [ci] = h2v2_ups ample; 
} else if ( (h_out_group % h_in_group) == 0 && 
(v_out_group % v_in_group) ==0) { 

/* Generic integral- factors upsampling method */ 

upsample- >me thods [ci] = int__ upsample ; 

upsample->h_expand[ci] = (UINT8) (h_out_group / h_in_group) ; 
upsample->v_expand[ci] = (UINT8) (v_out_group / v_in_group) ; 

} else 

ERREXIT (cinfo, JERR„FRACT_SAMPLE_NOTIMPL) ; 
if (need_buf f er) { 

upsample->color_buf [ci] = ( *cinf o->mem->alloc_sarray) 
( ( j_common_ptr) cinfo, JP00L_IMAGE, 
(JDIMENSION) jround_up( (long) cinf o->output_width, 

(long) cinf o->max_h_samp_f actor) , 
(JDIMENSION) cinf o->max_v_samp_ factor) ; 

} 

} 

} 
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/* 

* jdtrans.c 
* 

* Copyright (C) 1995-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains library routines for transcoding decompression, 

* that is, reading raw DCT coefficient arrays from an input JPEG file. 

* The routines in jdapimin.c will also be needed by a transcoder. 
*/ 

#define JPEG_INTERNALS 
#include "j include . h" 
#include "jpeglib.h" 



/* Forward declarations */ 
LOCAL(void) trans dec ode_master_s elect ion JPP( ( j_decompress_ptr cinfo)); 



/* 

* Read the coefficient arrays from a JPEG file. 

* jpeg_read__header must be completed before calling this . 
* 

* The entire image is read into a set of virtual coefficient-block arrays, 

* one per component. The return value is a pointer to the array of 

* virtual-array descriptors. These can be manipulated directly via the 

* JPEG memory manager, or handed off to jpeg_write_coef f icients ( ) . 

* To release the memory occupied by the virtual arrays, call 

* jpeg_f inish„decompress { ) when done with the data. 

^An alternative usage is to simply obtain access to the coefficient arrays 

during a buf f ered-image-mode decompression operation. This is allowed 
Rafter any jpeg_f inish_output ( ) call. The arrays can be accessed until 
u= 3P e 9-f inish_ decompress () is called. (Note that any call to the library 
^may reposition the arrays, so don't rely on access_virt_barray { ) results 
*s to stay valid across library calls.) 

/^Returns NULL if suspended. This case need be checked only if 
a suspending data source is used. 

i# 

GLOBAL ( j virt_barray_ptr * ) 

ftleg_read_coef f icients { j_decompress_ptr cinfo) 

«af (cinfo->global_state == DSTATE_READY ) { 
IU /* First call: initialize active modules */ 
Sj tr an s dec ode_master_s elect ion (cinfo) ; 
cinf o->global_state = DSTATE_RDCOEFS ; 

□if (cinfo->global_state == DSTATE_RDCOEFS ) { 
/* Absorb whole file into the coef buffer */ 
for (;;) { 
int retcode; 

/* Call progress monitor hook if present */ 
if (cinf o->progress != NULL) 
(*cinf o->progress->progress_monitor) ( ( j_common_ptr ) cinfo); 
/* Absorb some more input */ 

retcode = ( *cinf o->inputctl->consume_input ) (cinfo); 

if (retcode == JPEG_SUSPENDED) 
return NULL; 

if (retcode == JPEG_REACHED_EOI ) 
break; 

/* Advance progress counter if appropriate */ 
if (cinf o->progress != NULL && 

(retcode == JPEG_ROW_COMPLETED || retcode == JPEG_REACHED_SOS ) ) { 
if ( ++cinf o->progress->pass_counter >= cinf o->progress->pass_ limit) { 
/* startup underestimated number of scans; ratchet up one scan */ 
cinf o->progress->pass_limit += (long) cinf o-> tot al_iMCU_rows ; 

} 

} 

} 

/* Set state so that jpeg_f inish_decompress does the right thing */ 
cinf o->global_state = DSTATE_STOPPING; 

} 

/* At this point we should be in state DSTATE_STO P P I NG if being used 

* standalone, or in state DSTATE_BUFIMAGE if being invoked to get access 

* to the coefficients during a full buf f ered-image-mode decompression. 
*/ 
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if ( (cinfo->global_state =^KTATE_STOPPING || 

cinfo->global_state = ^^BpATE_BUF IMAGE ) && cinf o->buf f eredi^Bre) { 
return cinf o->coef ->coef Jf^ays ; 

) 

/* Oops, improper usage */ 

ERREXIT1 (cinfo, JERR_BAD_STATE , cinf o->global_state) , 
return NULL; /* keep compiler happy */ 

} 



/* 

* Master selection of decompression modules for transcoding. 

* This substitutes for jdmaster.c's initialization of the full decompressor. 
*/ 

LOCAL (void) 

trans decode_master_s election ( j__ decompress_ptr cinfo) 
{ 

/* This is effectively a buffered- image operation. */ 
cinf o->buf f ered_image = TRUE; 

/* Entropy decoding: either Huffman or arithmetic coding. */ 
if (cinf o->arith_code) { 

ERREXIT( cinfo, J ERR_ARI TH_NOT I MPL ) ; 
} else { 

if (cinf o - >pr ogres si ve_mode) { 
#ifdef D_PROGRESSIVE_SUPPORTED 

j init_phuf f_decoder (cinf o) ; 

#else 

ERREXIT (cinf o , JERR_NOT_COMPILED) ; 

#endif 

p } else 

- j init_huf f_decoder (cinf o) ; 

Always get a full-image coefficient buffer. */ 
^ init_d_coef_cont roller (cinf o, TRUE) ; 

-.fV* We can now tell the memory manager to allocate virtual arrays. */ 
^§*cinfo->mem->realize_virt_arrays) ( ( j_ common_ptr) cinfo); 

HY* Initialize input side of decompressor to consume first scan. */ 

* "(*cinfo->inputctl->start_input_pass) (cinfo) ; 

Ly* Initialize progress monitoring. */ 
J=4f (cinf o->progress != NULL) { 
^ int nscans; 

fsj /* Estimate number of scans to set pass_limit. */ 
--.! if (cinf o->pr ogres si ve_mode) { 

/* Arbitrarily estimate 2 interleaved DC scans + 3 AC scans / component . */ 
U>J nscans = 2 + 3 * cinf o->num_components; 
r=| } else if (cinf o->inputctl->has_multiple_scans) { 

~ T /* For a nonprogressive multiscan file, estimate 1 scan per component. */ 
nscans = cinf o->num_components ; 

} else { 

nscans = 1; 

} 

cinf o->progress->pass_counter = OL; 

cinfo->progress->pass_limit = (long) cinf o->total_iMCU_rows * nscans; 
cinfo->progress->completed_passes = 0; 
cinf o->progress->total_passes = 1; 

} 

} 
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/* 



* 



* jerror.c 





* Copyright (C) 1991-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 



* This file contains simple error-reporting and trace-message routines. 

* These are suitable for Unix-like systems and others where writing to 

* stderr is the right thing to do. Many applications will want to replace 

* some or all of these routines. 



* If you define USE_WINDOWS_MESSAGEBOX in jconfig.h or in the makefile, 

* you get a Windows -specif ic hack to display error messages in a dialog box. 

* It ain't much, but it beats dropping error messages into the bit bucket, 

* which is what happens to output to stderr under most Windows C compilers. 



* These routines are used by both the compression and decompression code. 



/* this is not a core library module, so it doesn't define JPEG_INTERNALS */ 
tinclude * j include . h" 
tinclude "jpeglib.h" 
tinclude ■ j vers ion. h" 
tinclude " j error. h" 

tifdef USE_WIND0WS_MESSAGEBOX 
tinclude <windows . h> 
tendif 

tifndef EXIT_FAILURE /* define exit{) codes if not provided */ 

tglfine EXIT_FAILURE 1 
t,endi f 



J*j Create the message string table. 

"*IWe do this from the master message list in j error, h by re-reading 
£j jerror.h with a suitable definition for macro JMESSAGE . 

Y- The message table is made an external symbol just in case any applications 
]*? want to refer to it directly. 

fifdef NEED_SHORT_EXTERNAL_NAMES 

fdefine jpeg_std_message_ table jMsgTable 

tendif 

#8efine JMESSAGE ^code, string) string , 

const char * const jpeg_std_message_table [ 3 = { 

tinclude "jerror.h" 

rlNULL 

>;* 



/* 

* Error exit handler: must not return to caller. 



* Applications may override this if they want to get control back after 

* an error. Typically one would longjmp somewhere instead of exiting. 

* The setjmp buffer can be made a private field within an expanded error 

* handler object. Note that the info needed to generate an error message 

* is stored in the error object, so you can generate the message now or 

* later, at your convenience. 

* You should make sure that the JPEG object is cleaned up (with jpeg_abort 

* or jpeg_destroy) at some point. 
*/ 

METHODDEF (void) 

error_exit ( j_common_ptr cinfo) 
{ 

/* Always display the message */ 

( *cinf o->err->output_message) (cinfo) ; 

/* Let the memory manager delete any temp files before we die */ 
jpeg_des troy (cinfo) ; 

exit ( EXIT_FAILURE) ; 

} 



* 



* 



* 




* 
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/* 

* Actual output of an error ^W^trace message. 

* Applications may override this method to send JPEG messages somewhere 

* other than stderr. 
★ 

* On Windows, printing to stderr is generally completely useless, 

* so we provide optional code to produce an error-dialog popup. 

* Most Windows applications will still prefer to override this routine, 

* but if they don't, it'll do something at least marginally useful. 
* 

* NOTE: to use the library in an environment that doesn't support the 

* C stdio library, you may have to delete the call to fprintf () entirely, 

* not just not use this routine. 
*/ 

METHODDEF (void) 

output_message { j_common_ptr cinfo) 
{ 

char buffer [JMSG_LENGTH_MAX] ; 
/* Create the message */ 

(*cinf o->err->f ormat_message) (cinfo, buffer) ; 

#ifdef USE_WINDOWS_MESSAGEBOX 

/* Display it in a message dialog box */ 

MessageBox(GetActiveWindow( ) , buffer, "JPEG Library Error", 
MB_OK | MB_ICONERROR) ; 

#else 

/* Send it to stderr, adding a newline */ 
fprintf (stderr , "%s\n", buffer); 
#endif 

Decide whether to emit a trace or warning message. 
^jmsg_level is one of: 

.tl -1: recoverable corrupt-data warning, may want to abort. 

0: important advisory messages (always display to user). 
'4j 1: first level of tracing detail. 

A] 2,3,...: successively more detailed tracing messages. 

5 * f An application might override this method if it wanted to abort on warnings 
s* or change the policy about which messages to display. 

iK^THODDEF (void) 

e~mit_message ( j_common_ptr cinfo, int msg_level) 

d 

J'^struct jpeg_error„mgr * err = cinfo->err; 
p^if (msg_level < 0) { 

~= /* It's a warning message. Since corrupt files may generate many warnings, 

* the policy implemented here is to show only the first warning, 

* unless trace_level >= 3 . 
*/ 

if (err->num_warnings == 0 | | err->trace_level >= 3) 

( *err->output_message) (cinfo); 
/* Always count warnings in num_warnings . */ 
err->num_warnings++ ; 
} else { 

/* It's a trace message. Show it if trace_level >= msg_level. */ 
if (err->trace_level >= msg_level) 
( * err->output_message) (cinfo); 

} 



/* 

* Format a message string for the most recent JPEG error or message. 

* The message is stored into buffer, which should be at least JMSG_LENGTH_MAX 

* characters. Note that no '\n' character is added to the string. 

* Few applications should need to override this method. 
*/ 

METHODDEF (void) 

forma t_mes sage ( j_common_ptr cinfo, char * buffer) 
{ 

struct jpeg_error_mgr * err = cinfo->err; 
int msg_code = err->msg_code; 
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const char * msgtext = NUL 
const char * msgptr; 
char ch; 

boolean isstring; 

/* Look up message string in proper table */ 

if (msg_code > 0 && msg_code <= err->last_jpeg_message) { 

msgtext = err-> jpeg_message__t able [msg_c ode] ; 
} else if (err->addon_message_table != NULL && 
msg_code >= err->f irst_addon__message && 
msg_code <= err-> las t_addon_mes sage) { 
msgtext - err- >addon_message_t able [msg_code - err->f irst_addon_message] ; 

} 

/* Defend against bogus message number */ 
if (msgtext == NULL) { 

err- >msg_parm . i [ 0 ] = msg_code ; 

msgtext = err-> jpeg_message_table [0] ; 

} 

/* Check for string parameter, as indicated by %s in the message text */ 
isstring = FALSE; 
msgptr = msgtext; 

while ((ch = *msgptr++) != '\0') { 
if (ch == '%' ) { 

if (*msgptr == 's') isstring = TRUE; 
break; 

} 

} 

/* Format the message into the passed buffer */ 
p if (isstring) 

=f sprintf (buf f er , msgtext, err->msg_parm. s) ; 
delse 

fyz sprintf (buf fer, msgtext, 

^ err->msg_parm. i [0] , err->msg„parm. i [1] , 

'iJ err->msg_parm. i [2] , err-srnsg^parm. i [3 ] , 

%j err->msg_parm. i [4] , err->msg_parm. i [ 5 ] , 

z : err->msg_parm. i [6] , err->msg__parm. i [7 ] ) ; 

& Reset error state variables at start of a new image. 
^ This is called during compression startup to reset trace/error 
^'processing to default state, without losing any application-specific 
1*1 method pointers. An application might possibly want to override 
ffl this method if it has additional error processing state. 

lg§THODDEF (void) 

raset_error_mgr ( j_common_ptr cinfo) 
H 

cinfo->err->num_warnings = 0; 

/* trace_level is not reset since it is an application-supplied parameter */ 
cinfo->err->msg_code =0; /* may be useful as a flag for "no error" */ 

} 




/* 

* Fill in the standard error -handling methods in a jpeg__ error_mgr object. 

* Typical call is: 

* struct jpeg_compress_struct cinfo; 

* struct jpeg_error_mgr err; 
* 

* cinfo. err = jpeg_std_error (&err) ; 

* after which the application may override some of the methods. 
*/ 

GLOBAL ( struct jpeg_error_mgr *) 
jpeg_std_error (struct jpeg_error_mgr * err) 
{ 

err->error_exi t = error_exit; 
err->emit_message = emit_message; 
err->output_message = output_message ; 
err->f ormat_message = f ormat^ mess age; 
err->reset_error_mgr = reset_error_mgr ; 

err->trace_level =0; /* default = no tracing */ 

err->num_warnings =0; /* no warnings emitted yet */ 
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err->msg_code = 0; /^^fiy be useful as a flag for "no err^j 

t^PFnters */ 



/* Initialize message tabled 

err->jpeg_message_table = jpeg_std_jnessage_ table; 
err->last_jpeg_message = (int) JMSG_LASTMSGCODE - 1; 

err->addon_message_table = NULL; 

err->f irst_addon_message =0; /* for safety */ 

err->last_addon_message = 0; 

return err; 



} 



/* 

* jfdctflt.c 
* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains a floating-point implementation of the 

* forward DCT (Discrete Cosine Transform) . 
* 

* This implementation should be more accurate than either of the integer 

* DCT implementations. However, it may not give the same results on all 

* machines because of differences in roundoff behavior. Speed will depend 

* on the hardware's floating point capacity. 
* 

* A 2-D DCT can be done by 1-D DCT on each row followed by 1-D DCT 

* on each column. Direct algorithms are also available, but they are 

* much more complex and seem not to be any faster when reduced to code. 
* 

* This implementation is based on Arai, Agui , and Nakajima's algorithm for 

* scaled DCT. Their original paper (Trans. IEICE E-71 ( 11) : 1095) is in 

* Japanese, but the algorithm is described in the Pennebaker & Mitchell 

* JPEG textbook (see REFERENCES section in file README) . The following code 

* is based directly on figure 4-8 in P&M. 

* While an 8-point DCT cannot be done in less than 11 multiplies, it is 

* possible to arrange the computation so that many of the multiplies are 

* simple scalings of the final outputs. These multiplies can then be 

* folded into the multiplications or divisions by the JPEG quantization 

* table entries. The AA&N method leaves only 5 multiplies and 29 adds 

* to be done in the DCT itself. 

* The primary disadvantage of this method is that with a fixed-point 
^implementation, accuracy is lost due to imprecise representation of the 
'*f scaled quantization values. However, that problem does not arise if 
iiwe use floating point arithmetic. 

& 

#^Sfine JPEG_INTERNALS 
#'i|iclude " j include .h" 
tihclude "jpeglib.h" 

include "jdct-h" /* Private declarations for DCT subsystem */ 

#&|def DCT_FLOAT_S UP PORTED 



s *I This module is specialized to the case DCTSIZE = 8. 
#ii DCTSIZE != 8 

^Sorry, this code only copes with 8x8 DCTs . /* deliberate syntax err */ 
fghdif 



/* 

* Perform the forward DCT on one block of samples. 
*/ 

GLOBAL (void) 

jpeg_fdct_float (FAST_FLOAT * data) 
{ 

FAST_FLOAT tmpO , tmpl, tmp2 , tmp3, tmp4 , tmp5, tmp6, tmp7 ; 
FAST_FLOAT tmplO, tmpll, tmpl2, tmpl3; 
FAST_FLOAT zl, z2, z3 , z4, z5, zll, zl3; 
FAST_FLOAT * dataptr; 
int ctr; 

/* Pass 1: process rows. */ 
dataptr = data; 

for (ctr = DCTSIZE-1; ctr >= 0; ctr--) { 



tmpO 




dataptr [0] 


+ 


dataptr [7] 


tmp7 




dataptr [0] 




dataptr [7] 


tmpl 




dataptr [1] 


+ 


dataptr [6] 


tmp6 




dataptr [1] 




dataptr [6] 


tmp2 




dataptr [2] 


+ 


dataptr [5] 


tmp5 




dataptr [2] 




dataptr [5] 


tmp3 




dataptr [33 


+ 


dataptr [4] 


tmp4 




dataptr [3] 




dataptr [4] 


/* Even part */ 
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tmplO = tmpO + tmp3 

tmpl3 = tmpO - tmp3 

tmpll = tmpl + tmp2 

tmp!2 = tmpl - tmp2 



se 2 



dataptr [0] = tmplO + tmpll; /* phase 3 */ 

dataptr [4] = tmplO - tmpll; 

zl = <tmpl2 + tmpl3) * ( (FAST_FLOAT) 0.707106781); 

dataptr[2] = tmpl3 + zl; /* phase 5 */ 

dataptr [6] = tmpl3 - zl; 



c4 



/* Odd part */ 

tmplO = tmp4 + tmp5 
tmpll = tmp5 + tmp6 
tmpl 2 = tmp6 + tmp7 



/* phase 2 */ 



/* The rotator is modified from fig 4-8 to avoid extra negations 

z5 = (tmplO - tmpl2) * ( (FAST_FLOAT) 0.382683433); /* c6 */ 

z2 = ( (FAST_FLOAT) 0.541196100) * tmplO + z5; /* c2-c6 */ 

z4 = ( (FAST_FLOAT) 1.306562965) * tmpl 2 + z5; /* c2+c6 */ 

z3 = tmpll * ( (FAST_FLOAT) 0.707106781); /* c4 */ 



zll 
zl3 



tmp7 + z3 ; 
tmp7 - z3 ; 



dataptr [ 5 ] 
dataptr [3] 
dataptr [1] 
=s . dataptr [7] 



zl3 + z2; 
zl3 - z2; 
zll + z4; 
zll - z4; 



/* phase 5 */ 



/* phase 6 */ 



dataptr += DCTSIZE; 



/* advance pointer to next row */ 



11* Pass 2: process columns. 



dataptr = 
Ilor (ctr 
ih tmpO = 
tmp7 = 
tmpl = 
tmp6 = 
L tmp2 = 
s tmp5 = 
| tmp3 = 
5 tmp4 = 



data ; 
= DCTS 
datapt; 
datapt 
datapt 
datapt 
datapt 
datapt 
datapt: 
datapt: 



IZE-1; ctr >= 
r [DCTSIZE*0] 
r [DCTSIZE*0] 
r [DCTSIZE*1] 
r [DCTSIZE*1] 
r [DCTSIZE*2] 
r [DCTSIZE*2] 
r [DCTSIZE*3] 
r [DCTSIZE*3] 



0; ctr-- 

+ dataptr 

- dataptr 
+ dataptr 

- dataptr 
+ dataptr 

- dataptr 
+ dataptr 

- dataptr 



) { 

[DCTSIZE*7] 
[DCTSIZE*7] 
[DCTSIZE*6] 
[DCTSIZE*6] 
[DCTSIZE*5] 
[DCTSIZE*5] 
[DCTSIZEM] 
[DCTSIZE*4] 



/* Even part */ 

tmplO = tmpO + tmp3; 

tmpl3 = tmpO - tmp3; 

tmpll = tmpl + tmp2; 

tmpl2 = tmpl - tmp2 ; 

dataptr [DCTSIZE* 0] = 
dataptr [DCTSIZE* 4] = 



/* phase 2 */ 



tmplO + tmpll; 
tmplO - tmpll; 



/* phase 3 



zl = (tmpl2 + tmpl3) * ( (FAST_FLOAT) 0.707106781); 
dataptr [DCTSIZE*2] = tmpl 3 + zl; /* phase 5 */ 
dataptr [DCTSIZE*6] = tmpl 3 - zl; 



/* Odd part */ 

tmplO = tmp4 + tmp5 
tmpll = tmp5 + tmp6 
tmpl 2 = tmp6 + tmp7 



/* phase 2 */ 



c4 



/* The rotator is modified from fig 4-8 to avoid extra negations 

z5 = (tmplO - tmpl2) * ( (FAST_FLOAT) 0.382683433); /* c6 */ 

z2 = ( (FAST_FLOAT) 0.541196100) * tmplO + z5; /* c2-c6 */ 

z4 = ( (FAST_FLOAT) 1.306562965) * tmpl 2 + z5; /* c2+c6 */ 

z3 = tmpll * ( (FAST_FLOAT) 0.707106781); /* c4 */ 



zll = tmp7 + z3 ; 
zl3 = tmp7 - z3; 

dataptr [DCTSIZE*5] 
dataptr [DCTSIZE*3] 



/* phase 5 



zl3 + z2; /* phase 6 */ 
zl3 - z2; 



dataptr [DCTSIZE*1] = zll 
dataptr [DCTSIZE* 7] = zll 



dataptr ++; /* advance pointer to next column */ 

} 

} 

#endif /* DCT_FLOAT_SUP PORTED */ 
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* jfdctfst.c 
* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains a fast, not so accurate integer implementation of the 

* forward DCT (Discrete Cosine Transform) . 
* 

* A 2-D DCT can be done by 1-D DCT on each row followed by 1-D DCT 

* on each column. Direct algorithms are also available, but they are 

* much more complex and seem not to be any faster when reduced to code. 
* 

* This implementation is based on Arai, Agui, and Nakajima's algorithm for 

* scaled DCT. Their original paper (Trans. IEICE E-71 (11) : 1095) is in 

* Japanese, but the algorithm is described in the Pennebaker & Mitchell 

* JPEG textbook (see REFERENCES section in file README) . The following code 

* is based directly on figure 4-8 in P&M. 

* While an 8-point DCT cannot be done in less than 11 multiplies, it is 

* possible to arrange the computation so that many of the multiplies are 

* simple scalings of the final outputs. These multiplies can then be 

* folded into the multiplications or divisions by the JPEG quantization 

* table entries. The AA&N method leaves only 5 multiplies and 29 adds 

* to be done in the DCT itself. 

* The primary disadvantage of this method is that with fixed-point math, 

* accuracy is lost due to imprecise representation of the scaled 

* quantization values. The smaller the quantization table entry, the less 

* precise the scaled value, so this implementation does worse with high- 

* quality-setting files than with low-quality ones. 

U 

#define JPEG_INTERNALS 
include " j include . h " 
#^Eficlude "jpeglib.h" 

fefnclu^e "jdct.h" /* Private declarations for DCT subsystem */ 

#|tdef DCT_IFAST_SUPPORTED 

;*=? This module is specialized to the case DCTSIZE = 8. 
#f£ DCTSIZE != 8 

C3>orry, this code only copes with 8x8 DCTs . /* deliberate syntax err */ 
fendif 

,f*= Scaling decisions are generally the same as in the LL&M algorithm; 
5f see jfdctint.c for more details. However, we choose to descale 
(right shift) multiplication products as soon as they are formed, 

* rather than carrying additional fractional bits into subsequent additions. 

* This compromises accuracy slightly, but it lets us save a few shifts. 

* More importantly, 16-bit arithmetic is then adequate (for 8-bit samples) 

* everywhere except in the multiplications proper; this saves a good deal 

* of work on 16-bit-int machines. 
* 

* Again to save a few shifts, the intermediate results between pass 1 and 

* pass 2 are not upscaled, but are represented only to integral precision. 
* 

* A final compromise is to represent the multiplicative constants to only 

* 8 fractional bits, rather than 13. This saves some shifting work on some 

* machines, and may also reduce the cost of multiplication (since there 

* are fewer one-bits in the constants) . 
*/ 

#define CONST_BITS 8 



/* Some C compilers fail to reduce "FIX (constant ) " at compile time, thus 

* causing a lot of useless floating-point operations at run time. 

* To get around this we use the following pre-calculated constants. 

* If you change CONST_BITS you may want to add appropriate values. 

* (With a reasonable C compiler, you can just rely on the FIX() macro...) 
*/ 

#if CONST_BITS == 8 

#define FIX_0_382683433 ((INT32) 98) /* FIX (0 . 382683433 ) */ 

#define FIX_0_541196100 {(INT32) 139) /* FIX(0 . 541196100) */ 
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idefine FIX_0_707106781 ( 181) /* FIX(0. 707106781) 

tdefine FIX_1_306562965 ( (II^B 334) /* FIX (1 . 306562965) 




#else ! ' J 

Sdefine FIX_0_382683433 FIX ( 0 . 3 82683433 ) 

tdefine FIX_0_541196100 FIX (0 . 541196100 ) 

#define FIX_0_707106781 FIX ( 0 . 707106781 ) 

#define FIX_1_306562965 FIX ( 1 . 306562965 ) 
#endi£ 



/* We can gain a little more speed, with a further compromise in accuracy, 

* by omitting the addition in a descaling shift. This yields an incorrectly 

* rounded result half the time... 
*/ 

tifndef USE_ACCURATE_ROUNDING 
#undef DESCALE 

#define DESCALE (x, n) RIGHT_SHI FT ( x , n) 
#endif 



/* Multiply a DCTELEM variable by an INT32 constant, and immediately 
* descale to yield a DCTELEM result. 
*/ 

#define MULTIPLY (var, const) { (DCTELEM) DESCALE ( (var) * (const), CONST_BITS) ) 



/* 

* Perform the forward DCT on one block of samples . 
*/ 

dbOBAL(void) 

j£ig_fdct_ifast (DCTELEM * data) 

~: DCTELEM tmpO, tmpl, tmp2 , tmp3 , tmp4, tmp5, tmp6, tmp7; 
JbCTELEM tmplO, tmpll, tmpl2, tmpl3; 
S DCTELEM zl, z2, z3, z4 , z5, zll, zl3; 
f f)CTELEM *dataptr; 
*^4nt ctr; 

J5hift_temps 

Pass 1: process rows. */ 
|_:dataptr = data; 

j^f or (ctr = DCTSIZE-1; ctr >= 0; ctr--) { 
Q tmpO = dataptr[0] + dataptr[7] ; 
fll tmp7 = dataptr[0] - dataptr[7]; 
V* tmpl = dataptr[l] + dataptr[6]; 

tmp6 = dataptr[l] - dataptr[6]; 
p tmp2 = dataptr[2] + dataptr[5]; 
~l trip 5 = dataptr{2] - dataptr[5]; 

tmp3 = dataptr[3] + dataptr[4]; 

tmp4 = dataptr[3] - dataptr[4]; 

/* Even part */ 

tmplO = tmpO + tmp3 ; /* phase 2 */ 

tmpl 3 = tmpO - tmp3; 

tmpll = tmpl + tmp2; 

tmpl2 = tmpl - tmp2; 

dataptr[0] = tmplO + tmpll; /* phase 3 */ 

dataptr[4] = tmplO - tmpll; 

zl = MULTIPLY ( tmpl 2 + tmpl3 , FIX_0_707106781) ; /* c4 */ 

dataptr[2] = tmpl3 + zl; /* phase 5 */ 

dataptr[6] = tmpl3 - zl; 

/* Odd part */ 

tmplO = tmp4 + tmp5; /* phase 2 */ 
tmpll = tmp5 + tmp6; 
tmpl 2 = tmp6 + tmp7 ; 

/* The rotator is modified from fig 4-8 to avoid extra negations. */ 
z5 = MULTIPLY (tmplO - tmpl2 , FIX_0_382683433 ) ; /* c6 */ 
z2 = MULTIPLY (tmplO, FIX_0_541196100) + z5; /* c2-c6 */ 
z4 = MULTIPLY (tmpl2, FIX_1_306562965 ) + z5; /* c2+c6 */ 
z3 = MULTIPLY (tmpll, FIX_0_707106781) ; /* c4 */ 
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zll = tmp7 + z3; 
zl3 = tmp7 - z3; 



tase 5 */ 



dataptr[5] = zl3 + z2; /* phase 6 */ 
dataptr[3] = zl3 - z2; 
dataptr [13 = zll + z4; 
dataptr [73 = zll - z4; 

dataptr += DCTSIZE; /* advance pointer to next row */ 

} 

/* Pass 2: process columns. */ 
dataptr = data; 

for (ctr = DCTSIZE-1; ctr >= 0; ctr--) { 

tmpO = dataptr [DCTSIZE*0] + dataptr [DCTSIZE*7 ] ; 
tmp7 = dataptr [DCTSIZE*0] - dataptr [DCTSIZE*7] ; 
tmpl = dataptr [DCTSIZE* 1] + dataptr [DCTSIZE*6] ; 
tmp6 = dataptr [DCTSIZE*! ] - dataptr [DCTSIZE*6 3 ; 
tmp2 = dataptr [DCTSIZE*2] + dataptr [DCTSIZE*5] ; 
tmp5 = dataptr [DCTSIZE*2] - dataptr [DCTSIZE* 5 3 ; 
tmp3 = dataptr [DCTSIZE*3] + dataptr [DCTSIZE*4 3 ; 
tmp4 = dataptr [DCTSIZE*3] - dataptr [DCTSIZE* 4 3 ; 

/* Even part */ 

tmplO = tmpO + tmp3; /* phase 2 */ 
tmpl 3 = tmpO - tmp3 ; 
tmpll = tmpl + tmp2 ; 
tmpl 2 = tmpl - tmp2 ; 

D dataptr [DCTSIZE* 0 ] = tmplO + tmpll; /* phase 3 */ 

Jj dataptr [DCTSIZE* 4 ] = tmplO - tmpll; 

01 zl = MULTIPLY (tmpl2 + tmpl3, FIX_0_707106781 ) ; /* c4 */ 

if§ dataptr [DCTSIZE*2] = tmpl 3 + zl; /* phase 5 */ 

dataptr [DCTSIZE* 6] = tmpl3 - zl; 

42 /* Odd part */ 

tmplO = tmp4 + tmp5; /* phase 2 */ 
Hj tmpll = tmp5 + tmp6 ; 
^ tmpl 2 = tmp6 + tmp7 ; 

/* The rotator is modified from fig 4-8 to avoid extra negations. 

f% z5 = MULTIPLY (tmplO - tmpl2 , FIX_0_3 82683 433 ) ; /* c6 */ 

»t z2 = MULTIPLY (tmplO, FIX_0_541196100 ) + z5; /* c2-c6 */ 

S« z4 = MULTIPLY (tmpl2, FIX_1_306562965 ) + z5; /* c2+c6 */ 

Sj z3 = MULTIPLY (tmpll, FIX_0_707106781 ) ; /* c4 */ 

=f zll = tmp7 + z3 ; /* phase 5 */ 

LJ z13 = tmp7 - z3; 

dataptr [DCTSIZE* 5 ] = zl3 + z2; /* phase 6 */ 

dataptr [DCTSIZE*3 ] = zl3 - z2; 

dataptr [DCTSIZE* 1 ] = zll + z4; 

dataptr [DCTSIZE*7 3 = zll - z4; 

dataptr++; /* advance pointer to next column */ 

} 

} 

iendif /* DCT_IFAST_SUPPORTED */ 
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/* 

* jfdctint.c 
* 

* Copyright (C) 1991-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains a slow-but-accurate integer implementation of the 

* forward DCT (Discrete Cosine Transform) . 
* 

* A 2-D DCT can be done by 1-D DCT on each row followed by 1-D DCT 

* on each column. Direct algorithms are also available, but they are 

* much more complex and seem not to be any faster when reduced to code. 
* 

* This implementation is based on an algorithm described in 

* C. Loeffler, A. Ligtenberg and G. Moschytz, "Practical Fast 1-D DCT 

* Algorithms with 11 Multiplications", Proc. Int'l. Conf . on Acoustics, 

* Speech, and Signal Processing 1989 (ICASSP '89), pp. 988-991. 

* The primary algorithm described there uses 11 multiplies and 29 adds. 

* We use their alternate method with 12 multiplies and 32 adds. 

* The advantage of this method is that no data path contains more than one 

* multiplication; this allows a very simple and accurate implementation in 

* scaled fixed-point arithmetic, with a minimal number of shifts. 
*/ 

#define JPEG_INTERNALS 
#include "j include. h" 
#include •jpeglib.h" 

#include "jdct.h - /* Private declarations for DCT subsystem */ 

#ifdef DCT_ISLOW_SUPPORTED 



f*^This module is specialized to the case DCTSIZE = 8. 



#if DCTSIZE != 8 

.Sorry, this code only copes with 8x8 DCTs . /* deliberate syntax err */ 
#Uidif 



=* The poop on this scaling stuff is as follows: 

5? Each 1-D DCT step produces outputs which are a factor of sqrt(N) 
Ql larger than the true DCT outputs . The final outputs are therefore 
fh a factor of N larger than desired; since N=8 this can be cured by 

a simple right shift at the end of the algorithm. The advantage of 
~*J this arrangement is that we save two multiplications per 1-D DCT, 
O because the yO and y4 outputs need not be divided by sqrt (N) . 
=£ In the IJG code, this factor of 8 is removed by the quantization step 
~y$ (in jcdctmgr.c) , NOT in this module. 
* 

* We have to do addition and subtraction of the integer inputs, which 

* is no problem, and multiplication by fractional constants, which is 

* a problem to do in integer arithmetic. We multiply all the constants 

* by CONST_SCALE and convert them to integer constants (thus retaining 

* CONST_BITS bits of precision in the constants) . After doing a 

* multiplication we have to divide the product by CONST_SCALE, with proper 

* rounding, to produce the correct output. This division can be done 

* cheaply as a right shift of CONST_BITS bits. We postpone shifting 

* as long as possible so that partial sums can be added together with 

* full fractional precision. 
* 

* The outputs of the first pass are scaled up by PASS1_BITS bits so that 

* they are represented to better- than-integral precision. These outputs 

* require EITS_IN_JSAMPLE + PASS1_BITS + 3 bits; this fits in a 16-bit word 

* with the recommended scaling. (For 12 -bit sample data, the intermediate 

* array is INT32 anyway.) 
* 

* To avoid overflow of the 32-bit intermediate results in pass 2, we must 

* have BITS_IN_JSAMPLE + CONST_BITS + PASS1_BITS <= 26. Error analysis 

* shows that the values given below are the most effective. 
*/ 

#if BITS_IN_JSAMPLE == 8 
#define CONST_BITS 13 
#define PASS1_BITS 2 
#else 
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idefine CONST_BITS 13 
idefine PASS1_BITS 1 
tendif 



se a little precision to avoid 01 



ow 



/* Some C compilers fail to reduce " FIX ( constant ) " at compile time, thus 

* causing a lot of useless floating-point operations at run time. 

* To get around this we use the following pre-calculated constants. 

* If you change CONST_BITS you may want to add appropriate values. 

* (With a reasonable C compiler, you can just rely on the FIX() macro...) 



#if CONST_BITS 
#define FIX_0_: 
#define FIX_0. 
tdefine FIX_0_! 
#define FIX„0. 
#define FIX_0_: 
tdefine FIX_1 
#define FIX_1_! 
tdefine FIX_1 
tdefine FIX_1 
tdefine Fix_2_i 
tdefine FIX_2 
tdefine FIX_3_< 
telse 

tdefine FIX_0. 
tdefine FIX_0. 
tdefine FIX_0. 
tdefine FIX_0. 
tdefine FIX_0. 
tdefine FIX_1 
tdefine FIX_1_! 
tdefine FIX_1 
tdlfine FIX_1 
tdefine FIX_2 
tHefine FIX_2 
fcfefine Fix_3_i 
#e«idif 



== 13 
298631336 
390180644 
541196100 
765366865 
899976223 
175875602 
501321110 
847759065 
961570560 
053119869 
562915447 
072711026 

298631336 
390180644 
541196100 
765366865 
899976223 
175875602 
501321110 
847759065 
961570560 
053119869 
562915447 
072711026 



( (INT32) 


2446) 


/* 


FIX(0 


298631336) 


*/ 


{ (INT32) 


3196) 


/* 


FIX(0 


390180644) 


*/ 


( (INT32) 


4433) 


/* 


FIX(0 


541196100) 


*/ 


( (INT32) 


6270) 


/* 


FIX(0 


765366865) 


*/ 


( (INT32) 


7373) 


/* 


FIX(0 


899976223) 


*/ 


( (INT32) 


9633) 


/* 


FIX(1 


175875602) 


*/ 


( (INT32) 


12299) 


/* 


FIX<1 


501321110) 


*/ 


( (INT32) 


15137) 


/* 


FIX(1 


847759065) 


*/ 


( (INT32) 


16069) 


/* 


FIX{1 


961570560) 


*/ 


( (INT32) 


16819) 


/* 


FIX (2 


053119869) 


*/ 


( (INT32) 


20995) 


/* 


FIX (2 


562915447) 


*/ 


{ (INT32) 


25172) 


/* 


FIX (3 


072711026) 


*/ 



FIX(0. 
FIX(0. 
FIX(0. 
FIX(0. 
FIX(0. 
FIX(1. 
FIX(1. 
FIX(1. 
FIX(1, 
FIX (2. 
FIX (2. 
FIX (3. 



298631336) 
390180644) 
541196100) 
765366865) 
899976223) 
175875602) 
501321110) 
847759065) 
961570560) 
053119869) 
562915447) 
072711026) 



A? J Multiply an INT32 variable by an INT32 constant to yield an INT32 result. 
For 8-bit samples with the recommended scaling, all the variable 
and constant values involved are no more than 16 bits wide, so a 
16xl6->32 bit multiply can be used instead of a full 32x32 multiply. 
For 12-bit samples, a full 32-bit multiplication will be needed. 

S 

*&f BITS_IN_JSAMPLE == 8 

#6$ f ine MULT I PLY ( var , cons t ) MULT I PLY 1 6C 1 6 { var , cons t ) 
Mse 

fctefine MULTIPLY (var , const) ((var) * (const)) 
6§idif 

/* 

* Perform the forward DCT on one block of samples. 
*/ 

GLOBAL (void) 

jpeg_fdct_islow (DCTELEM * data) 
{ 

INT32 tmpO, tmpl, tmp2 , tmp3 , tmp4, tmp5, tmp6, tmp7; 

INT32 tmplO, tmpll, tmpl 2 , tmpl3 ; 

INT32 zl, z2, 23, z4, z5; 

DCTELEM *dataptr; 

int ctr; 

SHIFT_TEMPS 

/* Pass 1: process rows. */ 

/* Note results are scaled up by sqrt(8) compared to a true DCT; */ 
/* furthermore, we scale the results by 2**PASS1_ BITS . */ 



dataptr = data; 



for (ctr 


= DCTSIZE- 


1; 


ctr >= 0; ctr--) { 


tmpO 




dataptr [0] 


+ 


dataptr [7] ; 


tmp7 




dataptr [0] 




dataptr [7] ; 


tmpl 




dataptr [1] 


+ 


dataptr [6] ; 


tmp6 




dataptr [1] 




dataptr [6] ; 


tmp2 




dataptr [2] 


+ 


dataptr [5] ; 


tmp5 




dataptr [2] 




dataptr [5] ; 



2 



tmp3 
tmp4 



dataptr[3] + 
dataptr[3] - 



data; 
data 



0 



1; 
1; 



/* Even part per LL&M figure 1 — 
* rotator "sqrt (2 ) *cl" should be 



■ note that published figure is faulty; 
■sqrt(2)*c6" . 



tmplO = tmpO + tmp3 

tmpl 3 = tmpO - tmp3 

tmpll = tmpl + tmp2 

tmpl 2 = tmpl - tmp2 

dataptr [0] = (DCTELEM) ((tmplO + tmpll) « PASS1_BITS) ; 
dataptr[4] = (DCTELEM) ((tmplO - tmpll) « PASS1_BITS) ; 

zl = MULTIPLY ( tmpl 2 + tmpl3, FIX_0_54 1196100 ) ; 

dataptr[2] = (DCTELEM) DESCALE(zl + MULTIPLY (tmpl 3 , FIX_0_765366865 ) , 

C0NST_BITS-PASS1_BITS) ; 

dataptr[6] = (DCTELEM) DESCALE(zl + MULTIPLY (tmpl 2 , - FIX__1_847759065 ) 

C0NST_BITS-PASS1_BITS) ; 

/* Odd part per figure 8 note paper omits factor of sqrt(2). 

* cK represents cos (K*pi/16 ) . 

* i0..i3 in the paper are tmp4 . . tmp7 here. 



zl = tmp4 + tmp7; 
z2 = tmp5 + tmp6; 
z3 = tmp4 + tmp6; 
z4 = tmp5 + tmp7 ; 

z5 = MULTIPLY(z3 + z4, FIX_1_175875602 ) ; 



/* sqrt(2) * c3 */ 



tmp4 = MULTIPLY (tmp4, FIX_0_298631336) ; /* sqrt(2) 
tmp5 = MULTIPLY ( tmp5 , FIX_2_053119869 ) ; /* sqrt(2) 
tmp6 = MULTIPLY <tmp6, FIX_3_072711026) ; /* sqrt(2) 
tmp7 = MULTIPLY ( tmp7 , FIX_1_501321110) ; /* sqrt(2) 
zl = MULTIPLY(zl f - FIX_0_899976223) ; /* sqrt(2) * 
z2 = MULTIPLY(z2, - FIX_2_562 9 15447 ) ; /* sqrt(2) * 
MUI/TIPLY(z3, - FIX_1_961570560) ; /* sqrt(2) * 
MULTIPLY(z4, - FIX_0_3 9 0180644 ) ; /* sqrt(2) * 



z3 
z4 



* (-Cl+c3+c5-c7) 

* ( cl+c3-c5+c7) 

* ( cl+c3+c5-c7) 

* ( cl+c3-c5-c7) 
(c7-c3) */ 
(-cl-c3) */ 
(-c3-c5) */ 
(c5-c3) */ 



z3 += z5; 
z4 += z5; 



dataptr[7] = (DCTELEM) DESCALE (tmp4 + zl + z3, CONST_BITS-PASSl_BITS) 

dataptr[5] = (DCTELEM) DESCALE ( tmp5 + z2 + z4, CONST_BITS-PASSl_BITS) 

dataptr[3] = (DCTELEM) DESCALE (tmp6 + z2 + z3, CONST_BITS-PASSl_BITS) 

dataptrtl] = (DCTELEM) DESCALE (tmp7 + zl + z4, CONST_BITS-PASSl_BITS) 



dataptr += DCTSIZE; 



/* advance pointer to next row */ 



/* Pass 2: process columns. 

* We remove the PASS1_BITS scaling, but leave the results scaled up 

* by an overall factor of 8. 
*/ 

dataptr = data; 

for (ctr = DCTSIZE-1; ctr >= 0; ctr — 
tmpO = dataptr [DCTSIZE*0] + dataptr 
tmp7 = dataptr [ DCTSIZE* 0] - dataptr 
tmpl = dataptr [DCTSIZE*!] + dataptr 
tmp6 = dataptr [DCTSIZE* 1] - dataptr 
tmp2 = dataptr [DCTSIZE*2] + dataptr 
tmp5 = dataptr [DCTSIZE*2] - dataptr 
tmp3 = dataptr [DCTSIZE*3] + dataptr 
tmp4 = dataptr [DCTSIZE*3] - dataptr 



) { 

[DCTSIZE*7] 
[DCTSIZE*7] 
[DCTSIZE*6] 
[DCTSIZE*6] 
[DCTSIZE*5] 
[DCTSIZE*5J 
[DCTSIZE*4] 
[DCTSIZE*4] 



/* Even part per LL&M figure 1 note that published figure is faulty; 

* rotator " sqrt (2 ) *cl ■ should be "sqrt (2 ) *c6" . 
*/ 

tmplO = tmpO + tmp3; 
tmpl 3 = tmpO - tmp3 ; 
tmpll = tmpl + tmp2; 
tmpl 2 = tmpl - tmp2 ; 



dataptr [DCTSIZE*0] = (DCTELEM) DESCALE ( tmplO + tmpll, PASS1_BITS) ; 
dataptr [DCTSIZE*4] = (DCTELEM) DESCALE ( tmplO - tmpll, PASS1_BITS) ; 



zl = MULTIPLY(tmpl2 + tmnj^ FIX_0_54 119 6100) ; 

dataptr [DCTSIZE*2] = (DC^Bl) DESCALE(zl + MULTIPLY { tmpl 3 , F! 
CONST^^Ps+PASSl„BITS) ; 

dataptr [DCTSIZE* 6] = (DCTELEM) DESCALE(zl + MULTIPLY { tmpl 2 , - 
C0NST_BITS+PASS1_BITS) ; 



.765366865) , 



FIX_1_847759065) , 



/* Odd part per figure 8 note paper omits factor of sqrt(2) 

* cK represents cos (K*pi/16) . 

* i0..i3 in the paper are tmp4 . . tmp7 here. 



zl = 
z2 = 
z3 = 
z4 = 
z5 = 

tmp4 
tmp5 
tmp6 
tmp7 
zl = 
z2 = 
z3 = 
z4 = 

z3 + = 
z4 + = 



tmp4 + tmp7 ; 
tmp5 + tmp 6; 
tn\p4 + tmp 6; 
tmp5 + tmp 7; 
MULTIPLY (z3 + 



z4, FIX_1_175875602) ; /* sqrt(2) * c3 */ 



= MULTIPLY ( tmp4 , FIX. 

= MULTI PLY ( tmp5 , FIX. 

= MULTIPLY (tmp 6, FIX. 

= MULTIPLY ( tmp7 , FIX. 



MULTI PLY ( zl , 
MULTI PLY (z2, 
MULTIPLY (z3, 
MULTIPLY ( z4 , 

= z5; 
= z5; 



FIX_0. 
FIX_2. 
FIX_1. 
FIX 0_ 



0_298631336) ; /* sqrt(2) 
2_053119869) ; /* sqrt(2) 
3,072711026); /* sqrt(2) 
1_501321110); /* sqrt(2) 
899976223); /* sqrt(2) * 
.562915447); /* sqrt(2) * 
.961570560); /* sqrt(2) * 
.390180644); /* sqrt(2) * 



* (-Cl+c3+c5-c7) 

* ( Cl+c3-c5+c7) 

* ( Cl+c3+c5-c7) 

* ( Cl+c3-c5-c7) 
(c7-c3) */ 
(-cl-c3) */ 
(-c3-c5) */ 
(c5-c3) */ 



*/ 
*/ 
*/ 
*/ 



dataptr [DCTSIZE*7 ] 
^ dataptr [DCTSIZE* 5] 
jj dataptr [DCTSIZE*3] 



= (DCTELEM) DESCALE (tmp 4 + zl + z3 , 
CONST_BITS+PASSl_BITS) ; 
= (DCTELEM) DESCALE (tmp5 + z2 + z4, 
CONST_BITS+PASSl_BITS) ; 
= (DCTELEM) DESCALE { tmp 6 + z2 + z3 , 
C0NST_BITS+PASS1_BITS) ; 
y; dataptr [DCTSIZE*! 3 = (DCTELEM) DESCALE ( tmp 7 + zl + z4, 
J] C0NST_BITS+PASS1_BITS) ; 



dataptr++ ; 



/* advance pointer to next column */ 



fendif /* DC T_ISLOW_SUP PORTED */ 



4 



/* 

* jidctflt.c 
* 

* Copyright (C) 1994-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains a floating-point implementation of the 

* inverse DCT (Discrete Cosine Transform) . In the IJG code, this routine 

* must also perform dequantization of the input coefficients. 

* This implementation should be more accurate than either of the integer 

* IDCT implementations. However, it may not give the same results on all 

* machines because of differences in roundoff behavior. Speed will depend 

* on the hardware's floating point capacity. 
* 

* A 2-D IDCT can be done by 1-D IDCT on each column followed by 1-D IDCT 

* on each row (or vice versa, but it's more convenient to emit a row at 

* a time) . Direct algorithms are also available, but they are much more 

* complex and seem not to be any faster when reduced to code. 
* 

* This implementation is based on Arai, Agui, and Nakajima's algorithm for 

* scaled DCT. Their original paper (Trans. IEICE E-71 ( 11) : 1095) is in 

* Japanese, but the algorithm is described in the Pennebaker & Mitchell 

* JPEG textbook (see REFERENCES section in file README) . The following code 

* is based directly on figure 4-8 in P&M. 

* While an 8-point DCT cannot be done in less than 11 multiplies, it is 

* possible to arrange the computation so that many of the multiplies are 

* simple scalings of the final outputs. These multiplies can then be 

* folded into the multiplications or divisions by the JPEG quantization 

* table entries. The AA&N method leaves only 5 multiplies and 29 adds 
*. to be done in the DCT itself. 

^JThe primary disadvantage of this method is that with a fixed-point 

implementation, accuracy is lost due to imprecise representation of the 
Si scaled quantization values. However, that problem does not arise if 
^* 5 we use floating point arithmetic. 

47 

#d;efine jpeg_internals 
^include " j include .h" 
ftinclude "jpeglib.h" 

fiSiclude •jdct.h" /* Private declarations for DCT subsystem */ 

ni 

%ifdef DCT_FLOAT_SUPPORTED 



=£ 3 This module is specialized to the case DCTSIZE = 8. 
fxf DCTSIZE != 8 

;z f Sorry, this code only copes with 8x8 DCTs . /* deliberate syntax err */ 
fe&idif 



/* Dequantize a coefficient by multiplying it by the multiplier-table 
* entry; produce a float result. 
*/ 

#define DEQUANTIZE (coef , quantval ) ( ( (FAST_FLOAT) (coef ) ) * (quantval) ) 



/* 

* Perform dequantization and inverse DCT on one block of coefficients. 
*/ 

GLOBAL (void) 

jpeg_idct_f loat ( j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JCOEFPTR coef_block, 

JSAMPARRAY Output_buf, JDIMENSION OUtput_COl) 

{ 

FAST_FLOAT tmpO, tmpl, tmp2 , tmp3 , tmp4, tmp5, tmp6, tmp7; 

FAST_FLOAT tmplO, tmpll, tmpl 2 , tmpl3; 

FAST_FLOAT z5, zlO, zll, zl2, zl3; 

JCOEFPTR inptr; 

FLOAT_MULT_TYPE * quantptr; 

FAST_FLOAT * wsptr; 

JSAMPROW outptr; 

JSAMPLE *range__limit = IDCT_range_ limit (cinfo) ; 
int ctr; 




1 



FAST_FLOAT workspace [DCTS I ^ftL; /* buffers data between passes 
SHIFT_TEMPS 

/* Pass 1: process columns from input, store into work array. */ 
inptr = coef_block; 

quantptr = ( FLOAT_MULT_TYPE *) compptr->dct_table; 
wsptr = workspace; 

for <ctr = DCTSIZE; ctr > 0; ctr--) { 

/* Due to quantization, we will usually find that many of the input 

* coefficients are zero, especially the AC terms. We can exploit this 

* by short-circuiting the IDCT calculation for any column in which all 

* the AC terms are zero. In that case each output is equal to the 

* DC coefficient (with scale factor as needed) . 

* With typical images and quantization tables, half or more of the 

* column DCT calculations can be simplified this way. 
*/ 

if (inptr [DCTSIZE*1} == 0 && inptr [DCTSIZE*2 ] == 0 && 
inptr [DCTSIZE*3] == 0 && inptr [DCTSIZE*4 ] == 0 && 
inptr [DCTSIZE*5] == 0 && inptr [DCTSIZE*6] == 0 && 
inptr [DCTSIZE*7] == 0) ( 
/* AC terms all zero */ 

FAST_FLOAT dcval = DEQUANTIZE ( inptr [DCTSIZE* 0 J , quantptr [DCTS I ZE*0] ) ; 




wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 



[DCTSIZE*0] 
[DCTSIZE*1] 
[DCTSIZE*2] 
[DCTSIZE*3] 
[DCTSIZE*4] 
[DCTSIZE*5] 
[DCTSIZE*6] 
[DCTSIZE*7] 



inptr ++ ; 
quantptr ++ ; 
wsptr++ ; 
continue ; 



= dcval 
= dcval 
= dcval 
= dcval 
= dcval 
= dcval 
= dcval 
= dcval 



/* advance pointers to next column */ 



J /* Even part */ 



tmpO = DEQUANTIZE (inptr [DCTSIZE* 0 3 , 

tmpl = DEQUANTIZE (inptr [DCTSIZE* 2 ] , 

tmp2 = DEQUANTIZE (inptr [DCTSIZE* 4 3 , 

tmp3 = DEQUANTIZE (inptr [DCTSIZE* 6 3 , 



quantptr [DCTSIZE* 0 ] ) 
quantptr [DCTSIZE*2 3 ) 
quantptr [DCTSIZE*4 ] ) 
quantptr [DCTSIZE* 6 3 ) 



j tmplO 


= tmpO + 


tmp2 ; 


s tmpll 


= tmpO - 


tmp2 ; 


i tmpl3 


= tmpl + 


tmp3 ; 


% tmpl2 


= (tmpl - 


- tmp3) 


tmpO = 


tmplO + 


tmpl3 ; 


tmp3 = 


tmplO - 


tmpl3; 


tmpl = 


tmpll + 


tmpl2 ; 


tmp2 = 


tmpll - 


tmpl2; 



/* phase 3 */ 



/* phases 5-3 



/* phase 2 */ 



- tmpl3; /* 2*c4 */ 



/* Odd part */ 



tmp4 = DEQUANTIZE (inptr [DCTSIZE* 1] , quantptr [DCTSIZE*1] ) ; 

tmp5 = DEQUANTIZE (inptr [DCTSIZE* 3 3 , quantptr [DCTSIZE*3 3 ) ; 

tmp6 = DEQUANTIZE (inptr [DCTSIZE*53 , quantptr [DCTS I ZE*5] ) ; 

tmp7 = DEQUANTIZE (inptr [DCTSIZE*7 ] , quantptr [DCTSIZE*7] ) ; 

zl3 = tmp6 + tmp5; /* phase 6 */ 

zlO = tmp6 - tmp5; 
zll = tmp4 + tmp7; 
zl2 = tmp4 - tmp7; 

tmp7 = zll + zl3; /* phase 5 */ 

tmpll = (zll - zl3) * ( (FAST_FLOAT) 1.414213562); /* 2*c4 */ 

z5 ~ (zlO + zl2) * ( (FAST_FLOAT) 1.847759065); /* 2*c2 */ 
tmplO = ( ( FAST_ FLOAT ) 1.082392200) * zl2 - z5; /* 2*(c2-c6) */ 
tmpl2 = ( (FAST_FLOAT) -2.613125930) * zlO + z5; /* -2*(c2+c6) */ 

tmp6 = tmpl 2 - tmp7; /* phase 2 */ 
tmp5 = tmpll - tmp6 ; 
tmp4 = tmplO + tmp5; 



2 



wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 



[DCTSI 
[DCTSI 
[DCTSI 
[DCTSI 
[DCTSI 
[DCTSI 
[DCTSI 
[DCTSI 



ZE*0] 
ZE*7] 
ZE*1] 
ZE*6] 
ZE*2] 
ZE*5] 
ZE*4] 
ZE*3] 



inptr++; 
quantptr++ ; 
wsptr+ + ; 



tmpO w^m>"7 
tmpO ^Hp7 
tmpl + tmp6 
tmpl - tmp6 
tmp2 + tmp5 
tmp2 - tmp5 
trap 3 + tmp4 
trap 3 - tmp4 



/* advance pointers to next column */ 



/* Pass 2: process rows from work array, store into output array. */ 
/* Note that we must descale the results by a factor of 8 == 2**3. */ 

wsptr = workspace; 

for (ctr = 0; ctr < DCTSIZE; ctr++) { 
outptr = output_buf [ctr] + output_col; 

/* Rows of zeroes can be exploited in the same way as we did with columns. 

* However, the column calculation has created many nonzero AC terms, so 

* the simplification applies less often (typically 5% to 10% of the time) 

* And testing floats for zero is relatively expensive, so we don't bother 



/* Even part */ 

tmplO = wsptr[0] + wsptr[4]; 
tmpll = wsptr [0] - wsptr [4] ; 

"t: tmp!3 = wsptr [2] + wsptr [6] ; 

Hi tmpl2 = (wsptr [2] - wsptr[6]) * { (FAST_FLOAT) 1.414213562) - tmpl3; 

mi 

tmpO = tmplO + tmpl3 
tmp3 = tmplO - tmpl3 
Sf tmpl = tmpll + tmpl 2 
tmp2 = tmpll - tmpl2 

-Jj /* Odd part */ 

~*~ zl3 = wsptr[5] + wsptr [3 ]; 

s zlO = wsptr[5] - wsptr[3]; 

L'h zll = wsptr[l] + wsptr[7]; 

zl2 = wsptr [1] - wsptr[7]; 



tmp7 = zll + zl3; 
tmpll = (zll - zl3) 



( (FAST_FLOAT) 1.414213562); 



z5 = (zlO + zl2) * ( (FAST_FLOAT) 1.847759065); /* 2*c2 */ 
tmplO = ( (FAST_FLOAT) 1.082392200) * zl2 - z5; /* 2*(c2-c6) */ 
tmpl2 = ( (FAST_FLOAT) -2.613125930) * zlO + z5; /* -2*(c2+c6) */ 

tmp6 = tmpl2 - tmp7 ; 
tmp5 = tmpll - tmp6; 
tmp4 = tmplO + tmp5; 

/* Final output stage: scale down by a factor of 8 and range-limit */ 

outptr [0] = range_limit [ (int) DESCALE { ( INT32 ) (tmpO + tmp7) , 3) 
& RANGE_MASK] ; 

outptr [7] = range_limit[ (int) DESCALE (( INT3 2 ) (tmpO - tmp7) , 3) 
& RANGE_MASK] ; 

outptr [1] = range_limit [ (int) DESCALE ( (INT3 2) (tmpl + tmp6) , 3) 
& RANGE_MASK] ; 

outptr [6] = range_limit [ (int) DESCALE ( (INT3 2 ) (tmpl - tmp6) , 3) 
& RANGE_MASK] ; 

outptr [2] = range_limit [ (int) DESCALE ( (INT3 2) (tmp2 + tmp5) , 3) 
& RANGE_MASK] ; 

outptr [5] = range_limit [ (int) DESCALE ( (INT3 2) (tmp2 - tmp5) , 3) 
& RANGE_MASK] ; 

outptr [4] = range_limit [ (int) DESCALE (( INT3 2 ) (tmp3 + tmp4) , 3) 

& RANGE_MASK] ; 

outptr [3] = range_limit [ (int) DESCALE ( (INT3 2) (tmp3 



& RANGE_MASK] ; 
wsptr += DCTSIZE; /* advance pointer to next row 



tmp4), 3) 
/ 



3 



tendif /* DC T_FLOAT_SUP PORTE] 



4 



/* 

* jidctfst.c 
* 

* Copyright (C) 1994-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains a fast, not so accurate integer implementation of the 

* inverse DCT (Discrete Cosine Transform) . In the IJG code, this routine 

* must also perform dequantization of the input coefficients. 
* 

* A 2-D IDCT can be done by 1-D IDCT on each column followed by 1-D IDCT 

* on each row (or vice versa, but it's more convenient to emit a row at 

* a time) . Direct algorithms are also available, but they are much more 

* complex and seem not to be any faster when reduced to code. 

* This implementation is based on Arai, Agui, and Nakajima's algorithm for 

* scaled DCT. Their original paper (Trans. IEICE E-71 (11) : 1095) is in 

* Japanese, but the algorithm is described in the Pennebaker & Mitchell 

* JPEG textbook (see REFERENCES section in file README) . The following code 

* is based directly on figure 4-8 in P&M. 

* While an 8 -point DCT cannot be done in less than 11 multiplies, it is 

* possible to arrange the computation so that many of the multiplies are 

* simple scalings of the final outputs. These multiplies can then be 

* folded into the multiplications or divisions by the JPEG quantization 

* table entries. The AA&N method leaves only 5 multiplies and 29 adds 

* to be done in the DCT itself. 

* The primary disadvantage of this method is that with fixed-point math, 

* accuracy is lost due to imprecise representation of the scaled 

* quantization values. The smaller the quantization table entry, the less 

* precise the scaled value, so this implementation does worse with high- 
-quality- set ting files than with low-quality ones. 



ftp fine JPEG_INTERNALS 
fliiclude " j include .h" 
#thclude " jpeglib.h" 
fihclude "jdct-h" /* Private declarations for DCT subsystem */ 

fftdef DCT_IFAST_SUPPORTED 

s* This module is specialized to the case DCTSIZE = 8. 
£p£ DCTSIZE != 8 

HsSorry, this code only copes with 8x8 DCTs. /* deliberate syntax err */ 
iendif 



£\ Scaling decisions are generally the same as in the LL&M algorithm; 
^ see jidctint.c for more details. However, we choose to descale 

* (right shift) multiplication products as soon as they are formed, 

* rather than carrying additional fractional bits into subsequent additions. 

* This compromises accuracy slightly, but it lets us save a few shifts. 

* More importantly, 16-bit arithmetic is then adequate (for 8-bit samples) 

* everywhere except in the multiplications proper; this saves a good deal 

* of work on 16-bit-int machines. 
* 

* The dequantized coefficients are not integers because the AA&N scaling 

* factors have been incorporated. We represent them scaled up by PASS1_BITS, 

* so that the first and second IDCT rounds have the same input scaling. 

* For 8 -bit JSAMPLEs, we choose IFAST_SCALE_BITS = PASS1_BITS so as to 

* avoid a descaling shift; this compromises accuracy rather drastically 

* for small quantization table entries, but it saves a lot of shifts. 

* For 12 -bit JSAMPLEs, there's no hope of using 16x16 multiplies anyway, 

* so we use a much larger scaling factor to preserve accuracy. 
* 

* A final compromise is to represent the multiplicative constants to only 

* 8 fractional bits, rather than 13. This saves some shifting work on some 

* machines, and may also reduce the cost of multiplication (since there 

* are fewer one-bits in the constants) . 
*/ 

#if BITS_IN_JSAMPLE == 8 
tdefine CONSTJITS 8 
#define PASS1_BITS 2 
#else 

#define CONST_BITS 8 
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#def ine 
#endif 



PASS1_BITS 



pse a little precision to avoid o 



low */ 



Some C compilers fail to reduce "FIX (constant) ■ at compile time, thus 

causing a lot of useless floating-point operations at run time. 

To get around this we use the following pre-calculated constants. 

If you change CONST_BITS you may want to add appropriate values. 

(With a reasonable C compiler, you can just rely on the FIX() macro...) 



#if CONST.BITS 
tdefine FIX_1_ 
idefine FIX_1_ 
tdefine FIX_1 
tdefine FIX_2_ 
telse 

tdefine FIX_1 
tdefine FIX_1 
tdefine FIX_1_ 
tdefine FIX_2_ 
tendif 



== 8 
082392200 
414213562 
847759065 
613125930 

082392200 
414213562 
847759065 
613125930 



( (INT32) 277) 

( (INT32) 362) 

( (INT32) 473) 

( (INT32) 669) 

FIXU. 082392200) 
FIX(1. 414213562) 
FIX(1. 847759065) 
FIX(2. 613125930) 



/* FIX(1. 082392200) */ 

/* FIXU. 414213562) */ 

/* FIX(1. 847759065) */ 

/* FIX(2. 613125930) */ 



/* We can gain a little more speed, with a further compromise in accuracy, 

* by omitting the addition in a descaling shift. This yields an incorrectly 

* rounded result half the time... 
*/ 

tifndef USE_ACCURATE_ROUNDING 

tundef descale 

tdefine DESCALE (x, n) RIGHT_ SHIFT (x, n) 
tendif 

E— J 

/^Multiply a DCTELEM variable by an INT32 constant, and immediately 
descale to yield a DCTELEM result. 

47 

tdefine MULTIPLY (var, const) ((DCTELEM) DESCALE ( (var) * (const), CONST_BITS) ) 

/Jl Dequantize a coefficient by multiplying it by the multiplier-table 
I *J entry; produce a DCTELEM result. For 8-bit data a 16xl6->16 
5 * multiplication will do. For 12-bit data, the multiplier table is 
=* declared INT32, so a 32-bit multiply will be used. 

j*/ 

Lj 

tif BITS_IN_JSAMPLE == 8 

fcfefine DEQUANTIZE (coef , quantval) ( { (IFAST_ MULT — TYPE) (coef)) * (quantval)) 
fejlse 

tdefine DEQUANTIZE (coef , quantval ) \ 

ZZ DESCALE ( (coef) * (quantval) , IFAST_SCALE_BITS-PASS1_BITS) 
Mndif 



/* Like DESCALE, but applies to a DCTELEM and produces an int. 
* We assume that int right shift is unsigned if INT32 right shift is. 
*/ 

tifdef RIGHT_SHIFT_IS_UNSIGNED 

tdefine ISHIFT_TEMPS DCTELEM ishif t_temp; 

tif BITS_IN_ J SAMPLE == 8 

tdefine DCTELEMBITS 16 /* DCTELEM may be 16 or 32 bits */ 

telse 

tdefine DCTELEMBITS 32 /* DCTELEM must be 32 bits */ 

tendif 

tdefine IRIGHT_SHIFT (x, shf t ) \ 
( (ishif t_temp = (x) ) < 0 ? \ 
(ishift_temp » (shft)) | ((-{(DCTELEM) 0)) « (DCTELEMBITS- (shf t) ) ) : \ 
(ishif t_temp » (shft))) 

telse 

tdefine ISHIFT_TEMPS 

tdefine IRIGHT_SHIFT (x, shf t) ( (x) » (shft)) 
tendif 

tifdef USE_ACCURATE_ROUNDING 

tdefine IDESCALE (x, n) ((int) IRIGHT_SHIFT ( (x) + (1 « ((n)-l)), n) ) 
telse 

tdefine IDESCALE (x, n) ((int) IRIGHT_SHIFT (x, n) ) 
tendif 
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* Perform dequantization and inverse DCT on one block of coefficients. 
*/ 

GLOBAL (void) 

jpeg_idct_if ast (j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JCOEFPTR coef_block, 

JSAMPARRAY output_buf, JDIMENSION OUtput_COl) 

{ 

DCTELEM tmpO, tmpl, tmp2 , tmp3 , tmp4, tmp5, tmp6, tmp7; 

DCTELEM tmplO, tmpll, tmpl2, tmpl3 ; 

DCTELEM z5, zlO, zll, zl2, zl3; 

JCOEFPTR inptr; 

IFAST_MULT_TYPE * quantptr; 

int * wsptr ; 

JSAMPROW outptr; 

JSAMPLE *range_limit = IDCT_range_limit (cinf o) ; 
int ctr; 

int workspace [DCTSIZE2] ; /* buffers data between passes */ 
SHIFT JTEMPS /* for DESCALE */ 

ISHIFTJTEMPS /* for IDESCALE */ 

/* Pass 1: process columns from input, store into work array. */ 
inptr = coef_block; 

quantptr = ( I FAST_MULT_TYPE *) compptr->dct_table; 
wsptr = workspace; 

for (ctr = DCTSIZE; ctr > 0; ctr — ) { 

/* Due to quantization, we will usually find that many of the input 

* coefficients are zero, especially the AC terms. We can exploit this 

* by short-circuiting the IDCT calculation for any column in which all 
■Jj * the AC terms are zero. In that case each output is equal to the 

f=i * DC coefficient (with scale factor as needed) . 

^; * With typical images and quantization tables, half or more of the 
J] * column DCT calculations can be simplified this way. 

VI */ 

'4J if ( inptr [ DCTSIZE* 1 ] == 0 && inptr [DCTSIZE*2 ] == 0 && 
J% inptr [DCTSIZE*3] == 0 && inptr [DCTSIZE*4] == 0 && 

inptr [DCTSIZE*5] == 0 && inptr [DCTSIZE*6] == 0 && 

inptr [DCTSIZE*7] == 0) { 
E /* AC terms all zero */ 

^ L int dcval = (int) DEQUANTIZE ( inptr [DCTSIZE* 0 ] , quantptr [DCTS I ZE*0] ) ; 

dcval ; 
dcval ; 
dcval ; 
dcval ; 
dcval ; 
dcval ; 
dcval ; 
dcval ; 



wsptr [DCTSIZE*0] = 

wsptr [DCTSIZE*1] = 

wsptr [DCTSIZE*2] = 

wsptr [DCTSIZE*3] = 

wsptr [DCTSIZE*4] = 

wsptr [DCTSIZE* 5] = 

wsptr [DCTSIZE* 6 3 = 

wsptr [DCTSIZE*7] = 



inptr++; /* advance pointers to next column */ 

quantptr++ ; 
wsptr++ ; 
continue ; 



/* Even part */ 



tmpO = DEQUANTIZE (inptr [DCTSIZE*0] , quantptr [DCTSIZE*0 ] ) 

tmpl = DEQUANTIZE ( inptr [DCTSIZE* 2 ] , quantptr [DCTSIZE*2 ] ) 

tmp2 = DEQUANTIZE ( inptr [DCTSIZE* 4 ] , quantptr [DCTSIZE*4 ] ) 

tmp3 = DEQUANTIZE ( inptr [DCTSIZE* 6 ] , quantptr [DCTSIZE*6 3 ) 

tmplO = tmpO + tmp2; /* phase 3 */ 
tmpll = tmpO - tmp2; 



tmpl 3 = tmpl + tmp3; /* phases 5-3 */ 

tmpl 2 = MULT I PLY ( tmp 1 - tmp3, FIX__1_414213562 ) - tmpl3; /* 2*c4 */ 

tmpO = tmplO + tmpl3; /* phase 2 */ 
tmp 3 = tmplO - tmp 1 3 ; 
tmpl = tmpll + tmpl2; 
tmp 2 = tmpll - tmp 12 ; 

/* Odd part */ 
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tmp 4 
tmp 5 
tmp6 
tmp 7 

zl3 = 
zlO = 
zll = 
zl2 = 



DEQUANTIZE { inptr [^^pZE* 13 , quart tptr [DCTSIZE*1] ) 

DEQUANTIZE(inptr [D^RzE*3] , quantptr [DCTSIZE*3 3 ) 

DEQUANTIZE ( inptr [DCTSIZE*5 ] , quantptr [DCTSIZE* 5 3 ) 

DEQUANTIZE ( inptr [DCTSIZE*7 ] , quantptr [DCTSIZE* 7 3 ) 



tmp6 + tmp 5; 
tmp6 - tmp 5; 
tmp4 + tmp7 ; 
tmp4 - tmp7 ; 



/* phase 6 */ 



tmp7 = zll + zl3; /* phase 5 */ 

tmpll = MULTIPLY(zll - zl3, FIX_1_414213562) ; /* 2*c4 */ 

z5 - MULTIPLY(zlO + zl2, FIX_1_847759065) ; /* 2*c2 */ 

tmplO = MULTIPLY <zl2, FIX_1_082392200) - z5 ; /* 2*(c2-c6) */ 

tmpl2 = MULTIPLY(zlO, - FIX_2_613 125930 ) + z5; /* -2*(c2+c6) */ 

tmp6 = tmpl2 - tmp7; /* phase 2 */ 
tmp5 = tmpll - tmp 6 ; 
tmp4 = tmp 10 + tmp5; 



wsptr [DCTSIZE* 0] = 

wsptr [DCTSIZE*7] = 

wsptr [DCTSIZE*1] = 

wsptr [DCTSIZE*6] = 

wsptr [DCTSIZE*2] = 

wsptr [DCTSIZE*5] = 

wsptr [DCTSIZEM] = 

wsptr [DCTSIZE*3] = 



(int) 


(tmpO 


+ 


tmp7 ) ; 


(int) 


(tmpO 




tmp7 ) ; 


(int) 


(tmpl 


+ 


tmp 6) ; 


(int) 


(tmpl 




tmp 6) ; 


(int) 


( tmp2 


+ 


tmp5 ) ; 


(int) 


(tmp2 




tmp5 ) ; 


(int) 


(tmp3 


+ 


tmp4) ; 


(int) 


( tmp3 




tmp4) ; 



_. inptr++; /* advance pointers to next column */ 

M quantptr++; 
wsptr++; 

a? 

-&* Pass 2: process rows from work array, store into output array. */ 

Note that we must descale the results by a factor of 8 == 2**3, */ 
y* and also undo the PASS1_BITS scaling. */ 

ifvsptr = workspace; 

i'for (ctr = 0; ctr < DCTSIZE; ctr++) { 
iy outptr = output_buf [ctr] + output_col; 

s /* Rows of zeroes can be exploited in the same way as we did with columns. 
-, . * However, the column calculation has created many nonzero AC terms, so 
^ a * the simplification applies less often (typically 5% to 10% of the time) 
C3 * On machines with very fast multiplication, it's possible that the 
5="s * test takes more time than it's worth. In that case this section 
! - * may be commented out. 
*/ 

tffndef NO_ZERO_ROW_TEST 

if (wsptr[l] == 0 ScSc wsptr[2] == 0 && wsptr[3] == 0 && wsptr[4] == 0 && 
wsptr [5] == 0 && wsptr [6] == 0 && wsptr [7 3 == 0) { 
/* AC terms all zero */ 

JSAMPLE dcval = range_limit [ IDESCALE (wsptr [0 3 , PASSl_BITS+3 ) 
Sc RANGE_MASK] ; 



outptr [0] = dcval 

outptr [1] = dcval 

outptr [2] = dcval 

outptr [3 3 = dcval 

outptr [4 ] = dcval 

outptr [5 3 = dcval 

outptr [6 3 = dcval 

outptr [7 3 = dcval 



wsptr += DCTSIZE; /* advance pointer to next row */ 

continue; 

} 

iendif 



/* Even part */ 



tmplO = ( (DCTELEM) wsptr[0] + (DCTELEM) wsptr[43); 
tmpll = ((DCTELEM) wsptr [0] - (DCTELEM) wsptr[43 ) ; 



tmpl3 = ((DCTELEM) wsptr [23 + (DCTELEM) wsptr[6] ) ; 

tmpl2 = MULTIPLY ( (DCTELEM) wsptr[2] - (DCTELEM) wsptr [63* FIX_1_414213562 ) 
- tmpl3; 
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tmpO = tmplO + tmpl 3 
tmp3 = tmplO - tmpl3 
tmpl = tmpll + tmpl2 
tmp2 = tmpll - tmpl 2 

/* Odd part */ 

Zl3 = (DCTELEM) wsptr[5] + (DCTELEM) wsptr[3] 

zlO = (DCTELEM) wsptr[5J - (DCTELEM) wsptr[3] 

zll = (DCTELEM) wsptrfl] + (DCTELEM) wsptr[7] 

Zl2 = (DCTELEM) wsptrfl] - (DCTELEM) wsptr[7] 

tmp7 = zll + zl3; /* phase 5 */ 

tmpll = MULTIPLY{zll - zl3, FIX_1_414213562 ) ; /* 2*c4 */ 

z5 = MULTIPLY(zlO + zl2 , FIX_1_847759065) ; /* 2*c2 */ 

tmplO = MULTIPLY(zl2 / FIX_1_082392200) - z5; /* 2*(c2-c6) */ 

tmpl2 = MULTIPLY(zlt), - FIX_2_613125930) + z5; /* -2*(c2+c6) 



tmp6 = tmpl 2 - tmp7 
tmp5 = tmpll - tmp6 
tmp4 = tmplO + tmp5 



/* phase 2 */ 



/* Final output stage: scale down by a factor of 8 and range-limit */ 
outptr [0] 
outptr [7] 



range_limit[ IDESCALE (tmpO + tmp7 , PASSl_BITS+3 ) 
& RANGE_MASK] ; 

range_limit [IDESCALE ( tmpO - tmp7, PASSl_BITS+3 ) 
& RANGE_MASK] ; 

outptr[l] = range_limit[ IDESCALE (tmpl + tmp6, PASSl_BITS+3 ) 
& RANGE_MASK] ; 

outptr [6] = range_limit [IDESCALE (tmpl - tmp6 , PASSl_BITS+3 ) 
£l & RANGE_MASK] ; 

fi=l outptr[2] = range_limit[ IDESCALE (tmp2 + tmp5, PASSl_BITS+3 ) 
~; & RANGE_MASK] ; 

-4J outptr [5] = range_limit [IDESCALE (tmp 2 - tmp5, PASSl_BITS+3 ) 
S.| & RANGE_MASK] ; 

- outptr [4] = range_limit [IDESCALE (tmp3 + tmp4, PASSl_BITS+3 ) 
^ Sc RANGE_MASK] ; 

ijl outptr [3] = range_limit [IDESCALE (tmp3 - tmp4 , PASSl_BITS+3 ) 
Z\ & RANGE_MASK] ; 



wsptr += DCTSIZE; 



/* advance pointer to next row */ 



ffe?ldif /* DCT_IFAST_SUPPORTED */ 
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/* 

* jidctint.c 
* 

* Copyright (C) 1991-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains a slow-but-accurate integer implementation of the 

* inverse DCT (Discrete Cosine Transform) . In the IJG code, this routine 

* must also perform dequantization of the input coefficients. 
* 

* A 2-D IDCT can be done by 1-D IDCT on each column followed by 1-D IDCT 

* on each row (or vice versa, but it's more convenient to emit a row at 

* a time) . Direct algorithms are also available, but they are much more 

* complex and seem not to be any faster when reduced to code. 
* 

* This implementation is based on an algorithm described in 

* C. Loeffler, A. Ligtenberg and G. Moschytz, "Practical Fast 1-D DCT 

* Algorithms with 11 Multiplications", Proc. Int'l. Conf. on Acoustics, 

* Speech, and Signal Processing 1989 (ICASSP '89), pp. 988-991. 

* The primary algorithm described there uses 11 multiplies and 29 adds. 

* We use their alternate method with 12 multiplies and 32 adds. 

* The advantage of this method is that no data path contains more than one 

* multiplication; this allows a very simple and accurate implementation in 

* scaled fixed-point arithmetic, with a minimal number of shifts. 
*/ 

#define J PEG_I NTE RNAL S 
#include "j include. h" 
#include "jpeglib.h" 

#include "jdct.h" /* Private declarations for DCT subsystem */ 

fiidef DCT_ISLOW_SUPPORTED 

This module is specialized to the case DCTSIZE = 8. 
#i4 DCTSIZE != 8 

JlSorry, this code only copes with 8x8 DCTs . /* deliberate syntax err */ 
^epdif 

45: 

\f The poop on this scaling stuff is as follows: 

yi 

ffi Each 1-D IDCT step produces outputs which are a factor of sqrt(N) 

I* larger than the true IDCT outputs. The final outputs are therefore 

a factor of N larger than desired; since N=8 this can be cured by 

p a simple right shift at the end of the algorithm. The advantage of 

JL this arrangement is that we save two multiplications per 1-D IDCT, 

**** because the yO and y4 inputs need not be divided by sqrt(N) . 
* 

* We have to do addition and subtraction of the integer inputs, which 

* is no problem, and multiplication by fractional constants, which is 

* a problem to do in integer arithmetic. We multiply all the constants 

* by CONST_SCALE and convert them to integer constants (thus retaining 

* CONST_BITS bits of precision in the constants) . After doing a 

* multiplication we have to divide the product by CONST_SCALE, with proper 

* rounding, to produce the correct output. This division can be done 

* cheaply as a right shift of CONST_BITS bits. We postpone shifting 

* as long as possible so that partial sums can be added together with 

* full fractional precision. 
* 

* The outputs of the first pass are scaled up by PASS1_BITS bits so that 

* they are represented to better- than-integral precision. These outputs 

* require BITS_IN_JSAMPLE + PASS1_BITS + 3 bits; this fits in a 16-bit word 

* with the recommended scaling. (To scale up 12 -bit sample data further, an 

* intermediate INT32 array would be needed.) 
* 

* To avoid overflow of the 32-bit intermediate results in pass 2, we must 

* have BITS_IN_JSAMPLE + CONST_BITS + PASS1_BITS <= 26. Error analysis 

* shows that the values given below are the most effective. 
*/ 

#if BITS_IN_JSAMPLE == 8 
#define CONST_BITS 13 
#define PASS1_BITS 2 
#else 
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tdefine CONST_BITS 13 
#define PASS1_BITS 1 
# end if 



+ 



se a little precision to avoid 



# 



Some C compilers fail to reduce "FIX (constant) " at compile time, thus 

causing a lot of useless floating-point operations at run time. 

To get around this we use the following pre-calculated constants. 

If you change CONST_BITS you may want to add appropriate values. 

(With a reasonable C compiler, you can just rely on the FIX() macro...) 



#if CONST_BITS ==13 

#define FIX_0_298631336 ((INT32) 

#define FIX_0_390180644 ((INT32) 

tdefine FIX_0_541196100 ((INT32) 

tdefine FIX_0_765366865 ((INT32) 

tdefine FIX_0_89997 6223 ((INT32) 

tdefine FIX_1_17587 5602 ((INT32) 

tdefine FIX_1_5013 21110 ((INT32) 

tdefine FIX_1_847 7 59065 ((INT32) 

tdefine FIX_1_961570560 ((INT32) 

tdefine FIX_2_053 119869 ((INT32) 

tdefine FIX_2_562915447 ((INT32) 

tdefine FIX_3_072711026 ( (INT32) 
telse 

tdefine FIX_0_298631336 FIX(0. 

tdefine FIX_0_390180644 FIX(0. 

tdefine FIX_0_541196100 FIX(0< 

tdefine FIX_0_7653 66865 FIX(0, 

tdefine FIX_0_899976223 FIX(0. 

tdefine FIX_1_17587 5602 FIX(1. 

tSefine FIX_1_5013 2 1110 FIX(1. 

tlfefine FIX_1_847759065 FIX(1. 

fiefine FIX_1_961570560 FIX(1. 

ifefine FIX_2_053119869 FIX(2. 

tdefine FIX_2_562915447 FIX(2. 

fMifine FIX_3_072711026 FIX(3. 
ffehdif 



2446) 


/* 


FIX(0 


298631336) 


*/ 


3196) 


/* 


FIX(0 


390180644) 


*/ 


4433) 


/* 


FIX(0 


541196100) 


*/ 


6270) 


/* 


FIX(0 


765366865) 


*/ 


7373) 


/* 


FIX(0 


899976223) 


*/ 


9633) 


/* 


FIX(1 


175875602) 


*/ 


12299) 


/* 


FIX(1 


501321110) 


*/ 


15137) 


/* 


FIX(1 


847759065) 


*/ 


16069) 


/* 


FIX(1 


961570560) 


*/ 


16819) 


/* 


FIX (2 


053119869) 


*/ 


20995) 


/* 


FIX (2 


562915447) 


*/ 


25172) 


/* 


FIX(3 


072711026) 


*/ 



298631336) 
390180644) 
541196100) 
765366865) 
899976223) 
175875602) 
501321110) 
847759065) 
961570560) 
053119869) 
562915447) 
072711026) 



/J? Multiply an INT32 variable by an INT32 constant to yield an INT32 result, 
fff For 8-bit samples with the recommended scaling, all the variable 
and constant values involved are no more than 16 bits wide, so a 
s * 16xl6->32 bit multiply can be used instead of a full 32x32 multiply. 
L*= For 12 -bit samples, a full 3 2 -bit multiplication will be needed. 
=V 

Calf BITS_IN_JSAMPLE ==8 

tdefine MULTIPLY (var , const) MULTIPLY16C16 (var, const) 
£|lse 

Refine MULTIPLY (var, const) ((var) * (const)) 
tfcndif 



/* Dequantize a coefficient by multiplying it by the multiplier-table 

* entry; produce an int result. In this module, both inputs and result 

* are 16 bits or less, so either int or short multiply will work. 
*/ 

tdefine DEQUANTIZE (coef , quantval ) ( ( (ISLOW_JIULT_TYPE) (coef ) ) * (quantval) ) 



/* 

* Perform dequantization and inverse DCT on one block of coefficients. 
*/ 

GLOBAL (void) 

jpeg_idct_islow ( j_decompress_j?tr cinfo, jpeg_component_inf o * compptr, 
JCOEFPTR coef_block, 

JSAMPARRAY output_buf, JDIMENSION OUtput_COl) 

{ 

INT32 tmpO, tmpl, tmp2 , tmp3; 
INT32 tmplO, tmpll, tmpl2, tmpl3; 
INT32 zl, z2, z3, z4, z5; 
JCOEFPTR inptr; 
ISLOW_MULT_TYPE * quantptr; 
int * wsptr; 
JSAMPROW outptr; 

JSAMPLE *range_limit = IE)CT_range_limit (cinfo) ; 
int ctr; 
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int workspace [DCTS I ZE2 3 ; ^(buffers data between passes */ 
SHI FT_TEMPS 

/* Pass 1: process columns from input, store into work array. */ 

/* Note results are scaled up by sqrt(8) compared to a true IDCT; */ 

/* furthermore, we scale the results by 2**PASS1_BITS . */ 

inptr = coef_block; 

quantptr = (ISLOW_MULT_TYPE *) compptr->dct_table; 
wsptr = workspace; 

for (ctr = DCTSIZE; ctr > 0; ctr--) { 

. /* Due to quantization, we will usually find that many of the input 

* coefficients are zero, especially the AC terms. We can exploit this 

* by short-circuiting the IDCT calculation for any column in which all 

* the AC terms are zero. In that case each output is equal to the 

* DC coefficient (with scale factor as needed) . 

* With typical images and quantization tables, half or more of the 

* column DCT calculations can be simplified this way. 
*/ 

if (inptr [DCTSIZE*1] == 0 && inptr [DCTSIZE* 2] =- 0 && 
inptr [DCTSIZE*3] == 0 && inptr [DCTSIZE* 4] == 0 && 
inptr [DCTSIZE*5] == 0 && inptr [DCTSIZE*6] — 0 && 
inptr [DCTSIZE*7] == 0) { 
/* AC terms all zero */ 

int dcval = DEQUANTIZE ( inptr [DCTSIZE*0] , quantptr [DCTSIZE* 0] ) « PASS1_BITS 




wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 



[DCTSI 
[DCTSI 
[DCTSI 
[DCTSI 
[DCTSI 
[DCTSI 
[DCTSI 
[DCTSI 



ZE*0] = dcval 

ZE*1] = dcval 

ZE*2] = dcval 

ZE*3] = dcval 

ZE*4] = dcval 

ZE*5] = dcval 

ZE*6] = dcval 

ZE*7] = dcval 



inptr++ ; 
quantptr++ ; 
wsptr++ ; 
continue; 



/* advance pointers to next column */ 



r /* Even part: reverse the even part of the forward DCT. 
/* The rotator is sqrt (2) *c (-6) . */ 

I z2 = DEQUANTIZE ( inptr [DCTSIZE* 2 3 , quantptr [DCTSIZE*2 }) ; 

* z3 = DEQUANTIZE ( inptr [DCTSIZE* 6 3 , quantptr [DCTSIZE*6 3 ) ; 

s zl * MULTIPLY(z2 + z3, FIX_0_541196100) ; 

* tmp2 = zl + MULTIPLY(z3, - FIX_1_847759065 ) ; 
J tmp3 = zl + MULTIPLY(z2, FIX_0_7653 66865 ) ; 



z2 = DEQUANTIZE ( inptr [DCTSIZE* 0 3 
z3 = DEQUANTIZE ( inptr [DCTSIZE*43 



quantptr [DCTSIZE*03 ) ; 
quantptr [DCTSIZE*4 ] ) ; 



tmpO 
tmpl 



(z2 
(z2 



z3) 
z3) 



CONST_BITS; 
CONST_BITS; 



tmplO = tmpO + tmp3; 
tmpl3 = tmpO - tmp3; 
tmpll = tmpl + tmp2; 
tmpl2 = tmpl - tmp2; 

/* Odd part per figure 8; the matrix is unitary and hence its 
* transpose is its inverse. i0..i3 are y7,y5,y3,yl respectively. 



tmpO = DEQUANTIZE ( inptr [DCTSIZE*7 3 , quantptr [DCTSIZE*7] ) 

tmpl = DEQUANTIZE ( inptr [DCTSIZE* 5 ] , quantptr [DCTSIZE* 51 ) 

tmp2 = DEQUANTIZE ( inptr [DCTSIZE* 3 3 » quantptr [DCTSI ZE*3] ) 

tmp3 = DEQUANTIZE (inptr [DCTSI ZE*1] , quantptr [DCTSIZE*!] ) 



zl = tmpO + tmp3 ; 
z2 = tmpl + tmp2 ; 
z3 = tmpO + tmp2 ; 
z4 = tmpl + tmp3 ; 

z5 = MULTIPLY{z3 + z4, FIX.1_175875602 ) ; /* 



sqrt(2) * c3 */ 



tmpO = MULTIPLY (tmpO, FIX_0_298631336) ; /* sqrt(2) * (-cl+c3+c5-c7 ) */ 
tmpl = MULTIPLY (tmpl, FIX_2_053119869) ; /* sqrt(2) * ( cl+c3-c5+c7) */ 
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tmp2 = MULTIPLY (tmp2, 
tmp3 = MULTIPLY {tmp3, 
zl = MULTIPLY (zl, 
z2 = MULTIPLY (z2, 
z3 = MULTIPLY (z3, 
z4 = MULTIPLY (z4, 



z3 += 
z4 += 



z5; 
z5; 



FI^^072711026) ; 
FI^B>01321110) ; 

FIX_^W>976223) ? /' 

FIX_2_562915447) ; /* 
FIX_1_961570560) ; /* 
FIX_0_390180644) ; f* 



/* sqrt(2) 
/* sqrt<2) 
sqrt(2) * 
sqrt(2) * 
sqrt(2) * 
sqrt(2) * 



* { cl+c3+ 

* ( cl+c3- 
(c7-c3) */ 
(-cl-c3) */ 
(-c3-c5) */ 
(c5-c3) */ 



) 



tmpO += zl + z3 
tmpl += z2 + z4 
tmp2 + = z2 + z3 
tmp3 +- zl + z4 

/* Final output stage: inputs are tmplO . . tmp!3 , tmpO . . tmp3 */ 



wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 



[DCTSIZE*0] 
[DCTSIZE*7] 
[DCTSIZE*1) 
[DCTSIZE*6] 
[DCTSIZE*2] 
[DCTSIZE*5] 
[DCTSIZE*3] 
[DCTSIZEM] 



inptr++; 
quantptr++ ; 
wsptr++; 



(int) DESCALE ( tmplO + tmp3, CONST_BITS-PASSl_BITS) 

(int) DESCALE (tmplO - tmp3, CONST_BITS-PASSl_BITS) 

(int) DESCALE ( tmpll + tmp2, C0NST_BITS-PASS1_BITS) 

(int) DESCALE ( tmpll - tmp2, C0NST_BITS-PASS1_BITS) 

(int) DESCALE ( tmpl 2 + tmpl, C0NST_BITS-PASS1_BITS) 

(int) DESCALE (tmpl2 - tmpl, C0NST_BITS-PASS1_BITS) 

(int) DESCALE ( tmpl 3 + tmpO, CONST_BITS-PASSl_BITS) 

(int) DESCALE (tmpl3 - tmpO, CONST_BITS-PASSl_BITS) 

/* advance pointers to next column */ 



} 

_/* Pass 2: process rows from work array, store into output array. */ 

M'* Note that we must descale the results by a factor of 8 == 2**3, */ 

■jy* and also undo the PASS1_BITS scaling. */ 

^wsptr = workspace; 

Jlor (ctr = 0; ctr < DCTSIZE; ctr++) { 
t| outptr = output_buf [ctr] + output_col; 

/* Rows of zeroes can be exploited in the same way as we did with columns. 
Uj * However, the column calculation has created many nonzero AC terms, so 
•Jj * the simplification applies less often (typically 5% to 10% of the time) . 
Z\ * On machines with very fast multiplication, it's possible that the 
H=? * test takes more time than it's worth. In that case this section 
=> * may be commented out. 

U V 

COfndef NO_ZERO_ROW_TEST 

rfa if (wsptr [1] == 0 && wsptr[2] == 0 && wsptr[3] == 0 && wsptr[4] == 0 && 
[** wsptr [5] == 0 wsptr [6] == 0 && wsptr [7] ==0) { 
"~l /* AC terms all zero */ 

JSAMPLE dcval = range_limit [ ( int ) DESCALE ( (INT3 2 ) wsptr [0], PASSl_BITS+3 ) 
Zl & RANGE_MASK] ; 



outptr [0] 
outptr [1] 
outptr [2] 
outptr [3] 
outptr [4 ] 
outptr [5] 
outptr [6] 
outptr [7] 



dcval ; 
dcval ; 
dcval ; 
dcval ; 
dcval ; 
dcval ; 
dcval ; 
dcval ; 



wsptr += DCTSIZE; 
continue; 



/* advance pointer to next row */ 



} 

#endif 



/* Even part: reverse the even part of the forward DCT. */ 
/* The rotator is sqrt (2 ) *c ( -6 ) . */ 

z2 = (INT32) wsptr [2] ; 
z3 = (INT32) wsptr [6] ; 

zl = MULTIPLY(z2 + z3 , FIX_0_541196100 ) ; 

tmp2 = zl + MULTIPLY(z3, - FIX_1_847759065 ) ; 

tmp3 = zl + MULTIPLY(z2, FIX_0_765366865) ; 

tmpO = ((INT3 2) wsptr [0] + (INT32) wsptr [4 3) « CONST_BITS; 

tmpl = ((INT3 2) wsptr [0] - (INT32) wsptr [4]) « CONST_BITS; 
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tmplO = tmpO + tmp3 
tmpl 3 = tmpO - tmp3 
tmpll = tmpl + tmp2 
tmpl 2 = tmpl - tmp2 

/* Odd part per figure 8; the matrix is unitary and hence its 
* transpose is its inverse. i0..i3 are y7,y5,y3,yl respectively. 



*/ 

tmpO 


= (INT32) wsptr[7]; 










tmpl 


= (INT32) wsptr[5]; 










tmp2 


= (INT32) wsptr[3]; 










trap 3 


= (INT32) wsptrfl]; 










zl = 


tmpO + tmp3 ; 










z2 = 


tmpl + tmp2 ; 










z3 = 


tmpO + tmp2 ; 










z4 = 


tmpl + tmp3 ; 










z5 = 


MULTIPLY(z3 + z4, FIX_1_175875602 ) ; 


/* sqrt(2) 


* c3 */ 




tmpO 


= MULTIPLY ( tmpO , FIX_ 


0 298631336) ; 


/* sgrt(2) 


* (-cl+c3+c5 


-c7) 


tmpl 


= MULTIPLY ( tmpl , FIX_ 


2 053119869) ; 


/* sqrt(2) 


* ( Cl+c3-c5+c7) 


tmp2 


= MULTIPLY (tmp2, FIX_ 


3 072711026) ; 


/* sqrt(2) 


* ( Cl+c3+c5 


-c7) 


tmp3 


= MULTIPLY (tmp3, FIX_ 


1 501321110) ; 


/* sqrt(2) 


* ( cl+c3-c5 


-c7) 


zl = 


MULTIPLY (zl ( - FIX_0_ 


899976223); /* 


sqrt(2) * 


(c7-c3) */ 




z2 = 


MULTIPLY (22, - FIX_2_ 


.562915447); /* 


sqrt(2) * 


(-cl-c3) */ 




z3 = 


MULTIPLY <z3, - FIX_1_ 


961570560); /* 


sqrt(2) * 


(-c3-c5) */ 




z4 = 


MULTIPLY (z4, - FIX_0_ 


390180644); /* 


sqrt(2) * 


(c5-c3) */ 




z3 + = 


= z5; 










z4 +- 


= z5; 











tmpO += zl + z3 
tmpl += z2 + z4 
tmp2 += z2 + z3 
tmp3 += zl + z4 

/* Final output stage: inputs are tmplO . . tmpl3 , tmpO . . tmp3 */ 



Li. 



outptr[0] = range_limit [ (int) DESCALE { tmplO + tmp3 , 
C0NST_BITS+PASSl_BITS+3 ) 
& RANGE_MASK] ; 
outptr[7] = range_limit [ (int) DESCALE { tmplO - tmp3, 
C0NST_BITS+PASSl_BITS+3 ) 
& RANGE_MASK] ; 
outptr[l] = range_limit [ (int) DESCALE ( tmpll + tmp2, 
C0NST_BITS+PASSl_BITS+3 ) 
& RANGE_MASK] ; 
outptr[6] = range_limit [ (int) DESCALE ( tmpll - tmp2 , 
C0NST_BITS+PASSl_BITS+3 ) 
& RANGE_MASK ] ; 
outptr[2] = range_limit [ (int) DESCALE ( tmpl2 + tmpl, 
C0NST_BITS+PASSl_BITS+3 ) 
& RANG E_MAS K ] ; 
outptr[5] = rang e_l imit [ (int) DESCALE ( tmpl2 - tmpl, 
C0NST_BITS+PASSl_BITS+3 ) 
& RANGE_MASK] ; 
outptr[3] = r ange_l imit [ (int) DESCALE ( tmpl3 + tmpO, 
C0NST_BITS+PASSl_BITS+3 ) 
& RANG E_MAS K ] ; 
outptr[4] = range_limit [ (int) DESCALE ( tmpl3 - tmpO, 
C0NST_BITS+PASSl_BITS+3 ) 
& RANGE_MASK] ; 



wsptr += DCTSIZE; 



/* advance pointer to next row */ 



#endif /* DCT_I SLOW_SUPPORTED */ 
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/* 

* jidctred.c 
* 

* Copyright (C) 1994-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains inverse-DCT routines that produce reduced-size output: 

* either 4x4, 2x2, or lxl pixels from an 8x8 DCT block. 
* 

* The implementation is based on the Loeffler, Ligtenberg and Moschytz (LL&M) 

* algorithm used in jidctint.c. We simply replace each 8-to-8 1-D IDCT step 

* with an 8-to-4 step that produces the four averages of two adjacent outputs 

* (or an 8 -to- 2 step producing two averages of four outputs, for 2x2 output) . 

* These steps were derived by computing the corresponding values at the end 

* of the normal LL&M code, then simplifying as much as possible. 
* 

* lxl is trivial: just take the DC coefficient divided by 8. 

* See jidctint.c for additional comments. 
*/ 

#define JPEG_INTERNALS 
#include " j include . h " 
#include "jpeglib.h" 

#include "jdct.h" /* Private declarations for DCT subsystem */ 

#ifdef IDCT_SCALING_SUPPORTED 




* This module is specialized to the case DCTSIZE = 8. 



#3± DCTSIZE != 8 

y Sorry, this code only copes with 8x8 DCTs . 
fcehdif 



/* deliberate syntax err */ 



Af J Scaling is the same as in jidctint.c. 

#t BITS_IN_JSAMPLE == 8 
#3efine CONST_BITS 13 
tdefine PASS1_BITS 2 
$else 

Mefine CONST_BITS 13 
fpefine PASS1_BITS 1 

Candif 

s y 

Some C compilers fail to reduce "FIX (constant) " at compile time, thus 
s^i causing a lot of useless floating-point operations at run time. 

To get around this we use the following pre-calculated constants, 
yf If you change CONST_BITS you may want to add appropriate values. 
* (With a reasonable C compiler, you can just rely on the FIX() macro...) 
*/ 



lose a little precision to avoid overflow */ 



#if CONST_BITS 
#define FIX_0 
#define FIX_0 
#define FIX_0_i 
#define FIX_0. 
#define FIX_0_ 
#define FIX_0_ 
#define FIX_0. 
#define FIX_1 
#define FIX„1 
#define FIX_1 
#define FIX_1_ 
#define FIX_2 
#define FIX_2_ 
#define FIX_3. 
#else 

#define FIX_0. 
#define FIX_0. 
#define FIX_0. 
#define FIX_0. 
#define FIX_0. 
#define FIX_0. 
#define FIX_0. 
#define FIX 1 



== 13 
,211164243 
509795579 
601344887 
720959822 
765366865 
850430095 
899976223 
061594337 
272758580 
451774981 
847759065 
172734803 
562915447 
624509785 

211164243 
.509795579 
601344887 
720959822 
765366865 
850430095 
899976223 
061594337 



( (INT32) 


1730) 


/* 


FIX(0 


211164243) 


*/ 


( (INT32) 


4176) 


/* 


FIX(0 


509795579) 


*/ 


( (INT32) 


4926) 


/* 


FIX(0 


601344887) 


*/ 


( (INT32) 


5906) 


/* 


FIX(0 


720959822) 


*/ 


( (INT32) 


6270) 


/* 


FIX(0 


765366865) 


*/ 


( (INT32) 


6967) 


/* 


FIX(0 


850430095) 


*/ 


( (INT32) 


7373) 


/* 


FIX(0 


899976223) 


*/ 


( (INT32) 


8697) 


/* 


FIX(1 


061594337) 


*/ 


( (INT32) 


10426) 


/* 


FIX(1 


272758580) 


*/ 


( (INT32) 


11893) 


/* 


FIX(1 


451774981) 


*/ 


( (INT32) 


15137) 


/* 


FIX(1 


847759065) 


*/ 


( (INT32) 


17799) 


/* 


FIX(2 


172734803) 


*/ 


( (INT32) 


20995) 


/* 


FIX(2 


562915447) 


*/ 


( (INT32) 


29692) 


/* 


FIX(3 


624509785) 


*/ 



FIX{0. 
FIX(0. 
FIX(0, 
FIX(0 , 
FIX(0. 
FIX(0 , 
FIX(0, 
FIX(1, 



211164243) 
509795579) 
601344887) 
720959822) 
765366865) 
850430095) 
899976223) 
061594337) 
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#def ine 
Sdef ine 
#def ine 
# define 
#def ine 
#def ine 
#endif 



FIX_1_272758580 
FIX_1„451774981 
FIX_1_847759065 
FIX_2_172734803 
FIX_2_562915447 
FIX_3_624509785 



FIX 
FIXI 
FIX 
FIX (2 



,72758580) 
1774981) 
'47759065) 
172734803) 



FIX{2. 562915447) 
FIX(3. 624509785) 



/* Multiply an INT3 2 variable by an INT32 constant to yield an INT32 result. 

* For 8-bit samples with the recommended scaling, all the variable 

* and constant values involved are no more than 16 bits wide, so a 

* 16xl6~>32 bit multiply can be used instead of a full 32x32 multiply. 

* For 12-bit samples, a full 32-bit multiplication will be needed. 
*/ 

#if BITS_IN_JSAMPLE == 8 

#de f ine MULTI PLY ( va r , c ons t ) MULTI PLY1 6C 1 6 ( var , cons t ) 
#else 

#def ine MULTIPLY (var, const) ((var) * (const)) 
#endif 



/* Dequantize a coefficient by multiplying it by the multiplier-table 

* entry; produce an int result. In this module, both inputs and result 

* are 16 bits or less, so either int or short multiply will work. 
*/ 

#def ine DEQUANTIZE ( coef , quantval ) ( ( ( ISLOW_ J MULT_TYPE) (coef)) * (quantval) ) 



*f Perform dequantization and inverse DCT on one block of coefficients, 
3p producing a reduced-size 4x4 output block. 

G*Ld)BAL(void) 

j : p.eg_idct_4x4 ( j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
« JCOEFPTR coef_block, 

JSAMPARRAY output_buf, JDIMENSION OUtput_COl) 

m 

=|INT32 tmpO, tmp2, tmplO, tmpl2 ; 
-^NT32 zl, z2, z3, z4 ; 
s JCOEFPTR inptr; 
i = JSLOW_MULT_TYPE * quantptr ; 
Lint * wsptr; 
y&SAMPROW outptr; 

nJJSAMPLE *range_limit = IDCT_range_limit (cinfo) ; 
r/ant ctr; 

2^int workspace [DCTS I ZE* 4] ; /* buffers data between passes */ 
Q3HIFT_TEMPS 

—/* Pass 1: process columns from input, store into work array. */ 
inptr = coef_block; 

quantptr = (ISLOW_MULT_TYPE *) compptr->dct„table ; 
wsptr = workspace ; 

for (ctr = DCTSIZE; ctr > 0; inptr++, quantptr++, wsptr++, ctr--) { 

/* Don't bother to process column 4, because second pass won't use it */ 
if (ctr == DCTSIZE-4) 
continue; 

if (inptr [DCTS I ZE*1] == 0 && inptr [DCTSIZE* 2 ] == 0 && 

inptr [DCTSIZE* 3) == 0 && inptr [DCTSIZE*5] == 0 && 

inptr [DCTSIZE* 6] = = 0 && inptr [DCTSIZE*7] == 0) { 

/* AC terms all zero; we need not examine term 4 for 4x4 output */ 

int dcval = DEQUANTIZE (inptr [DCTSIZE* 0] , quantptr [DCTSIZE*0] ) « PASS1_BITS 

wsptr [DCTSIZE*0] = dcval; 

wsptr [DCTSIZE* 1] = dcval; 

wsptr [DCTSIZE* 2] = dcval; 

wsptr [DCTSIZE* 3] = dcval; 

continue ; 

} 

/* Even part */ 

tmpO = DEQUANTI ZE ( inptr [DCTSIZE* 0 ] , quantptr [DCTSIZE*0] ) ; 
tmpO «= (CONST„BITS+l) ; 
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z2 = DEQUANTIZE { inptr [DCjflBKE* 2 J , quantptr [DCTSIZE*2] ) ; 
z3 = DEQUANTIZE{inptr[DC^^p:*6J , quantptr [DCTSIZE* 6] ) ; 



tmp2 = MULTIPLY{z2, FIX_1_847759065) + MULTIPLY(z3, - FIX_0_765366865 ) 



tmplO = tmpO + tmp2 ; 
tmpl2 = tmpO - tmp2 ; 

/* Odd part */ 

zl = DEQUANTIZE ( inptr [DCTSIZE*7 ] , quantptr [DCTSIZE*7 ]) ; 

z2 = DEQUANTIZE ( inptr [DCTSIZE* 5] , quantptr [DCTSIZE*5] ) ; 

z3 = DEQUANTIZE ( inptr [DCTSIZE*3 ] , quantptr [DCTSIZE*3 3 ) ; 

z4 = DEQUANTIZE (inptr [DCTSIZE*!] , quantptr [DCTSIZE* 13 ) ; 

tmpO = MULTIPLY ( zl , - FIX_0_211164243) /* sqrt(2) * (c3-cl) */ 
+ MULTIPLY(z2, FIX_1__451774981) /* sqrt(2) * (c3+c7) */ 
+ MULTIPLY(z3, - FIX_2_172734803 ) /* sqrt{2) * (-cl-c5) */ 
+ MULTIPLY (z4, FIX_1_0615943 37 ) ; /* sqrt{2) * (c5+c7) */ 



tmp2 = MULTIPLY { zl , - FIX_0_509795579 ) /* sqrt{2) * (c7-c5) */ 
+ MULTIPLY{z2, - FIX_0_601344887 ) /* sqrt(2) * (c5-cl) */ 
+ MULTIPLY(z3, FIX_0_899976223 ) /* sqrt(2) * (c3-c7) */ 
+ MULTIPLY (z4, FIX_2_562915447 ) ; /* sqrt(2) * (cl+c3) */ 



/* Final output stage */ 



wsptr [DCTSIZE'O] 
wsptr [DCTSIZE*3j 
wsptr [DCTSIZE* 1] 
wsptr [DCTSIZE* 2 ] 

t \ 

dl* Pass 2: process 4 rows from work array, store into output array. */ 

^frsptr = workspace ; 

-JJor (ctr = 0; ctr < 4; ctr++) { 

%i outptr = output_buf [ctr ] + output_col; 

.1 /* It's not clear whether a zero row test is worthwhile here ... */ 
fcilfndef NO_ZERO_ROW_TEST 

Z\ if (wsptr[lj == 0 && wsptr[2] == 0 && wsptr[3] == 0 && 
= ^ wsptr[5] == 0 && wsptr[63 == 0 && wsptr[7] == 0) { 
= /* AC terms all zero */ 

^ JSAMPLE dcval = range_limit [ { int) DESCALE ( (INT3 2 ) wsptr[03, PASSl_BITS+3 ) 
& RANGE_MASK] ; 

nl outptr [0 3 = dcval; 

^ outptr [13 = dcval; 

~H outptr [2 ] = dcval; 

fl outptr [3 3 = dcval; 

wsptr += DCTSIZE; /* advance pointer to next row */ 

continue ; 

} 

#endif 



= (int) DESCALE (tmplO + 

= (int) DESCALE {tmplO - 

= (int) DESCALE (trap 12 + 

= (int) DESCALE (trap 12 - 



tmp2, CONST_BITS-PASSl_BITS+l) 

tmp2, CONST_BITS-PASSl_BITS+l) 

tmpO, C0NST_BITS-PASS1_BITS+1) 

tmpO, CONST_BITS-PASSl_BITS+l) 



/* Even part */ 



tmpO = ((INT32) wsptr[0]) « (CONST_BITS+l) ; 

tmp2 = MULTIPLY ( (INT32) wsptr[23, FIX_1_847759065) 
+ MULTIPLY { ( INT32 ) wsptr [63, - FIX_0_7653 66865 ) ; 



tmplO = tmpO + tmp2; 
tmpl2 = tmpO - tmp2; 

/* Odd part */ 

zl = (INT32) wsptr [7] 

z2 = (INT32) wsptr[5] 

z3 = (INT32) wsptr[3] 

z4 = (INT32) wsptr[l] 



tmpO = MULTIPLY { zl , - FIX_0_211164243) /* sqrt(2) * (c3-cl) */ 
+ MULTIPLY (z2, FIX_1_451774981 ) /* sqrt(2) * (c3+c7) */ 
+ MULTIPLY(z3, - FIX_2__172734803 ) /* sqrt(2) * (-cl-c5) */ 
+ MULTIPLY(z4 , FIX_1__061594337 ) ; /* sqrt(2) * (c5+c7) */ 

tmp2 = MULTIPLY{zl, - FIX_0_509795579) /* sqrt(2) * (c7-c5) */ 
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+ MULTIPLY(z2, - FIX_0_6^|44887) /* sqrt(2) * (c5-cl) */ 
+ MULTIPLY(z3, FIX_0_89(^«23 ) /* sqrt(2) * <c3-c7) */ 
+ MULTIPLY (z4. FIX_2_56SBT447 ) ; /* sqrt(2) * (cl+c3) */ 

/* Final output stage */ 

outptr[0] = range_limit [ (int) DESCALE ( tmplO + tmp2, 
CONST_BITS+PASSl_BITS+3+l) 
& RANGE_MASK] ; 
outptr[3] = range_limit [ (int) DESCALE ( tmplO - tmp2 , 
CONST_BITS+PASSl_BITS+3+l) 
& RANGE_MASK] ; 
outptr[l] = range_limit [ (int) DESCALE ( tmpl2 + tmpO, 
CONST_BITS+PASSl_BITS+3+l) 
& RANGE_MASK] ; 
outptr[2] = range_limit [ (int) DESCALE ( tmpl2 - tmpO, 
CONST_BITS+PASSl_BITS+3+l) 
& RANGE_MASK] ; 

wsptr += DCTSIZE; /* advance pointer to next row */ 

} 

} 



/* 

* Perform dequantization and inverse DCT on one block of coefficients, 

* producing a reduced-size 2x2 output block. 
*/ 

GLOBAL (void) 

jpeg_idct_2x2 ( j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JCOEFPTR coef_block, 
~ s JSAMPARRAY output_buf, JDIMENSION output_COl) 

m 

r=2NT32 tmpO, tmplO, zl; 
^JCOEFPTR inptr; 
JlSLOW_MULT_TYPE * quantptr; 
Vint * wsptr; 
^JSAMPROW outptr; 

^SAMPLE *range_limit = IDCT_range_limit (cinfo) ; 
J ant ctr; 

n'int workspace [DCTSI2E*2] ; /* buffers data between passes */ 
M %HIFT_TEMPS 

!_,=/* Pass 1: process columns from input, store into work array. */ 
Ljinptr = coef_block; 

r1]quantptr = (ISLOW_MULT_TYPE *) compptr->dct_table; 
l : >/sptr = workspace ; 

^sfor (ctr = DCTSIZE; ctr > 0; inptr++, quantptr++, wsptr++, ctr--) { 
PI /* Don't bother to process columns 2,4,6 */ 

pi if (ctr == DCTSIZE-2 | | ctr == DCTSIZE-4 | | ctr == DCTSIZE- 6) 
=^ continue; 

if (inptr [DCTSIZE*1] == 0 && inptr [DCTSIZE*3 ] == 0 && 
inptr [DCTSIZE* 5] == 0 && inptr [DCTSIZE*7] ==0) { 

/* AC terms all zero; we need not examine terms 2,4,6 for 2x2 output */ 
int dcval = DEQUANTIZE (inptr [DCTSIZE*0] , quantptr [DCTSIZE*0 ] ) « PASS1_BITS 

wsptr [DCTSIZE*0] = dcval; 
wsptr [DCTSIZE* 1] = dcval; 

continue; 

} 

/* Even part V 

zl = DEQUANTIZE ( inptr [DCTSIZE* 0] , quantptr [DCTS I ZE*0] ) ; 
tmplO = zl « (CONST_BITS+2) ; 

/* Odd part */ 

Zl = DEQUANTIZE ( inptr [DCTSIZE*7 ] , quantptr [DCTSIZE*7 ]) ; 

tmpO = MULTIPLY (zl, - FIX_0_720959822) ; /* sqrt(2) * (c7-c5+c3-cl) */ 

zl = DEQUANTIZE (inptr [DCTSIZE*5] , quantptr [DCTSIZE*5] ) ; 

tmpO += MULTIPLY (zl, FIX_0_850430095) ; /* sqrt(2) * ( -cl+c3+c5+c7 ) */ 

zl = DEQUANTIZE { inptr [DCTSIZE*3 ] , quantptr [DCTSIZE*3 ]) ; 

tmpO += MULTIPLY (zl, - FIX_1_272758580) ; /* sqrt(2) * (-cl+c3-c5-c7 ) */ 

zl = DEQUANTIZE ( inptr [DCTSIZE*1] , quantptr [DCTS I ZE*1 ]) ; 

tmpO += MULTIPLY (zl, FIX_3_624509785) ; /* sqrt(2) * (cl+c3+c5+c7 ) */ 
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/* Final output stage */ 



^^:ALE( tmplO + tmpC CONST_BITS-PAS^^I 



wsptr[DCTSIZE*0] = ( int) ^BrCALE ( tmplO + tmpO, CONST_BITS-PASSllBlTS+2 ) ; 

wsptr [DCTSIZE* 1] = (int) DESCALE ( tmplO - tmpO, CONST_BITS-PASSl_BITS+2 ) ; 

} 

/* Pass 2: process 2 rows from work array, store into output array. */ 

wsptr - workspace; 

for (ctr = 0; ctr < 2; ctr++) { 

outptr = output_buf [ctr] + output_col; 

/* It's not clear whether a zero row test is worthwhile here . . . */ 

#ifndef NO_ZERO_ROW_TEST 

if {wsptr [1] == 0 && wsptr [3] == 0 && wsptr [5] == 0 && wsptr [7] == 0) { 
/* AC terms all zero */ 

JSAMPLE dcval = range_limi t [ ( int) DESCALE ( (INT32 ) wsptr[0J, PASSl_BITS+3 ) 
Sc RANGE_MASK] ; 

outptr [0] = dcval; 
outptr [1] = dcval; 

wsptr += DCTSIZE; /* advance pointer to next row */ 

continue; 

} 

#endif 

/* Even part *7 

tmplO = {(INT32) wsptrfO]) « (CONST„BITS+2 ) ; 
/* Odd part */ 

i S 

J] tmpO = MULTIPLY { (INT32) wsptr[7], - FIX_0_720959822 ) /* sqrt<2) * (c7-c5+c3-cl ) */ 
m + MULTIPLY ( (INT32) wsptr [5], FIX_0_850430095) /* sqrt(2) * { -cl+c3+c5+c7 ) */ 
^ + MULTIPLY ({ INT3 2 ) wsptr [3], - FIX_1_272758580 ) /* sqrt{2) * (-cl+c3-c5-c7) */ 
dl + MULTIPLY { (INT3 2) wsptr[l], FIX_3_624509785) ; /* sqrt(2) * (cl+c3+c5+c7 ) */ 

?Z /* Final output stage */ 

J1 outptr[0] = range_limit [ (int) DESCALE ( tmplO + tmpO, 

CONST_BITS+PASSl_BITS+3+2 ) 
& RANGE_MASK] ; 
= outptrfl] = range_limit t (int) DESCALE ( tmplO - tmpO, 

CONST_BITS+PASSl_BITS+3+2 ) 
^7 & RANGE_MASK] ; 



wsptr += DCTSIZE; /* advance pointer to next row */ 



* Perform dequantization and inverse DCT on one block of coefficients, 

* producing a reduced-size lxl output block. 
*/ 

GLOBAL (void) 

jpeg_idct_lxl ( j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JCOEFPTR coef_block, 

JSAMPARRAY output_buf , JDIMENSION OUtput_COl) 

{ 

int dcval; 

ISLOW_MULT_TYPE * quantptr; 

JSAMPLE *range_limit = IDCT_range_limit (cinfo) ; 
SHIFT_TEMPS 

/* We hardly need an inverse DCT routine for this: just take the 
* average pixel value, which is one-eighth of the DC coefficient. 
*/ 

quantptr = (ISLOW_MULT_TYPE *) compptr->dct_table ; 
dcval = DEQUANTIZE(coef_block[03 , quantptr [0] ) ; 
dcval = (int) DESCALE ( (INT32) dcval, 3); 

output_buf [0] [output_col] = range_limit [dcval & RANGE_MASK] ; 

} 

#endif /* IDCT_SCALING„SUPPORTED */ 
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/* 

* jmemmgr.c 
* 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 

* This file contains the JPEG system- independent memory management 

* routines. This code is usable across a wide variety of machines; most 

* of the system dependencies have been isolated in a separate file. 

* The major functions provided here are: 

* * pool-based allocation and freeing of memory; 

* * policy decisions about how to divide available memory among the 

* virtual arrays; 

* * control logic for swapping virtual arrays between main memory and 

* backing storage. 

* The separate system-dependent file provides the actual backing-storage 

* access code, and it contains the policy decision about how much total 

* main memory to use. 

* This file is system-dependent in the sense that some of its functions 

* are unnecessary in some systems. For example, if there is enough virtual 

* memory so that backing storage will never be used, much of the virtual 

* array control logic could be removed. (Of course, if you have that much 

* memory then you shouldn't care about a little bit of unused code...) 
*/ 

#define JPEG_INTERNALS 

#define AM_MEMORY_MANAGER /* we define jvirt_Xarray_control structs */ 
#include ■ j include . h" 
#include ■ jpeglib . h" 

iinclude "jmemsys.h" /* import the system-dependent declarations */ 

#Ifndef NO_GETENV 

#Mndef HAVE_S TDL I B_H /* <stdlib.h> should declare getenvO */ 

extern char * getenv JPP( (const char * name) ) ; 

tendif 

tlefidif 

/% 

y^j Some important notes : 

f?j The allocation routines provided here must never return NULL. 
They should exit to error_exit if unsuccessful. 

=* 

L*= It's not a good idea to try to merge the sarray and barray routines, 
even though they are textually almost the same, because samples are 
^ usually stored as bytes while coefficients are shorts or ints . Thus, 
fftp in machines where byte pointers have a different representation from 
V*i word pointers, the resulting machine code could not be the same. 

* Many machines require storage alignment: longs must start on 4-byte 

* boundaries, doubles on 8-byte boundaries, etc. On such machines, mallocO 

* always returns pointers that are multiples of the worst-case alignment 

* requirement, and we had better do so too. 

* There isn't any really portable way to determine the worst-case alignment 

* requirement. This module assumes that the alignment requirement is 

* multiples of sizeof (ALIGN_TYPE) . 

* By default, we define ALIGN_TYPE as double. This is necessary on some 

* workstations (where doubles really do need 8-byte alignment) and will work 

* fine on nearly everything. If your machine has lesser alignment needs, 

* you can save a few bytes by making ALIGN_TYPE smaller. 

* The only place I know of where this will NOT work is certain Macintosh 

* 680x0 compilers that define double as a 10-byte IEEE extended float. 

* Doing 10-byte alignment is counterproductive because longwords won't be 

* aligned well. Put "#define ALIGN_TYPE long" in jconfig.h if you have 

* such a compiler. 
*/ 

tifndef ALIGN_TYPE /* so can override from jconfig.h */ 

#define ALIGNJTYPE double 

tendif 



* We allocate objects from "pools", where each pool is gotten with a single 

* request to jpeg_get_small ( ) or jpeg_get_large ( ) . There is no per-object 

* overhead within a pool, except for alignment padding. Each pool has a 
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* header with a link to the^^^t pool of the same class. 

* Small and large pool head^^^re identical except that the la 

* link pointer must be FAR SHe0x86 machines. 

* Notice that the "real" header fields are union' ed with a dummy ALIGN_TYPE 

* field. This forces the compiler to make SIZEOF (small_pool_hdr) a multiple 

* of the alignment requirement of ALIGN_TYPE. 
*/ 

typedef union small_pool_struct * small_pool_ptr ; 

typedef union small_pool_struct { 
struct { 

small_pool_ptr next; /* next in list of pools */ 

size_t bytes_used; /* how many bytes already used within pool */ 

size_t bytes_left; /* bytes still available in this pool */ 

} hdr; 

ALIGN_TYPE dummy; /* included in union to ensure alignment */ 

} small_pool_hdr; 

typedef union large_pool_struct * large_pool_ptr; 

typedef union large_pool_struct { 
struct { 

large_pool_ptr next; /* next in list of pools */ 

size_t bytes_used; /* how many bytes already used within pool */ 

size_t bytes_left; /* bytes still available in this pool */ 

} hdr; 

ALIGN_TYPE dummy; /* included in union to ensure alignment */ 

} large_pool_hdr ; 



*-'Here is the full definition of a memory manager object. 

4) 

typedef struct { 

Ustruct jpeg_memory__mgr pub; /* public fields */ 

mi y* Each pool identifier (lifetime class) names a linked list of pools. */ 
^Msmall_pool_ptr small_list [ JPOOL_NUMPOOLS J ; 
Jlarge_pool_ptr large_list [ JPOOL_NUMPOOLS] ; 

Since we only have one lifetime class of virtual arrays, only one 
s * linked list is necessary (for each datatype). Note that the virtual 
i_s. * array control blocks being linked together are actually stored somewhere 
L,I * in the small-pool list. 
U */ 

f| Jj vi r t_s arr ay_p t r vi r t_sar r ay_ 1 i s t ; 
V~j vi r t_ barr ay_p t r vi r t_bar r ay_l i s t ; 

r|/* This counts total space obtained from jpeg_get_small/ large */ 
==long total_space_allocated; 

/* alloc_sarray and alloc_barray set this value for use by virtual 
* array routines . 
*/ 

JDIMENSION las t_rowsper chunk; /* from most recent alloc_sarray/barray */ 
} my_memory_mgr ; 

typedef my_memory_mgr * my_mem_J?tr ; 



/* 

* The control blocks for virtual arrays. 

* Note that these blocks are allocated in the "small" pool area. 

* System-dependent info for the associated backing store (if any) is hidden 

* inside the backing_store_inf o struct. 
*/ 

struct jvirt_sarray_control { 

JSAMPARRAY mem_buffer; /* => the in-memory buffer */ 

JDIMENSION rows_in_array; /* total virtual array height */ 

JDIMENSION samplesperrow; /* width of array (and of memory buffer) */ 

JDIMENSION maxaccess; /* max rows accessed by access_virt_sarray */ 

JDIMENSION rows_in_mem; /* height of memory buffer */ 

JDIMENSION rowsperchunk; /* allocation chunk size in mem_buffer */ 

JDIMENSION cur_start_row; /* first logical row # in the buffer */ 

JDIMENSION f irst_undef_row; /* row # of first uninitialized row */ 

boolean pre_zero; /* pre-zero mode requested? */ 

boolean dirty; /* do current buffer contents need written? */ 
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}; 



boolean b__s_open; / 
jvirt_sarray__ptr next; 
backing_store_inf o b_s_inf 



struct jvirt_barray_control 
JBLOCKARRAY mem__buffer; 
JDIMENSION rows_in_array; 
JDIMENSION blocksperrow; 
JDIMENSION maxaccess ; 
JDIMENSION rows_in__mem; 
JDIMENSION rowsper chunk; 
JDIMENSION cur_start_row; 
JDIMENSION f irst_undef_row; 
boolean pre_zero; / 
boolean dirty; / 



cking-store data valid? */ 
nk to next virtual sarray contr 
System-dependent control info 



♦ 



ck */ 



=> the in-memory buffer */ 
total virtual array height */ 
width of array (and of memory buffer) */ 
max rows accessed by access_virt_ barray */ 
height of memory buffer */ 
allocation chunk size in mem_jDuffer */ 
first logical row # in the buffer */ 
/* row # of first uninitialized row */ 
pre- zero mode requested? */ 
do current buffer contents need written? */ 



}; 



boolean b_s_open; /* is backing- store data valid? */ 

jvirt_barray__ptr next; /* link to next virtual barray control block 
backing_store_inf o b_s_info; /* System-dependent control info */ 



#ifdef MEM_STATS /* optional extra stuff for statistics */ 

LOCAL (void) 

print_mem_stats ( j_common_ptr cinfo, int pool_ id) 
{ 

my_mem__ptr mem = (my_mem_ptr) cinfo->mem; 
small_pool_ptr shdr_ptr; 
large_pool_ptr lhdr_ptr; 

pj^* Since this is only a debugging stub, we can cheat a little by using 
-„t* fprintf directly rather than going through the trace message code. 
This is helpful because message parm array can't handle longs. 

01*/ 

"-fprintf (stderr, "Freeing pool %d, total space = %ld\n", 
^1 pool_id, mem- > to tal_space_al located) ; 

. f |or (lhdr_ptr = mem->large_list tpool_id] ; lhdr_ptr != NULL; 

lhdr_ptr = lhdr_ptr->hdr . next ) { 
J3 fprintf (stderr , " Large chunk used %ld\n", 
f=h (long) lhdr_ptr->hdr .bytes_used) ; 

; 4 

L£or (shdr_ptr = mem->small_list [pool_id] ; shdr_ptr ! = NULL; 
L_ shdr_ptr = shdr_ptr->hdr .next) { 

fprintf (stderr , ■ Small chunk used %ld free %ld\n M , 
f|j (long) shdr _ ptr->hdr .bytes_used, 

l\ (long) shdr_ptr->hdr .bytes — lef t) ; 

3 
El 

#gndif /* MEM_STATS */ 



LOCAL (void) 

out_ of_memory ( j_common__ptr cinfo, int which) 

/* Report an out-of -memory error and stop execution */ 

/* If we compiled MEM_STATS support, report alloc requests before dying */ 
{ 

#ifdef MEM_STATS 

cinfo->err->trace_level =2; /* force self_destruct to report stats */ 
#endif 

ERREXIT1 (cinfo, JERR_OUT_0F_MEM0RY , which); 

} 



/* 

* Allocation of " small M objects. 
* 

* For these, we use pooled storage. When a new pool must be created, 

* we try to get enough space for the current request plus a "slop" factor, 

* where the slop will be the amount of leftover space in the new pool. 

* The speed vs. space tradeoff is largely determined by the slop values. 

* A different slop value is provided for each pool class (lifetime) , 

* and we also distinguish the first pool of a class from later ones. 

* NOTE: the values given work fairly well on both 16- and 32-bit-int 

* machines, but may be too small if longs are 64 bits or more. 
*/ 
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static const size_t f irst_popi^&lop( JPOOL__NUMPOOLS ] = 

1600, /* first^BllANENT pool */ 

16000 /* first IMAGE pool */ 

}; 



static const size_t extra_j?ool_slop [ JPOOL_NUMPOOLS ] = 
{ 

0, /* additional PERMANENT pools */ 

5000 /* additional IMAGE pools */ 

}; 

#define MIN_SLOP 50 /* greater than 0 to avoid futile looping */ 



METHODDEF (void *) 

alloc_small ( j_common_ptr cinfo, int pool_id, size_t sizeof object) 

/* Allocate a "small" object */ 

{ 

my_mem_ptr mem = (my__mem_ptr ) cinfo->mem; 
small_pool_ptr hdr_ptr, prev_hdr_ptr ; 
char * data_ptr; 

size_t odd_bytes, min_request, slop; 

/* Check for unsatisf iable request (do now to ensure no overflow below) */ 
if (sizeofobject > (size_t) ( MAX^ALLOC.CHUNK- SIZEOF (small_pool_hdr) ) ) 
out_of_memory (cinfo, 1); /* request exceeds malloc's ability */ 

/* Round up the requested size to a multiple of SIZEOF (ALIGN__TYPE) */ 
odd_bytes = sizeofobject % SIZEOF <ALIGN_TYPE) ; 
if (odd_bytes > 0) 

sizeofobject += SIZEOF (ALIGN_TYPE) - odd_bytes; 

dj* See if space is available in any existing pool */ 
nif (pool_id < 0 | | pool_id >= JPOOL_NUMPOOLS) 

-.1 ERREXITl (cinfo, JERR_BAD_POOL_ID, pool_id) ; /* safety check */ 

'4i>rev_hdr_ptr = NULL; 

Shdr_ptr = mem->small_list [pool_id] ; 

. ? §rtiile (hdr_ptr != NULL) { 

if (hdr_ptr->hdr ,bytes_lef t >= sizeofobject) 
Jj break; /* found pool with enough space */ 

fTs prev_hdr_ptr = hdr_ptr; 
: - hdr_ptr = hdr_ptr->hdr .next ; 
s } 

L.J* Time to make a new pool? */ 
ULf (hdr__ptr == NULL) { 

r=f /* min_request is what we need now, slop is what will be leftover */ 
*jt min_request = sizeofobject + SIZEOF (small_pool_hdr) ; 
N if (prev_hdr_ptr == NULL) /* first pool in class? */ 
Q slop = f irst_pool_slop [pool_id] ; 
pi else 

*=- 5 slop = extra_jpool_slop[pool_id] ; 

/* Don't ask for more than MAX_ALLOC_CHUNK */ 

if (slop > (size_t) (MAX_ALLOC_CHUNK-min_request ) ) 

slop = (size_t) (MAX_ALLOC_CHUNK-min_request) ; 
/* Try to get space, if fail reduce slop and try again */ 
for (;;) { 

hdr_ptr = ( small_pool_ptr ) jpeg„get_small (cinfo, min_request + slop); 
if (hdr_ptr != NULL) 
break ; 

slop /= 2; 

if (slop < MIN_SLOP) /* give up when it gets real small */ 
out_of_memory (cinfo, 2); /* jpeg_get_small failed */ 
} 

mem- > to tal_space_al located += min_request + slop; 

/* Success, initialize the new pool header and add to end of list */ 
hdr_ptr->hdr . next = NULL; 
hdr _ptr->hdr .bytes_used = 0; 

hdr_ptr->hdr .bytes_lef t = sizeofobject + slop; 

if (prev_hdr_ptr == NULL) /* first pool in class? */ 

mem->small_list [pool_id] = hdr_ptr; 
else 

prev_hdr_ptr->hdr .next = hdr_ptr; 

} 

/* OK, allocate the object from the current pool */ 

data_ptr = (char *) (hdr_ptr + 1); /* point to first data byte in pool */ 
data_ptr += hdr_ptr->hdr .bytes_used; /* point to place for object */ 
hdr_j?tr->hdr .bytes_used += sizeofobject; 
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hdr_ptr->hdr .bytes_lef t -= ^^^ofobject; 

return (void *) data_ptr; 

} 



/* 

* Allocation of "large" objects. 
* 

* The external semantics of these are the same as "small" objects, 

* except that FAR pointers are used on 80x86. However the pool 

* management heuristics are quite different. We assume that each 

* request is large enough that it may as well be passed directly to 

* jpeg_get_large; the pool management just links everything together 

* so that we can free it all on demand. 

* Note: the major use of "large" objects is in JSAMPARRAY and JBLOCKARRAY 

* structures. The routines that create these structures (see below) 

* deliberately bunch rows together to ensure a large request size. 
*/ 

METHODDEF { vo i d *) 

alloc_large ( j_common_ptr cinfo, int pool_id, size_t sizeof object ) 

/* Allocate a "large" object */ 

{ 

my_mem_ptr mem = (my_mem_ptr) cinfo->mem; 
large_pool_ptr hdr_ptr; 
size_t odd_bytes; 

/* Check for unsatisf iable request (do now to ensure no overflow below) */ 
if (sizeofobject > (size_t) <MAX_JVLLOC_CHUNK- SIZEOF (large_pool_hdr ) ) ) 
out_of_memory (cinfo, 3); /* request exceeds malloc's ability */ 

Q* Round up the requested size to a multiple of SIZEOF (ALIGN_TYPE) */ 
Jodd_bytes = sizeofobject % SIZEOF (ALIGN_TYPE) ; 
.=If (odd_bytes > 0) 

4; sizeofobject += SIZEOF (ALIGN_TYPE) - odd_bytes; 
-, '/* Always make a new pool */ 

If (pool_id < 0 | | pool_id >= JPOOL_NUMPOOLS) 

4} ERREXITl (cinfo, JERR_BAD_POOL_ID, pool_id) ; /* safety check */ 

2fidr_ptr = (large_pool_ptr) jpeg_get_large (cinfo, sizeofobject + 
nJ SIZEOF(large_pool„hdr) ) ; 

= if (hdr_ptr == NULL) 

f. out_of__memory (cinfo, 4); /* jpeg_get_large failed */ 
^mem->total_space_allocated += sizeofobject + SIZEOF (large__pool„hdr) ; 

SV* Success, initialize the new pool header and add to list */ 
^fidr_ptr->hdr .next = mem->large_list [pool_id] ; 

Sff* We maintain space counts in each pool header for statistical purposes, 
r-= * even though they are not needed for allocation. 

zl */ 

L3idr_ptr->hdr .bytes_used = sizeofobject; 
hdr_ptr->hdr .bytes_lef t = 0; 
mem->large_list [pool_id] = hdr_ptr; 

return (void *) (hdr_£>tr + 1); /* point to first data byte in pool */ 

} 




/* 

* Creation of 2-D sample arrays. 

* The pointers are in near heap, the samples themselves in FAR heap. 
* 

* To minimize allocation overhead and to allow I/O of large contiguous 

* blocks, we allocate the sample rows in groups of as many rows as possible 

* without exceeding MAX_ALLOC_CHUNK total bytes per allocation request. 

* NB: the virtual array control routines, later in this file, know about 

* this chunking of rows. The rowsperchunk value is left in the mem manager 

* object so that it can be saved away if this sarray is the workspace for 

* a virtual array. 
*/ 

METHODDEF (JSAMPARRAY) 

alloc_sarray ( j_common_ptr cinfo, int pool_id, 

JDIMENSION samplesperrow, JDIMENSION numrows) 
/* Allocate a 2-D sample array */ 
{ 

my_mem_ptr mem = (my_mem_ptr ) cinf o->mem; 
JSAMPARRAY result; 
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JSAMPROW workspace; 

JDIMENSION rowsperchunk, c^^B*, i; 
long ltemp; 



/* Calculate max # of rows allowed in one allocation chunk */ 
ltemp = (MAX_ALLOC_CHUNK-SIZEOF (large jool_hdr) ) / 

((long) samplesperrow * SIZEOF (JSAMPLE) ) ; 
if (ltemp <= 0) 

ERREXIT ( cinf o , JERR_WI DTH_0 VE RFLO W ) ; 
if (ltemp < (long) numrows) 

rowsper chunk = (JDIMENSION) ltemp; 
else 

rowsperchunk = numrows; 
mem- >1 as t_rowsper chunk = rowsperchunk; 

/* Get space for row pointers (small object) */ 
result = (JSAMPARRAY) alloc_small (cinf o, pool_id, 

(size_t) (numrows * SIZEOF (JSAMPROW) )) ; 

/* Get* the rows themselves (large objects) */ 
currow = 0; 

while (currow < numrows) { 

rowsperchunk = MIN (rowsperchunk, numrows - currow); 
workspace = (JSAMPROW) alloc_large (cinf o, pool_id, 
(size_ t) ( (size_t) rowsperchunk * (size_t) samplesperrow 

* SIZEOF (JSAMPLE) ) ) ; 
for (i = rowsperchunk; i > 0; i--) { 
result [currow++] = workspace; 
workspace += samplesperrow; 

} 

} 

Eire turn result; 



Creation of 2-D coefficient-block arrays. 
*^This is essentially the same as the code for sample arrays, above. 

M^HODDEF ( JBLOCKARRAY ) 

aploc_barray ( j_common_ptr cinfo, int pool_id, 

JDIMENSION blocksperrow, JDIMENSION numrows) 
f? Allocate a 2-D coefficient-block array */ 

<H 

rl^y_^m_ptr mem = (my_mem_ptr) cinfo->mem; 

-tjBLOCKARRAY result; 

f ^BLOCKROW workspace ; 

^DIMENSION rowsperchunk, currow, i; 

^long ltemp; 

fy* Calculate max # of rows allowed in one allocation chunk */ 
"ltemp = (MAX_ALLOC_CHUNK-SIZEOF(large_pool_hdr) ) / 
((long) blocksperrow * SIZEOF (JBLOCK) ) ; 
if (ltemp <= 0) 

ERREXIT (cinfo , JERR_WIDTH_OVERFLOW) ; 
if (ltemp < (long) numrows) 

rowsperchunk = (JDIMENSION) ltemp; 
else 

rowsperchunk = numrows; 
mem->last_rowsperchunk = rowsperchunk; 

/* Get space for row pointers (small object) */ 
result = (JBLOCKARRAY) alloc_small ( cinf o , pool_id, 

(size_t) (numrows * SIZEOF (JBLOCKROW) )) ; 

/* Get the rows themselves (large objects) */ 
currow = 0 ; 

while (currow < numrows) { 

rowsperchunk = MIN (rowsperchunk, numrows - currow) ; 
workspace = (JBLOCKROW) alloc_large (cinf o , pool_id, 
(size_t) ( (size_t) rowsperchunk * (size_t) blocksperrow 

* SIZEOF (JBLOCK) ) ) ; 
for (i = rowsperchunk; i > 0; i--) { 
result [currow++] = workspace; 
workspace += blocksperrow; 

} 

} 
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return result; 

} 



I* 



About virtual array management: 
* 

* The above "normal" array routines are only used to allocate strip buffers 

*. (as wide as the image, but just a few rows high) . Full-image-sized buffers 

* are handled as "virtual" arrays. The array is still accessed a strip at a 

* time, but the memory manager must save the whole array for repeated 

* accesses. The intended implementation is that there is a strip buffer in 

* memory (as high as is possible given the desired memory limit) , plus a 

* backing file that holds the rest of the array. 
* 

* The request_virt_array routines are told the total size of the image and 

* the maximum number of rows that will be accessed at once. The in-memory 

* buffer must be at least as large as the maxaccess value. 
* 

* The request routines create control blocks but not the in-memory buffers. 

* That is postponed until real ize_virt_ar rays is called. At that time the 

* total amount of space needed is known (approximately, anyway) , so free 

* memory can be divided up fairly. 
* 

* The access_virt_array routines are responsible for making a specific strip 

* area accessible (after reading or writing the backing file, if necessary) . 

* Note that the access routines are told whether the caller intends to modify 

* the accessed strip; during a read-only pass this saves having to rewrite 

* data to disk. The access routines are also responsible for pre-zeroing 

* any newly accessed rows, if pre-zeroing was requested. 

i-In current usage, the access requests are usually for nonoverlapping 

strips; that is, successive access start_row numbers differ by exactly 
£jnum_rows = maxaccess. This means we can get good performance with simple 
j£i buffer dump/reload logic, by making the in-memory buffer be a multiple 
^of the access height; then there will never be accesses across bufferload 
sfjboundaries . The code will still work with overlapping access requests, 
^sbut it doesn't handle buff erload . overlaps very efficiently. 
*f 

mItHODDEF ( jvirt_sarray_ptr ) 

request_virt_sarray ( j_common_ptr cinfo, int pool_id, boolean pre_zero, 
5 JDIMENSION samplesperrow, JDIMENSION numrows, 

JDIMENSION maxaccess) 
A* = Request a virtual 2-D sample array */ 

€3 

F5 my_mem_ptr mem = (my mem ptr) cinfo->mem; 
; - = jvirt_sarray_ptr result; 

rV* Only IMAGE- lifetime virtual arrays are currently supported */ 
Zlit (pool_id != JPOOL_IMAGE) 

UJ ERREXIT1 (cinfo, JERR_BAD_POOL_ID, pool_id) ; /* safety check */ 
/* get control block */ 

result = ( jvirt_sarray_ptr ) alloc_small (cinfo , pool_id, 

S I ZEOF (struct jvirt_sarray_control) ) ; 

result ->mem_buf f er = NULL; /* marks array not yet realized */ 
result->rows_in_array = numrows; 
result->samplesperrow = samplesperrow; 
result->maxaccess = maxaccess; 
result->pre_zero = pre_zero; 

result->b_s_open = FALSE; /* no associated backing-store object */ 
result->next = mem->virt_sarray_list ; /* add to list of virtual arrays */ 
mem->virt_sarray_list = result; 



return result, - 



} 



METHODDEF ( j vir t_barray_ptr ) 

request_virt_barray ( j_common_ptr cinfo, int pool_id, boolean pre_ zero, 
JDIMENSION blocksperrow, JDIMENSION numrows, 
JDIMENSION maxaccess) 

/* Request a virtual 2-D coefficient-block array */ 

{ 

my_mem_ptr mem = (my_mem_ptr) cinfo- >mem; 
jvirt_barray_ptr result; 
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/* Only IMAGE-lif etime vir^^L arrays are currently supported * 
if (pool_id != JPOOL_IMAGE^^§ 

ERREXIT1 (cinfo, JERR_BAdJ|PPL_ID, pool_id) ; /* safety check *, 

/* get control block */ 

result = ( jvirt_barray_ptr) alloc_small (cinf o, pool_id, 

SIZEOF( struct jvirt_barray_control) ) ; 

result ->mem_buf f er = NULL; /* marks array not yet realized */ 
result->rows_in_array = numrows; 
result->blocksperrow = blocksperrow; 
result->maxaccess = maxaccess; 
result ->pre_zero = pre_zero; 

result- >b_s_open = FALSE; /* no associated backing-store object */ 
result- >next = mem- >virt_barray_ list ; /* add to list of virtual arrays */ 
mem->virt_barray_list = result; 

return result; 




METHODDEF (void) 

real ize_virt_ar rays ( j_common_ptr cinfo) 

/* Allocate the in-memory buffers for any unrealized virtual arrays */ 



{ 



my_mem_ptr mem = (my_mem_ptr) cinfo->mem; 

long space_per_minheight , maximum.. space , avail_mem; 

long minheights, max_minheights ; 

jvirt_sarray_ptr sptr; 

jvirt_barray_ptr bptr; 

/* Compute the minimum space needed (maxaccess rows in each buffer) 
and the maximum space needed (full image height in each buffer). 
These may be of use to the system-dependent jpeg_mem_available routine 

lSpace_per_minheight = 0; 
.maximum_space = 0 ; 

~it>r (sptr = mem->virt_sarray_list; sptr != NULL; sptr = sptr->next) { 

^•Jif (sptr->mem__buf f er == NULL) { /* if not realized yet */ 

:h space_per_minheight += (long) sptr->maxaccess * 

'zt (long) sptr->samplesperrow * SIZEOF (JSAMPLE) ; 

maximum_space += (long) sptr ->rows_in_ar ray * 
n; (long) sptr->samplesperrow * SIZEOF (JSAMPLE) ; 

i©r (bptr = mem->virt_barray_list; bptr != NULL; bptr = bptr->next) { 
Js^if (bptr->mem_buf f er == NULL) { /* if not realized yet */ 

space_per_minheight += (long) bptr->maxaccess * 
nj (long) bptr->blocksperrow * SIZEOF (JBLOCK) ; 

= max imum_s pace += (long) bptr->rows_in_array * 
2? (long) bptr->blocksperrow * S I ZEOF( JBLOCK ) ; 

U) 
-|j 

if (space_per_minheight <= 0) 

return; /* no unrealized arrays, no work */ 

/* Determine amount of memory to actually use; this is system-dependent. 
avail_mem = jpeg_mem_available (cinf o, space_per_minheight , maximum_space, 
mem->total_space_allocated) ; 

/* If the maximum space needed is available, make all the buffers full 

* height; otherwise parcel it out with the same number of minheights 

* in each buffer. 
*/ 

if (avail_mem >= maximum_space) 
max_minheights = 1000000000L; 
else { 

max_minheights = avail_mem / space_per_minheight ; 

/* If there doesn't seem to be enough space, try to get the minimum 
* anyway. This allows a "stub" implementation of j peg_mem_a vail able ( ) 
*/ 

if (max_minheights <= 0) 
max_minheights = 1; 

} 

/* Allocate the in-memory buffers and initialize backing store as needed. 

for (sptr = mem->virt_sarray_list; sptr != NULL; sptr = sptr->next) { 
if (sptr->mem__buf f er == NULL) { /* if not realized yet */ 
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sn|^^>rows_in_ array - 1L) / sptr->maxa^fc^ 
j^P^ights) { 



minheights = ( (long) sn|^^>rows_in_ array - 1L) / sptr->maxa^^^ + 1L 

if (minheights <= max 1 
/* This buffer fits in me 
sptr->rows_in_mem = sptr~>rows_in_array; 

} else { 

/* It doesn't fit in memory, create backing store. */ 
sptr->rows_in_mem = (JDIMENSION) (max_minheights * sptr->maxaccess) ; 
jpeg_open_backing_store (cinf o, & sptr->b_s_inf o, 

(long) sptr->rows_in_array * 

(long) sptr->samplesperrow * 

(long) SIZEOF(JSAMPLE) ) ; 
sptr->b_s_open = TRUE; 
) 

sptr->mem_buf f er = alloc_sarray (cinf o, JPOOL_IMAGE, 

sptr->samplesperrow, sptr->rows_in_mem) ; 
sptr->rowsperchunk = mem- >1 as t_rowsper chunk; 
sptr->cur_start_row = 0; 
sptr->f irst_undef_row = 0; 
sptr->dirty = FALSE; 

) 

} 

for (bptr = mem->virt_barray_list; bptr != NULL; bptr = bptr->next) { 
if (bptr->mem_buf f er == NULL) { /* if not realized yet */ 

minheights = ( (long) bptr->rows_in_array - 1L) / bptr- >maxac cess + 1L 

if (minheights <= max_minheights) { 
/* This buffer fits in memory */ 
bptr->rows_in_mem = bptr->rows_in_array; 

} else ( 

/* It doesn't fit in memory, create backing store. */ 
bptr->rows_in_mem = (JDIMENSION) (max_minheights * bptr->maxaccess ) ; 

LJ j peg_open_backing_s tore (cinf o, & bptr->b_s_inf o, 

J] (long) bptr ->rows_in_ar ray * 

~l (long) bptr->blocksperrow * 

4/ (long) SIZEOF(JBLOCK) ) ; 

bptr->b_s_open = TRUE; 

G > 

bptr->mem_buf f er = alloc_barray (cinf o, JPOOL_IMAGE, 
%1 bptr->blocksperrow, bptr- >rows_in — mem) ; 

■jr* bptr->rowsperchunk = mem->last__rowsperchunk; 

bptr ->cur_s tar t_row = 0; 
IU bptr->f irst_undef_row = 0; 

bptr->dirty = FALSE; 

>□ 

nj 

£&£AL(void) 

do|_sarray_io ( j_common_ptr cinfo, jvirt_sarray_ptr ptr, boolean writing) 
/jf Do backing store read or write of a virtual sample array */ 

long bytesperrow, file_offset, byte_count, rows, thisrow, i; 

bytesperrow = (long) ptr->samplesperrow * SIZEOF ( JSAMPLE) ; 
file_offset = ptr->cur_start_row * bytesperrow; 
/* Loop to read or write each allocation chunk in mem_buffer */ 
for (i = 0; i < (long) ptr->rows_in_mem; i += ptr->rowsper chunk) { 

/* One chunk, but check for short chunk at end of buffer */ 

rows = MIN(dong) ptr->rowsperchunk, (long) ptr->rows_in_mem - i) ; 

/* Transfer no more than is currently defined */ 

thisrow = (long) ptr->cur_start_row + i; 

rows = MIN(rows, (long) ptr->f irst_undef_row - thisrow); 

/* Transfer no more than fits in file */ 

rows = MIN(rows, (long) ptr->rows_in_array - thisrow); 

if (rows <= 0) /* this chunk might be past end of file! */ 

break; 

byte_count = rows * bytesperrow; 
if (writing) 

(*ptr->b_s_inf o. write_backing_store) (cinfo, & ptr->b_s_info, 
(void *) ptr->mem_buf fer [i] , 
file_of fset, byte_count) ; 

else 

(*ptr->b_s_info.read_backing_store) (cinfo, & ptr->b_s_inf o, 
(void *) ptr->mem_buf f er [i] , 
f ile_offset, byte_count) ; 
file_offset + = byte_count; 

} 
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LOCAL (void) 

do__barray_io { j_common_ptr cMF, jvirt_barray_ptr ptr, boolean wSffng) 
/* Do backing store read or write of a virtual coefficient-block array */ 
{ 

long bytesperrow, file_offset, byte_count, rows, thisrow, i; 

bytesperrow = (long) ptr->blocksperrow * SIZEOF ( JBLOCK) ; 
file_offset = ptr->cur_start_row * bytesperrow; 

/* Loop to read or write each allocation chunk in memjbuf f er */ 
for (i = 0; i < (long) ptr->rows__in_mem; i += ptr->rowsperchunk) { 

/* One chunk, but check for short chunk at end of buffer */ 

rows = MIN((long) ptr->rowsperchunk, (long) ptr->rows_in_mem - i) ; 

/* Transfer no more than is currently defined */ 

thisrow = (long) ptr->cur_start_row + i; 

rows = MIN(rows, (long) ptr->f irst_undef_row - thisrow); 

/* Transfer no more than fits in file */ 

rows = MIN(rows, (long) ptr->rows_in_array - thisrow); 

if (rows <= 0) /* this chunk might be past end of file! */ 

break ; 

by te_ count = rows * bytesperrow; 
if (writing) 

(*ptr->b_s_inf o . writ e_backing_s tore) (cinfo, & ptr->b_s_inf o, 
(void *) ptr->mem_buf f er [i] , 
f ile_of fset, byte_count) ; 

else 

(*ptr->b_s_info.read_backing_store) (cinfo, fit ptr->b_s_inf o, 
(void *) ptr->mem_buf f er [i] , 
file_offset, byte_count) ; 
file_offset += byte_count; 

METHODDEF ( JSAMPARRAY ) 

aecess_virt_s array ( j_common_ptr cinfo, jvirt_sarray_j?tr ptr, 
SI JDIMENSION start_row, JDIMENSION num_rows, 

.s^ boolean writable) 

/^f Access the part of a virtual sample array starting at start_row */ 
Af] and extending for num_rows rows, writable is true if */ 
Ms caller intends to modify the accessed area. */ 

( M 

s JDIMENSION end_row = start_row + num_rows; 
^hJDIMENSION undef_row; 

LJ/* debugging check */ 

nJLf (end_row > ptr->rows_in_array | | num_rows > ptr->maxaccess | | 

lj\ ptr->mem_buf f er == NULL) 

J;f ERREXIT (cinfo , JERR_BAD_VIRTUAL_ACCESS ) ; 

Make the desired part of the virtual array accessible */ 
^if (start_row < ptr->cur_start_row | | 

end_row > ptr->cur_start_row+ptr->rows_in_mem) { 
if ( ! ptr->b_s_open) 

ERREXIT (cinfo, JERR_VIRTUAL — BUG) ; 
/* Flush old buffer contents if necessary */ 
if (ptr->dirty) ( 

do_sarray_io (cinfo, ptr, TRUE) ; 
ptr->dirty = FALSE ; 

} 

/* Decide what part of virtual array to access. 

* Algorithm: if target address > current window, assume forward scan, 

* load starting at target address. If target address < current window, 

* assume backward scan, load so that target area is top of window. 

* Note that when switching from forward write to forward read, will have 

* start_row = 0, so the limiting case applies and we load from 0 anyway. 
*/ 

if (start_row > ptr->cur_start_row) { 

ptr->cur_start_row = start_row; 
} else { 

/* use long arithmetic here to avoid overflow & unsigned problems */ 
long ltemp; 

ltemp = (long) end_row - (long) ptr->rows_in_mem; 
if (ltemp < 0) 
ltemp =0; /* don't fall off front end of file */ 

ptr->cur_start_row = (JDIMENSION) ltemp; 

} 

/* Read in the selected part of the array. 

* During the initial write pass, we will do no actual read 
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* because the selected nflk is all undefined. 
do_sarray_io {cinfo, ptr, ^BrSE) ; 

} 

/* Ensure the accessed part of the array is defined; prezero if needed. 

* To improve locality of access, we only prezero the part of the array 

* that the caller is about to access, not the entire in-memory array. 
*/ 

if (ptr->f irst_undef_row < end_row) { 
if (ptr->f irst_undef_row < start_row) { 

if (writable) /* writer skipped over a section of array */ 

ERREXIT (cinfo, JERR_BAD_VIRTUAL_ACCESS ) ; 

undef_row = start_row; /* but reader is allowed to read ahead */ 
} else { 

undef_row = ptr->f irst_undef — row; 

} 

if (writable) 

ptr->f irst_undef_row = end_row; 
if (ptr->pre_zero) { 

size_t bytesperrow = (size_t) ptr->samplesperrow * SIZEOF( JSAMPLE) ; 

undef_row -= ptr->cur_start_row; /* make indexes relative to buffer */ 

end_row -= ptr->cur_start_row; 

while (undef_row < end_row) { 
jzero_far ( (void *) ptr->mem_buf f er [undef_ row] , bytesperrow); 
undef_row++ ; 

} 

} else { 

if (! writable) /* reader looking at undefined data */ 

ERREXIT (cinfo , JERR_BAD_VIRTUAL_ACCESS ) ; 

=- > 

u 

Flag the buffer dirty if caller will write in it */ 
Zif (writable) 

ptr->dirty = TRUE; 
dy* Return address of proper part of the buffer */ 
C re turn ptr->mem_buf f er + (start_row - ptr->cur_start_ row) ; 

} £ 

METHODDEF ( JBLOCKARRAY) 

aqfcess_virt_barray ( j_common_ptr cinfo, jvirt_barray_ptr ptr, 
5 JDIMENSION start_row, JDIMENSION num_rows, 

T 3 boolean writable) 

Access the part of a virtual block array starting at start_row */ 
£3 and extending for num_rows rows, writable is true if */ 

caller intends to modify the accessed area. */ 

\JjDIMENSION end_row = start_row + num_rows; 
f^JDIMENSION undef_row; 

CJ/* debugging check */ 

if (end_row > ptr->rows_in_array | | num_rows > ptr->maxaccess | | 
ptr->mem_buf f er == NULL) 
ERREXIT (cinfo , JERR_BAD_VIRTUAL_ACCESS ) ; 

/* Make the desired part of the virtual array accessible */ 
if (start_row < ptr->cur_start_row | | 

end_row > ptr->cur_start_row+ptr->rows_in_mem) { 
if ( ! ptr->b_s_open) 

ERREXI T ( c i n f o , JERR_VI RTUAL_BUG ) ; 
/* Flush old buffer contents if necessary */ 
if (ptr->dirty) { 

do_barray_io (cinfo, ptr, TRUE) ; 
ptr->dirty = FALSE; 

} 

/* Decide what part of virtual array to access. 

* Algorithm: if target address > current window, assume forward scan, 

* load starting at target address. If target address < current window, 

* assume backward scan, load so that target area is top of window. 

* Note that when switching from forward write to forward read, will have 

* start_row = 0, so the limiting case applies and we load from 0 anyway. 
*/ 

if (start_row > ptr->cur_start_row) { 

ptr->cur_start_row = start_row; 
} else { 

/* use long arithmetic here to avoid overflow & unsigned problems */ 
long ltemp; 

Itemp = (long) end_row - (long) ptr->rows_in_mem; 
if (ltemp < 0) 
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Itemp = 0; /* don't^^L off front end of file */ 

ptr->cur_start_row = (^^KNSION) ltemp; 

/* Read in the selected part of the array. 

* During the initial write pass, we will do no actual read 

* because the selected part is all undefined. 
*/ 

do_barray_io (cinf o, ptr, FALSE); 

} 

/* Ensure the accessed part of the array is defined; prezero if needed. 

* To improve locality of access, we only prezero the part of the array 

* that the caller is about to access, not the entire in-memory array. 
*/ 

if (ptr->f irst_undef_row < end_row) { 
if (ptr->f irst_undef_row < starts row) { 

if (writable) /* writer skipped over a section of array */ 

ERREXIT ( cinf o , JERR_BAD_VIRTUAL_ACCESS ) ; 

undef_row = start_row; /* but reader is allowed to read ahead */ 
} else { 

undef_row = ptr->f irst_undef_row; 

} 

if (writable) 

ptr->f irst_undef_row = end_row; 
if (ptr->pre_zero) { 

size_t bytesperrow = (size_t) ptr->blocksperrow * SIZEOF ( JBLOCK) ; 

undef_row -= ptr->cur_start_row; /* make indexes relative to buffer */ 

end_row -= ptr->cur_start_row; 

while (undef_row < end_row) { 
jzero_f ar ( (void *) ptr->mem_buf f er [undef_row] , bytesperrow); 
undef_row++ ; 

} 

l_] } else { 

if (! writable) /* reader looking at undefined data */ 

2? ERREXIT ( cinf o, JERR_BAD_VIRTUAL_ACCESS) ; 

Ul } 

J! 

■77* Flag the buffer dirty if caller will write in it */ 
~4f (writable) 
J J ptr->dirty. = TRUE; 

YzJ* Return address of proper part of the buffer */ 
J-return ptr->mem_buf f er + (start_row - ptr->cur_start_row) ; 

M 

r*i Release all objects belonging to a specified pool. 
faJSTHODDEF (void) 

Mee_pool ( j_common_ptr cinfo, int pool_id) 

I- 

Ljniy_mein_ptr mem = (my_mem_ptr) cinfo->mem; 
small_pool__ptr shdr_ptr; 
large_pool_ptr lhdr__ptr; 
size_t space_freed; 

if (pool_id < 0 | | pool_id >= JPOOL_NUMPOOLS) 

ERREXIT1 (cinfo, JERR_BAD_P00L_ID, pool_id) ; /* safety check */ 

#ifdef MEM_STATS 

if (cinf o->err->trace_level > 1) 

print_mem_s tats (cinf o, pool_id) ; /* print pool's memory usage statistics 
#endif 

/* If freeing IMAGE pool, close any virtual arrays first */ 
if (pool_id == JPOOL_IMAGE) { 

jvirt_sarray_ptr sptr; 

jvirt_barray_ptr bptr; 

for (sptr = mem->virt_sarray_list ; sptr != NULL; sptr = sptr->next) { 

if (sptr->b_s_open) { /* there may be no backing store */ 
sptr->b_s_open = FALSE; /* prevent recursive close if error */ 
( *sptr->b_s_inf o . close_backing_store) (cinfo, & sptr->b_s_inf o) ; 
} 

} 

mem->virt_sarray_list = NULL; 

for (bptr = mem->virt_barray_ list; bptr != NULL; bptr = bptr->next) { 

if (bptr->b_s_open) { /* there may be no backing store */ 
bptr->b_s_open = FALSE; /* prevent recursive close if error */ 
( *bptr->b_s_inf o . close_backing_store) (cinfo, & bptr->b_s_info) ; 
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} 

} 

mem->virt_barray_list = 

} 

/* Release large objects */ 
lhdr_ptr = mem->large_list [pool_id] ; 
mem->large_list [pool_id] = NULL; 

while (lhdr_ptr != NULL) { 

large __pool_ptr next_lhdr_ptr = lhdr_ptr->hdr .next; 
space_freed = lhdr_ptr->hdr . bytes_used + 

lhdr_ptr->hdr .bytes_lef t + 

SIZEOF(large__pool_hdr) ; 
jpeg_f ree_large (cinf o, (void *) lhdr_ptr, space_freed) ; 
mem->total_space_al located -= space_freed; 
lhdr_ptr = next_lhdr_ptr ; 

} 

/* Release small objects */ 

shdr_ ptr = mem->small_list [pool_id] ; 

mem->small_list [pool_id] = NULL; 

while (shdr_ptr != NULL) { 

small_pool_ptr next_shdr_ptr = shdr_jptr->hdr .next; 
space_freed = shdr_ptr->hdr .bytes_used + 

shdr_ptr->hdr .bytes_lef t + 

SIZEOF (small_pool_hdr) ; 
jpeg_f ree_small (cinf o, (void *) shdr_ptr, space_f reed) ; 
mem-> to tal_space_al located -= space_freed; 
shdr__ptr = next_shdr_ptr ; 

a 

j*J Close up shop entirely. 

Note that this cannot be called unless cinfo->mem is non-NULL. 

HpTHODDEF(void) 

sMlf_destruct ( j_common_ptr cinfo) 

r 

- int pool; 

Close all backing store, release all memory. 
J; * Releasing pools in reverse order might help avoid fragmentation 
Hi * with some (brain-damaged) malloc libraries. 

G */ 

-Jiffor (pool = JP00L_NUMP00LS-1; pool >- JPOOL_PERMANENT ; pool--) { 
Li f ree_pool (cinf o, pool); 

/* Release the memory manager control block too. */ 

jpeg_f ree_small (cinf o , (void *) cinfo->mem, SIZEOF (my_memory_mgr) ) ; 
cinfo->mem - NULL; /* ensures I will be called only once */ 

jpeg_mem_term( cinfo) ; /* system-dependent cleanup */ 

} 



/* 

* Memory manager initialization. 

* When this is called, only the error manager pointer is valid in cinfo! 
*/ 

GLOBAL (void) 

jinit_memory_mgr ( j_common_ptr cinfo) 
{ 

my_mem_ptr mem; 
long max_to_use; 
int pool; 
size_t test_mac; 

cinfo->mem = NULL; /* for safety if init fails */ 

/* Check for configuration errors. 

* SIZEOF (ALIGN_TYPE) should be a power of 2; otherwise, it probably 

* doesn't reflect any real hardware alignment requirement. 

* The test is a little tricky: for X>0, X and X-l have no one-bits 
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* in common if and only i^^^s a power of 2, ie has only one o^^bit. 

* Some compilers may give unreachable code" warning here; ^^^re it. 

if ( (SIZEOF { ALIGN_TYPE) & ( SIZEOF (ALIGN_TYPE) -1) ) != 0) 

ERREXIT (cinf o , JERR_BAD_ALIGN_TYPE) ; 
/* MAX_ALLOC_CHUNK must be representable as type size_t, and must be 

* a multiple of SIZEOF (ALIGN_TYPE) . 

* Again, an "unreachable code" warning may be ignored here. 

* But a "constant too large" warning means you need to fix MAX — ALLOC_CHUNK . 
V 

test_mac = (size_t) MAX_ALLOC_CHUNK ; 

if ((long) test_mac != MAX_ALLOC_CHUNK || 

(MAX_ALLOC_CHUNK % SIZEOF (ALIGN_TYPE) ) != 0) 
ERREXIT ( cinf o, JERR_BAD_ALLOC_CHUNK) ; 

max_ to_use = jpeg_mem_init (cinf o) ; /* system-dependent initialization */ 

/* Attempt to allocate memory manager's control block */ 

mem = (my__mem_ptr ) jpeg_get_small (cinf o , SIZEOF (my_memory_mgr) ) ; 

if (mem == NULL) { 

jpeg_mem_term(cinf o) ; /* system-dependent cleanup */ 
ERREXIT1 (cinfo, JERR_OUT_OF_MEMORY , 0) ; 

} 

/* OK, fill in the method pointers */ 

mem->pub. alloc_small = alloc_small ; 

mem->pub. alloc_large = alloc_large; 

mem->pub. alloc_sarray = al loc_s array ; 

mem->pub. alloc_barray = alloc_barray; 

mem->pub. re que st_virt_s array = r equest_virt_s array ; 
pmem->pub. request_virt_barray = request_virt_barray; 
^3tiem->pub. real ize_virt_ar rays = realize^ virt_arrays ; 
Ulnem->pub. access_virt_s array = access_virt_sarray ; 
g : ?nem->pub. access_virt_barray = access_virt_barray; 
^jnem->pub. free_pool = free_pool; 
^4nem->pub. self _de struct = self_destruct ; 

.jl/* Make MAX_ALLOC_CHUNK accessible to other modules */ 
"Mnem->pub.max_alloc_chunk = MAX_ALLOC_CHUNK; 

fu/* Initialize working state */ 

: "mem->pub.max_memory_to_use = max_to_use; 

Ufor (pool = JPOOL_NUMPOOLS-l; pool >= JPOOL_PERMANENT ; pool--) { 
1b- mem->small_list [pool ] = NULL; 
mem->large_list [pool ] = NULL; 

nj) 

=mem->virt_sarray_list = NULL; 
J^mem->virt_barray_list = NULL; 

f 5 =imem->total_space_allocated = SIZEOF (my_memory_mgr) ; 

/* Declare ourselves open for business */ 
cinfo->mem = & mem->pub; 

/* Check for an environment variable JPEGMEM; if found, override the 

* default max_memory setting from jpeg_mem_init . Note that the 

* surrounding application may again override this value. 

* If your system doesn't support getenvO, define N0_GETENV to disable 

* this feature . 
*/ 

#ifndef NO_GETENV 
{ char * memenv; 

if ((memenv = getenv ( "JPEGMEM" ) ) ! = NULL) { 
char ch = 'x ' ; 

if (sscanf (memenv, "%ld%c", &max_to„use, &ch) > 0) { 
if (ch == 'm' || ch == ' M' ) 

max_to_use * = 1000L; 
mem->pub.max_memory_to_use = max__to_ use * 1000L; 

} 

} 

} 

#endif 
} 
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/* 

* jmemnobs . c 
* 

* Copyright (C) 1992-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file provides a really simple implementation of the system- 

* dependent portion of the JPEG memory manager. This implementation 

* assumes that no backing-store files are needed: all required space 

* can be obtained from mallocO. 

* This is very portable in the sense that it'll compile on almost anything, 

* but you'd better have lots of main memory (or virtual memory) if you want 

* to process big images. 

* Note that the max_memory_to_use option is ignored by this implementation. 
*/ 

#define JPEG_INTERNALS 
tinclude " j include .h" 
tinclude "jpeglib.h" 

#include "jmemsys.h" /* import the system-dependent declarations */ 

#ifndef HAVE_STDLIB_H /* <stdlib.h> should declare malloc ( ) , f ree ( ) */ 

extern void * malloc JPP((size_t size)); 
extern void free JPP((void *ptr) ) ; 
#endif 



/* 

* Memory allocation and freeing are controlled by the regular library 

* routines malloc () and f ree ( ) . 

& 

GDDBAL(void *) 

ij*eg_get_small { j_common_ptr cinfo, size_t sizeof object) 

Urxeturn (void *) malloc (sizeof object) ; 

N 

GLOBAL (void) 

3j||eg_f ree_small ( j_common_ptr cinfo, void * object, size_t sizeof object ) 

hi 

"*f ree (object) ; 

r& "Large" objects are treated the same as "small" ones. 

NB: although we include FAR keywords in the routine declarations, 
J* this file won't actually work in 80x86 small /medium model; at least, 
O you probably won't be able to process useful -size images in only 64KB. 

&' 

GLOBAL (void *) 

jpeg_get_large ( j_common_ptr cinfo, size_t sizeof object) 
{ 

return (void *) malloc (sizeof object) ; 

} 

GLOBAL (void) 

jpeg_free_large ( j_common_j?tr cinfo, void * object, size_t sizeof object) 
{ 

free (object) ,* 

} 



/* 

* This routine computes the total memory space available for allocation. 

* Here we always say, "we got all you want bud! " 
*/ 

GLOBAL (long) 

jpeg_mem_available ( j_common_ptr cinfo, long min_bytes_needed, 
long max_bytes_needed, long already_al located) 

{ 

return max_bytes_needed; 

} 



/* 
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* Backing store (temporary management. 

* Since jpeg_mem_available ^^ws promised the moon, 

* this should never be callecBrad we can just error out. 
*/ 

GLOBAL (void) 

jpeg_open_backing_store ( j_common_ptr cinfo, backing_store_ptr info, 
long total_bytes_needed) 

{ 

ERREXIT ( cinf o , JERR_NO_BACKING_STORE) 

} 



/* 

* These routines take care of any system-dependent initialization and 

* cleanup required. Here, there isn't any. 
*/ 

GLOBAL (long) 

jpeg_mem_init ( j_common_ptr cinfo) 
{ 

return 0; /* just set max_memory_to_use to 0 */ 

} 

GLOBAL (void) 

jpeg_mem_term ( j_common__ptr cinfo) 
{ 

/* no work */ 

} 



/* 

* j quant l.c 
* 

* Copyright (C) 1991-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains 1-pass color quantization (color mapping) routines. 

* These routines provide mapping to a fixed color map using equally spaced 

* color values. Optional Floyd- Steinberg or ordered dithering is available. 
*/ 

#define JPEG_INTERNALS 
#include " j include . h" 
# include "jpeglib.h" 

tifdef QUANT_1PASS_SUPP0RTED 



/* 

* The main purpose of 1-pass quantization is to provide a fast, if not very 

* high quality, colormapped output capability. A 2-pass quantizer usually 

* gives better visual quality; however, for quantized grayscale output this 

* quantizer is perfectly adequate. Dithering is highly recommended with this 

* quantizer, though you can turn it off if you really want to. 
* 

* In 1-pass quantization the colormap must be chosen in advance of seeing the 

* image. We use a map consisting of all combinations of Ncolors[i] color 

* values for the i ' th component. The Ncolorst] values are chosen so that 

* their product, the total number of colors, is no more than that requested. 

* (In most cases, the product will be somewhat less.) 

Since the colormap is orthogonal, the representative value for each color 
*M component can be determined without considering the other components; 
ffz then these indexes can be combined into a colormap index by a standard 
~£ N-dimensional-array-subscript calculation. Most of the arithmetic involved 

can be precalculated and stored in the lookup table colorindex[] . 
%*f colorindex [i] [ j ] maps pixel value j in component i to the nearest 
.X representative value (grid plane) for that component; this index is 

multiplied by the array stride for component i, so that the 

index of the colormap entry closest to a given pixel value is just 
F=*= sum( colorindex [component -number] [pixel-component-value] ) 
!w Aside from being fast, this scheme allows for variable spacing between 

representative values with no additional lookup cost. 

: * 

L* If gamma correction has been applied in color conversion, it might be wise 

to adjust the color grid spacing so that the representative colors are 
HI equidistant in linear space. At this writing, gamma correction is not 
l'* s implemented by jdcolor, so nothing is done here. 



¥* Declarations for ordered dithering. 
* 

* We use a standard 16x16 ordered dither array. The basic concept of ordered 

* dithering is described in many references, for instance Dale Schumacher's 
.* chapter II. 2 of Graphics Gems II (James Arvo, ed. Academic Press, 1991). 

* In place of Schumacher's comparisons against a "threshold" value, we add a 

* "dither" value to the input pixel and then round the result to the nearest 

* output value. The dither value is equivalent to (0.5 - threshold) times 

* the distance between output values. For ordered dithering, we assume that 

* the output colors are equally spaced; if not, results will probably be 

* worse, since the dither may be too much or too little at a given point. 
* 

* The normal calculation would be to form pixel value + dither, range-limit 

* this to 0 . . MAX JSAMPLE , and then index into the colorindex table as usual. 

* We can skip the separate range -limiting step by extending the colorindex 

* table in both directions. 
*/ 

#define ODITHER_SIZE 16 /* dimension of dither matrix */ 
/* NB: if ODITHER_SIZE is not a power of 2, ODITHER_MASK uses will break */ 
#define ODITHER_CELLS (ODITHER_SIZE*ODITHER_SIZE) /* # cells in matrix */ 
#define ODITHER_MASK (ODITHER_SIZE-l ) /* mask for wrapping around counters */ 

typedef int. ODITHER_MATRIX [ODITHER_SIZE] [ODITHER_SIZE] ; 
typedef int ( *ODITHER_MATRIX_PTR) [ODITHER_SIZE J ; 

static const UINT8 base_dither_matrix [ODITHER_SIZE] [ODITHER_SIZE] = { 
/* Bayer's order-4 dither array. Generated by the code given in 
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* Stephen Hawley's article^Crdered Dithering" in Graphics Gem^^^ 

* The values in this arra;^Bt range from 0 to ODITHER_CELLS-^^B 

{ 0,192, 48,240, 12,204, 60,252, 3,195, 51,243, 15,207, 63,255 } 

{ 128, 64,176,112,140, 76,188,124,131, 67,179,115,143, 79,191,127 } 

{ 32,224, 16,208, 44,236, 28,220, 35,227, 19,211, 47,239, 31,223 } 

{ 160, 96,144, 80,172,108,156, 92,163, 99,147, 83,175,111,159, 95 } 

{ 8,200, 56,248, 4,196, 52,244, 11,203, 59,251, 7,199, 55,247 ) 

{ 136, 72,184,120,132, 68,180,116,139, 75,187,123,135, 71,183,119 ) 

{ 40,232, 24,216, 36,228, 20,212, 43,235, 27,219, 39,231, 23,215 } 

{ 168,104,152, 88,164,100,148, 84,171,107,155, 91,167,103,151, 87 } 

{ 2,194, 50,242, 14,206, 62,254, 1,193, 49,241, 13,205, 61,253 } 

{ 130, 66,178,114,142, 78,190,126,129, 65,177,113,141, 77,189,125 } 

{ 34,226, 18,210, 46,238, 30,222, 33,225, 17,209, 45,237, 29,221 } 

{ 162, 98,146, 82,174,110,158, 94,161, 97,145, 81,173,109,157, 93 } 

{ 10,202, 58,250, 6,198, 54,246, 9,201, 57,249, 5,197, 53,245 } 

{ 138, 74,186,122,134, 70,182,118,137, 73,185,121,133, 69,181,117 } 

{ 42,234, 26,218, 38,230, 22,214, 41,233, 25,217, 37,229, 21,213 } 

{ 170,106,154, 90,166,102,150, 86,169,105,153, 89,165,101,149, 85 } 



/* Declarations for Floyd-Steinberg dithering. 
* 

* Errors are accumulated into the array fserrorsU/ at a resolution of 

* l/16th of a pixel count. The error at a given pixel is propagated 

* to its not-yet-processed neighbors using the standard F-S fractions, 

* ... (here) 7/16 

* 3/16 5/16 1/16 

* We work left-to-right on even rows, right- to-left on odd rows. 
* 

We can get away with a single array (holding one row's worth of errors) 
^ by using it to store the current row's errors at pixel columns not yet 
'M processed, but the next row's errors at columns already processed. We 
fj^ need only a few extra variables to hold the errors immediately around the 
^ current column. (If we are lucky, those variables are in registers, but 
W even if not, they're probably cheaper to access than array elements are.) 

J[ The fserrorsU array is indexed [component#] [position] . 

^ We provide (tcolumns + 2) entries per component; the extra entry at each 
iff end saves us from special-casing the first and last pixels. 

z*. 

r§ = 

Note: on a wide image, we might not have enough room in a PC's near data 
=* segment to hold the error array; so it is allocated with alloc_large. 
• * / 

Of BITS_IN_JSAMPLE ==8 
^fpedef INT16 FSERROR; 
t^pedef int LOCFSERROR; 
felse 

fypedef INT32 FSERROR; 
Eypedef INT32 LOCFSERROR; 
fcendif 

typedef FSERROR *FSERRPTR; 



/* 16 bits should be enough */ 

/* use 'int' for calculation temps */ 

/* may need more than 16 bits */ 

/* be sure calculation temps are big enough */ 



/* pointer to error array (in FAR storage!) */ 



/* Private subobject */ 

#define MAX_Q_COMPS 4 /* max components I can handle */ 

typedef struct { 

struct jpeg_color_quantizer pub; /* public fields */ 

/* Initially allocated colormap is saved here */ 

JSAMPARRAY sv_colormap; /* The color map as a 2-D pixel array */ 
int sv_actual; /* number of entries in use */ 

JSAMPARRAY color index; /* Precomputed mapping for speed */ 

/* colorindex [i] [ j ] = index of color closest to pixel value j in component i, 

* premultiplied as described above. Since colormap indexes must fit into 

* JSAMPLEs, the entries of this array will too. 
*/ 

boolean is_padded; /* is the colorindex padded for odither? */ 

int Ncolors [MAX_Q_COMPS] ; /* # of values alloced to each component */ 
/* Variables for ordered dithering */ 

int row_index; /* cur row's vertical index in dither matrix */ 

ODITHER_MATRIX_PTR odither [ MAX_Q_COMPS ] ; /* one dither array per component */ 
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/* Variables for Floyd-Ste^^»g dithering */ 
FSERRPTR f serrors [MAX_Q_COlSBr; /* accumulated errors */ 
boolean on_odd_row; /* flag to remember which row we are on 

} my_cquantizer ; 

typedef my_cquantizer * my_cquantize_ptr ; 



/* 

* Policy-making subroutines for create_colormap and create_colorindex. 

* These routines determine the colormap to be used. The rest of the module 

* only assumes that the colormap is orthogonal . 
* 

* * select_ncolors decides how to divvy up the available colors 

* among the components . 

* * output_value defines the set of representative values for a component. 

* * largest_input_value defines the mapping from input values to 

* representative values for a component. 

* Note that the latter two routines may impose different policies for 

* different components, though this is not currently done. 
*/ 



LOCAL (int) 

select_ncolors ( j_decompress_ptr cinfo, int Ncolors []) 

/* Determine allocation of desired colors to components, */ 

/* and fill in Ncolors [] array to indicate choice. */ 

/* Return value is total number of colors (product of Ncolorsf] values). */ 
{ 

int nc = cinf o->out_color_components ; /* number of color components */ 
f r int max_colors = cinf o->desired_number_of_colors; 
,l3.nt total_colors , iroot, i, j ; 
"^ioolean changed; 
Qllong temp; 

"^static const int RGB_order[3] = { RGB_GREEN, RGB_RED, RGB — BLUE }; 

We can allocate at least the nc'th root of max_colors per component. */ 
-i="V* Compute floor(nc'th root of max_colors) . */ 
^firoot = 1; 
^IMo { 

ffj iroot++; 

temp = iroot; /* set temp = iroot ** nc */ 

5 for (i = 1; i < nc; i++) 
ki temp *= iroot; 

P^} while (temp <= (long) max_colors); /* repeat till iroot exceeds root */ 
^iroot--; /* now iroot = floor (root) */ 

Must have at least 2 color values per component */ 
J!rif (iroot < 2) 

kl ERREXIT1 (cinfo, JERR_QUANT_FEW_COLORS , (int) temp); 

Pj 

~"/* Initialize to iroot color values for each component */ 
total_colors = 1; 
for (i = 0; i < nc; i + +) { 
Ncolorsfi] = iroot; 
total_colors *= iroot; 

} 

/* We may be able to increment the count for one or more components without 

* exceeding max_colors, though we know not all can be incremented. 

* Sometimes, the first component can be incremented more than once! 

* (Example: for 16 colors, we start at 2*2*2, go to 3*2*2, then 4*2*2.) 

* In RGB colorspace, try to increment G first, then R, then B. 
*/ 

do { 

changed = FALSE; 

for (i = 0; i < nc; i++) { 

j = (cinf o->out_color_space == JCS_RGB ? RGB_order[i] : i) ; 

/* calculate new total_colors if Ncolorstj] is incremented */ 

temp = total_colors / Ncolorstj]; 

temp *= Ncolors [ j ] +1 ; /* done in long arith to avoid oflo */ 
if (temp > (long) max_colors) 
break; /* won't fit, done with this pass */ 

Ncolors [j ]++ ; /* OK, apply the increment */ 

total_colors = (int) temp; 
changed = TRUE; 

} 

} while (changed) ; 
return total_colors; 
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LOCAL (int) 

output_value ( j_decompress_ptr cinfo, int ci, int j, int maxj) 

/* Return j ' th output value, where j will range from 0 to maxj */ 

/* The output values must fall in 0 . . MAXJSAMPLE in increasing order */ 

{ 

/* We always provide values 0 and MAXJSAMPLE for each component; 

* any additional values are equally spaced between these limits. 

* (Forcing the upper and lower values to the limits ensures that 

* dithering can't produce a color outside the selected gamut.) 
*/ 

return (int) (((INT32) j * MAXJSAMPLE + maxj/2) / maxj); 

} 



LOCAL (int) 

largest_input_value ( j_decompress_ptr cinfo, int ci, int j, int maxj) 
/* Return largest input value that should map to j ' th output value */ 
/* Must have largest(j=0) >= 0, and largest (j =maxj ) >= MAXJSAMPLE */ 
{ 

/* Breakpoints are halfway between values returned by output_value */ 
return (int) (((INT32) (2*j + 1) * MAXJSAMPLE + maxj) / (2*maxj)); 

} 



/* 

* Create the colormap. 

& 

LOCAL (void) 

ci|eate_colormap ( j_decompress_ptr cinfo) 

-Jjny_cquantize_ptr cguantize = (my_c quant ize_ptr ) cinf o->cquantize; 
VjiJSAMPARRAY colormap; /* Created colormap */ 

,™int total_colors ; /* Number of distinct output colors */ 

y[Jint i,j,k, nci, blksize, blkdist, ptr, val; 

tfl 

Select number of colors for each component */ 
-MJtotal_colors = select„ncolors (cinf o , cquantize->Ncolors) ; 

s_. /* Report selected color counts */ 

r " a if (cinf o->out_color_components == 3) 

Cj TRACEMS4 (cinfo, 1, JTRC_QUANT_3_NCOLORS , 

f|s total_colors, cquantize->Ncolors [0] , 

^ cquantize->Ncolors [1] , cquantize->Ncolors [2 ] ) ; 

^"Jelse 

r] TRACEMS1 (cinfo, 1, JTRC_QUANT_NCOLORS , total_colors) ; 

W/* Allocate and fill in the colormap. */ 

/* The colors are ordered in the map in standard row-major order, */ 
/* i.e. rightmost (highest-indexed) color changes most rapidly. */ 

colormap ~ ( *cinf o->mem->alloc_sarray) 
( ( j_common_ptr) cinfo, JPOOL_IMAGE f 
(JDIMENSION) total_colors, (JDIMENSION) cinf o->out_color_components ) ; 

/* blksize is number of adjacent repeated entries for a component */ 

/* blkdist is distance between groups of identical entries for a component */ 

blkdist = total_colors; 

for (i = 0; i < cinf o->out_color_components; i++) { 

/* fill in colormap entries for i ' th color component */ 

nci = cquantize->Ncolors [i] ; /* # of distinct values for this color */ 

blksize = blkdist / nci; 

for (j = 0; j < nci; j++) { 

/* Compute j'th output value (out of nci) for component */ 
val = output_value (cinfo, i, j, nci-1); 

/* Fill in all colormap entries that have this value of this component */ 

for (ptr = j * blksize; ptr < total_colors ; ptr += blkdist) { 
/* fill in blksize entries beginning at ptr */ 
for (k = 0; k < blksize; k++) 

colormap [i] [ptr+k] = (JSAMPLE) val; 

} 

} 

blkdist = blksize; /* blksize of this color is blkdist of next */ 

} 

/* Save the colormap in private storage, 
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* where it will survive c^to^ quantization mode changes. 

cquantize->sv_colormap = co^Knap; 
c quant ize->sv_actual = to tal_ colors; 

} 



/* 

* Create the color index table. 
*/ 



LOCAL (void) 

create_color index ( j_decompress_ptr cinfo) 
{ 

my_cquantize_ptr cquantize = (my_cquantize_j?tr) cinf o->cguantize; 

JSAMPROW indexptr; 

int i,j,k, nci, blksize, val , pad; 

/* For ordered dither, we pad the color index tables by MAXJSAMPLE in 

* each direction (input index values can be -MAX J SAMPLE . . 2 *MAXJSAMPLE ) . 

* This is not necessary in the other dithering modes. However, we 

* flag whether it was done in case user changes dithering mode. 
*/ 

if (cinfo->dither_mode == JDITHER_ORDERED) { 

pad = MAXJSAMPLE* 2; 

cquantize->is_padded = TRUE; 
} else { 

pad = 0; 

cquantize->is_padded = FALSE; 

^} 

1 f= i; cquantize->color index = ( *cinf o->mem->alloc„s array) 

5: ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 

yl {JDIMENSION) (MAXJSAMPLE+1 + pad) , 

J-$ (JDIMENSION) cinf o->out_color_components) ; 

blksize is number of adjacent repeated entries for a component */ 
•jjblksize = cquantize->sv_actual ; 

5;for (i = 0; i < cinfo->out_color_components; i++) { 

ilj /* fill in colorindex entries for i'th color component */ 

nci = cquantize->Ncolors [i] ; /* # of distinct values for this color */ 
* blksize = blksize / nci; 

PI /* adjust colorindex pointers to provide padding at negative indexes. */ 
Z\ if (pad) 

cquantize->colorindex(i] += MAXJSAMPLE; 

pi /* in loop, val = index of current output value, */ 
r: /* and k = largest j that maps to current val */ 
€j indexptr = cquantize->colorindex[i] ; 
val = 0; 

k = large st_input_value (cinf o, i, 0, nci-1) ; 
for (j = 0; j <= MAXJSAMPLE; j++) { 

while (j > k) /* advance val if past boundary */ 

k = large st_input_value (cinf o, i, ++val, nci-1); 

/* premultiply so that no multiplication needed in main processing */ 

indexptr[j] = (JSAMPLE) (val * blksize); 

} 

/* Pad at both ends if necessary */ 
if (pad) 

for (j = 1; j <= MAXJSAMPLE; j++) { 
indexptr [ -j ] = indexptr[0]; 

indexptr [MAXJSAMPLE+ j ] = indexptr [MAXJSAMPLE] ; 
} 

) 

} 



/* 

* Create an ordered-di ther array for a component having ncolors 

* distinct output values. 
*/ 

LOCAL (ODITHER_MATRIX_PTR) 

make_odi ther_array ( j_decompress_ptr cinfo, int ncolors) 
{ 

ODITHER_MATRIX__PTR odither; 
int j , k ,- 
INT32 num,den; 
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odither = <ODITHER_MATRIX_j^M 

(*cinfo->mem->alloc_smalflMr{ j_common„ptr) cinfo, JPOOL_IMAGE 
SIZEOF (ODITHER__MATRIX) ) ; 
/* The inter-value distance for this color is MAXJSAMPLE/ (ncolors-1) . 

* Hence the dither value for the matrix cell with fill order f 

* (f=0..N-l) should be (N-l-2*f ) / (2*N) * MAXJSAMPLE/ (ncolors-1) . 

* On 16-bit-int machine, be careful to avoid overflow. 
*/ 

den = 2 * ODITHER_CELLS * ( (INT32) (ncolors - 1) ) ; 
for (j = 0; j < ODITHER_SIZE; { 
for (k = 0; k < ODITHER_SIZE; k++) { 

num = (UNT32) ( ODITHER_CELLS - 1 - 2* ( (int)base_dither_matrix[ j ] [k] ) ) ) 
* MAXJSAMPLE; 

/* Ensure round towards zero despite C's lack of consistency 
* about rounding negative values in integer division. . . 
*/ 

odither [j ] [k] = (int) (num<0 ? - ( ( -num) /den) : num/den) ; 

} 

} 

return odither; 




/* 

* Create the ordered-dither tables. 

* Components having the same number of representative colors may 

* share a dither table. 
*/ 

LOCAL (void) 

(?peate_odither_tables { j_decompress_ptr cinfo) 

^- i my_cquantize_ptr cquantize = (my_cquantize_ptr ) cinf o->cquantize; 
Q10DITHER_MATRIX_PTR odither; 
.l^int i , j , nci ; 

""^Jfor (i = 0; i < cinf o->out_color_components ; i++) { 

nci = cquantize->Ncolors [i] ; /* # of distinct values for this color */ 
odither = NULL; /* search for matching prior component */ 

tfj for (j = 0; j < i; j++) { 

n; if (nci == cquantize->Ncolors [ j 3 ) { 
odither = cquantize->odither [ j ] ; 

= break; 

pi > 

™ if (odither == NULL} /* need a new table? */ 
\il odither = make_odither_ array (cinf o, nci); 

i = cquantize ->odither [ i] = odither; 



/* 

* Map some rows of pixels to the output colormapped representation. 
*/ 

METHODDEF (void) 

color_quantize ( j_decompress_ptr cinfo, JSAMPARRAY input_buf, 

JSAMPARRAY output_buf , int num_rows) 
/* General case, no dithering */ 
{ 

my_cquantize_ptr cquantize = (my_cquantize_ptr) cinf o->cquantize; 

JSAMPARRAY color index = cquantize->colorindex; 

register int pixcode, ci; 

register JSAMPROW ptrin, ptrout; 

int row; 

JDIMENSION col; 

JDIMENSION width = cinf o->output_width; 
register int nc = cinf o->out_color_components ; 

for (row = 0; row < num_rows; row++) { 
ptrin = input_buf [row] ; 
ptrout = output_buf [row] ; 
for (col = width; col > 0; col--) { 
pixcode = 0; 

for (ci =0; ci < nc; ci++) { 
pixcode += GETJSAMPLE (colorindex [ci3 [GETJSAMPLE ( *ptrin++) ] ) ; 
} 

*ptrout++ = (JSAMPLE) pixcode; 
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METHODDEF (void) 

color_quantize3 { j_decompress_j?tr cinfo, JSAMPARRAY input_buf, 

JSAMPARRAY output_buf, int num_rows) 
/* Fast path for out_color„components==3 , no dithering */ 
{ 

my_cquantize_ptr cquantize = (my_cquantize_ptr) cinf o->cquantize; 

register int pixcode; 

register JSAMPROW ptrin, ptrout; 

JSAMPROW colorindexO = cquant ize->color index [0] ; 

JSAMPROW colorindexl = cquantize->colorindex [ 1] ; 

JSAMPROW colorindex2 = cquantize->colorindex [2 ] ; 

int row; 

JDIMENSION col; 

JDIMENSION width = cinf o->output_width; 

for (row = 0; row < num_rows; row++) { 
ptrin = input_buf [row] ; 
ptrout ~ output_buf [row] ; 
for (col = width; col > 0; col--) { 

pixcode = GETJSAMPLE ( colorindexO [GETJSAMPLE ( *ptrin++ ) ] ) ; 

pixcode += GETJSAMPLE (colorindexl [GETJSAMPLE <*ptrin++) ]) ; 

pixcode += GETJSAMPLE (colorindex2 [GETJSAMPLE (*ptrin++) ]) ; 

*ptrout++ = (JSAMPLE) pixcode; 

) 

} 

} 



ffiiTHODDEF (void) 

<piantize_ord_dither (j_decompress__ptr cinfo, JSAMPARRAY input_buf, 

JSAMPARRAY output_buf, int num_rows) 
iM General case, with ordered dithering */ 

w 

..~my._cquantize__ptr cquantize = (my_cquantize_ptr ) cinf o->cquantize; 

register JSAMPROW input_ptr; 
U J register JSAMPROW output_ptr; 
p| JSAMPROW color index_c i ; 

"~int * dither; /* points to active row of dither matrix */ 

= int row_index, col_index; /* current indexes into dither matrix */ 

ki int nc = cinf o->out_color_components ; 

L^int ci; 

^- 3 int row; 

Oj JDIMENSION col; 

L a JDIMENSION width = cinf o->output_width; 

EI J for (row = 0; row < num_rows; row++) { 

/* Initialize output values to 0 so can process components separately */ 
~" jzero^f ar ( (void *) output_buf [row] , 

(size_t) (width * S I ZEOF (JSAMPLE) )) ; 
row_index = cquantize ->row_index; 
for (ci = 0; ci < nc; ci++) { 

inputs ptr = input_buf [row] + ci; 
output_ptr = output_buf [row] ; 
colorindex_ci = cquantize->colorindex [ci ] ; 
dither = cquantize->odither [ci ] [row_index] ; 
col__index = 0; 

for (col = width; col > 0; col — ) { 
/* Form pixel value + dither, range-limit to 0 .. MAX JSAMPLE , 

* select output value, accumulate into output code for this pixel. 

* Range-limiting need not be done explicitly, as we have extended 

* the colorindex table to produce the right answers for out-of -range 

* inputs. The maximum dither is +- MAXJ SAMPLE ; this sets the 

* required amount of padding. 
*/ 

*output_ptr += colorindex_ci [GETJSAMPLE (*input_ptr) +dither [col_index] 3 ; 

input_ptr += nc; 

output_ptr++; 

col_index = (col_index + 1) & ODITHER_MASK; 
) 

} 

/* Advance row index for next row */ 
row_index = (row_index + 1) & ODITHER_MASK; 
cquantize->row_index = row_index; 

} 
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METHODDEF (void) 

quant ize3_ord_dit her ( j_decompress_ptr cinfo, JSAMP ARRAY input_buf, 

JSAMPARRAY output_buf, int num_rows) 
/* Fast path for out_color_components==3 , with ordered dithering */ 
{ 

my_cquantize_ptr cquantize = (my_cquantize__ptr ) cinf o->cquantize; 
register int pixcode; 
register JSAMPROW input__ptr; 
register JSAMPROW output_ptr; 

JSAMPROW colorindexO = cquanti ze->color index [ 0] ; 
JSAMPROW colorindexl = cquant ize->color index [ 1] ; 
JSAMPROW colorindex2 = cquant ize->colorindex [2] ; 

int * ditherO; /* points to active row of dither matrix */ 

int * ditherl; 
int * dither2; 

int row_index, col_index; /* current indexes into dither matrix */ 
int row; 
JDIMENSION col; 

JDIMENSION width = cinfo->output_width; 

for {row = 0; row < num_rows; row++) { 
row_index = cquanti ze->row_index; 
input_ptr = input_buf [row] ; 
output„ptr = output_buf [row] ; 
ditherO = cquant ize- >odither [0] [row_index] ; 
ditherl = cquant i ze - >odi ther [1] [row_index 3 ; 
dither2 = cquant ize->odi ther [2 ] [row_index] ; 
col_index = 0; 

=f for (col = width; col > 0; col--) { 

41 pixcode = GETJSAMPLE (color indexO [GETJSAMPLE ( *input_ptr++) + 

ditherO [col_index] ] ) ; 
"J pixcode += GETJSAMPLE ( colorindexl [GETJSAMPLE ( * input _j?tr+ + ) + 
^ ditherl [col_index] ] ) ; 

Sj pixcode += GETJSAMPLE (colorindex2 [GETJSAMPLE (*input_ptr++) + 
dither2 [col_index] ] ) ; 
*output_ptr++ = (JSAMPLE) pixcode; 
J] col_index ~ <col_index + 1) & ODITHER_MASK; 

H§ ) 

row_index = (row_index + 1) & ODITHER_MASK; 
= cquantize->row_index = row_index; 
U> 

h 

y§!THODDEF (void) 

cj|iantize_f s_dither ( j_decompress_ptr cinfo, JSAMPARRAY input_buf, 
TJ JSAMPARRAY output_buf, int num_rows) 

General case, with Floyd- Steinberg dithering */ 

¥ 

my_cquantize_ptr cquantize = (my_cquantize_ptr ) cinf o->cquantize; 
register LOCFSERROR cur; /* current error or pixel value */ 
LOCFSERROR belowerr; /* error for pixel below cur */ 

LOCFSERROR bpreverr; /* error for below/prev col */ 

LOCFSERROR bnexterr; /* error for below/next col */ 

LOCFSERROR delta; 

register FSERRPTR errorptr; /* => f serrors [ ] at column before current 

register JSAMPROW input_ptr; 

register JSAMPROW output_ptr; 

JSAMPROW colorindex_ci ; 

JSAMPROW colormap_ci; 

int pixcode; 

int nc = cinf o->out_color_components; 

int dir; /* 1 for left-to-right, -1 for right-to-left */ 

int dime; /* dir * nc */ 

int ci; 
int row; 
JDIMENSION col; 

JDIMENSION width = cinf o->output_width; 

JSAMPLE *range_limit = cinf o->sample_range_limit ; 

SHIFT_TEMPS 

for (row = 0; row < num_rows; row++) { 

/* Initialize output values to 0 so can process components separately 
jzero_f ar ( (void *) output_buf [row] , 

(size_t) (width * S I ZEOF (JSAMPLE) )) ; 
for (ci = 0; ci < nc; ci++) { 
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input_ptr = input_buf + ci; 

output_ptr = output_bu^^B^3 ; 

if (cquantize->on_odd__rwPr { 
/* work right to left in this row */ 
input_ptr += (width- 1) * nc; /* so point to rightmost pixel */ 
output_ptr += width- 1; 
dir = -1; 
dirnc = -nc; 

errorptr = cquantize->f serrors [ci ] + (width+1) ; /* => entry after last column */ 
} else { 

/* work left to right in this row */ 
dir = 1; 
dirnc = nc; 

errorptr = cquantize->f serrors [ci] ; /* => entry before first column */ 
} 

colorindex_ci = cquantize->colorindex[ci] ; 
colormap_ci = cquantize->sv_colormap [ci] ; 

/* Preset error values: no error propagated to first pixel from left */ 

cur = 0 ; 

/* and no error propagated to row below yet */ 
belowerr = bpreverr = 0; 

for (col = width; col > 0; col--) { 
/* cur holds the error propagated from the previous pixel on the 

* current line. Add the error propagated from the previous line 

* to form the complete error correction term for this pixel, and 

* round the error term (which is expressed * 16) to an integer. 

* RIGHT_SHIFT rounds towards minus infinity, so adding 8 is correct 

* for either sign of the error value. 

* Note: errorptr points to *previous* column's array entry. 
*/ 

cur = RIGHT_SHIFT (cur + errorptr [dir] + 8, 4); 

/* Form pixel value + error, and range-limit to 0 .. MAXJSAMPLE . 

* The maximum error is +- MAXJSAMPLE; this sets the required size 

* of the range_limit array. 
*/ 

cur += GETJSAMPLE (* input__ptr) ; 

cur = GETJSAMPLE (range_limit [cur] ) ; 

/* Select output value, accumulate into output code for this pixel */ 
pixcode = GETJSAMPLE (col or index_ci [cur] ) ; 
*output_ptr += (JSAMPLE) pixcode; 

/* Compute actual representation error at this pixel */ 

/* Note: we can do this even though we don't have the final */ 

/* pixel code, because the colormap is orthogonal. */ 

cur -= GETJSAMPLE (col ormap_ci [pixcode] ) ; 

/* Compute error fractions to be propagated to adjacent pixels. 

* Add these into the running sums, and simultaneously shift the 

* next-line error sums left by 1 column. 
*/ 

bnexterr = cur; 
delta = cur * 2; 

cur += delta; /* form error * 3 */ 

errorptr [0] = (FSERROR) (bpreverr + cur); 
cur += delta; /* form error * 5 */ 

bpreverr = belowerr + cur; 
belowerr = bnexterr; 

cur += delta; /* form error * 7 */ 

/* At this point cur contains the 7/16 error value to be propagated 

* to the next pixel on the current line, and all the errors for the 

* next line have been shifted over. We are therefore ready to move on. 
*/ 

input_ptr += dirnc; /* advance input ptr to next column */ 
output_ptr += dir; /* advance output ptr to next column */ 
errorptr += dir; /* advance errorptr to current column */ 

} 

/* Post-loop cleanup: we must unload the final error value into the 

* final fserrors[] entry. Note we need not unload belowerr because 

* it is for the dummy column before or after the actual array. 

*/ 

errorptr [0] = (FSERROR) bpreverr; /* unload prev err into array */ 

} 

cquantize->on_odd_row = (cquantize->on_odd_row ? FALSE : TRUE) ; 




Allocate workspace for Floyd-Steinberg errors. 

/ 
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LOCAL (void) 

alloc_f s_workspace ( j_decomp^^^j?tr cinfo) 

my_cquantize_ptr cquantize = (my_cquantize_ptr) cinf o->cquantize; 
size_t arraysize; 
int i; 



arraysize = (size_t) ( (cinf o->output_width + 2) * SIZEOF(FSERROR) ) ; 
for (i = 0; i < cinf o->out_color_components ; i++) { 
cquantize->f serrors [i] = (FSERRPTR) 

{*cinf o->mem->alloc_large) { ( j_coramon_jptr) cinfo, JPOOL_IMAGE, arraysize) 

} 

} 



/* 

* Initialize for one-pass color quantization. 
*/ 

METHODDEF (void) 

start_pass_l_quant ( j_decompress_ptr cinfo, boolean is_pre_scan) 
{ 

my_cquantize_ptr cquantize = (my_cquantize_ptr ) cinfo->cquantize; 
size_t arraysize; 
int i; 

/* Install my colormap. */ 

cinf o->colormap = cquantize->sv_colormap; 

cinf o->ac tual_number_of_co lor s = cquantize->sv__actual ; 

/* Initialize for desired dithering mode. */ 
-.switch (cinf o->dither_mode) { 
Pease JDITHER_NONE: 

J] if (cinf o->out_color_components == 3) 

cquantize->pub. color_quantize = color_quantize3 ; 

-~ else 

JJ cquantize->pub. color_quantize = color_quantize; 

break; 
^case JDITHER_ORDERED: 

'dl if (cinf o->out__color_components == 3) 

■j% cquantize->pub. color_quantize = quant ize3__ord_dither; 
Z\ else 

HJ cquantize~>pub. color_quantize = quant ize_ord_dither; 
= cquantize->row_index =0; /* initialize state for ordered dither */ 
/* If user changed to ordered dither from another mode, 
* we must recreate the color index table with padding. 
Q * This will cost extra space, but probably isn't very likely. 

if ( ! cquantize->is_padded) 
x "| create_colorindex (cinf o) ; 

/* Create ordered-dither tables if we didn't already. */ 
~t if ( cquantize- >odither [0] == NULL) 
t=J create_odither_J:ables (cinf o) ; 

break; 
case JDITHER_FS: 

cquantize->pub. color_quantize = quantize_f s_dither ; 

cquantize->on_odd_row = FALSE; /* initialize state for F-S dither */ 
/* Allocate Floyd- Steinberg workspace if didn't already. */ 
if (cquantize->f serrors [0] == NULL) 

alloc_f s_workspace (cinfo) ; 
/* Initialize the propagated errors to zero. */ 

arraysize = (size_t) ( (cinf o->output_width + 2) * SIZEOF (FSERROR) ) ; 
for (i = 0; i < cinf o->out_color_components ; i++) 

jzero_far ( (void *) cquantize->f serrors [ i ] , arraysize); 
break; 
default: 

ERREXIT (cinfo , JERR_NOT_COMPILED) ; 
break; 

} 

} 



/* 

* Finish up at the end of the pass. 
*/ 

METHODDEF (void) 

f inish_pass_l_quant ( j__decompress_ptr cinfo) 
{ 

/* no work in 1-pass case */ 
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/* 

* Switch to a new external colormap between output passes. 

* Shouldn't get to this module! 
*/ 

METHODDEF (void) 

new_color_map_l_quant ( j_decompress _ptr cinfo) 
{ 

ERREXIT (cinfo, JERR_MODE_CHANGE) ; 

} 



/* 

* Module initialization routine for 1-pass color quantization. 
*/ 

GLOBAL (void) 

jinit_lpass_quantizer ( j_decompress_ptr cinfo) 
{ 

my_cquantize_ptr cquantize; 

cquantize = (my_cquantize_ptr ) 

( *cinf o->mem->alloc_small) ( ( j_common_j?tr) cinfo, JPOOL_IMAGE, 
SIZEOF (my_cquantizer) ) ; 
cinf o->cquantize = (struct jpeg_color_quantizer *) cquantize; 
cquantize->pub. start_pass = start_pass_l_quant ; 
cquantize- >pub. f inish_pass = f inish_pass_l_quant ; 
cquantize->pub.new_color_map = new_color_map_l_quant; 
f=«cquantize->f serrors [0] = NULL; /* Flag FS workspace not allocated */ 
~cquantize->odither [0] = NULL; /* Also flag odither arrays not allocated 

f^/* Make sure my internal arrays won't overflow */ 
^jif (cinf o->out_color_components > MAX_Q_COMPS) 
41 ERREXITl (cinfo, JERR_QUANT_COMPONENTS, MAX_Q_COMPS) ; 
Sj/* Make sure colormap indexes can be represented by JSAMPLEs */ 
_~if (cinf o->desired_number_of_colors > (MAXJSAMPLE+1) ) 

ERREXITl (cinfo, JERR_QUANT_MANY_COLORS, MAXJSAMPLE+1); 

Create the colormap and color index table. */ 
H -create_colormap (cinf o) ; 
s create_colorindex (cinf o) ; 

L./* Allocate Floyd-Steinberg workspace now if requested. 
I=J * We do this now since it is FAR storage and may affect the memory 
f|j * manager's space calculations. If the user changes to FS dither 
* mode in a later pass, we will allocate the space then, and will 
™ * possibly overrun the max_memory_to_use setting, 
p */ 

fz\if (cinfo->dither_mode == JDITHER_FS) 

^ alloc_f s_workspace (cinf o) ; 

} 

#endif /* QUANT_1PASS_SUPP0RTED */ 
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/* 

* jquant2.c 
* 

* Copyright (C) 1991-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 

* This file contains 2 -pass color quantization (color mapping) routines. 

* These routines provide selection of a custom color map for an image, 

* followed by mapping of the image to that color map, with optional 

* Floyd- Steinberg dithering. 

* It is also possible to use just the second pass to map to an arbitrary 

* externally-given color map. 
* 

* Note: ordered dithering is not supported, since there isn't any fast 

* way to compute intercolor distances; it's unclear that ordered dither's 

* fundamental assumptions even hold with an irregularly spaced color map. 
*/ 

idefine JPEG_INTERNALS 
#include " j include .h" 
iinclude "jpeglib.h" 

#ifdef QUANT_2PASS_SUPP0RTED 




/* 

* This module implements the well-known Heckbert paradigm for color 

* quantization. Most of the ideas used here can be traced back to 

* Heckbert 's seminal paper 

* Heckbert, Paul. "Color Image Quantization for Frame Buffer Display" , 
f*g Proc. SIGGRAPH '82, Computer Graphics v. 16 #3 (July 1982), pp 297-304. 

^ In the first pass over the image, we accumulate a histogram showing the 
n*i usage count of each possible color. To keep the histogram to a reasonable 

size, we reduce the precision of the input; typical practice is to retain 
y* m 5 or 6 bits per color, so that 8 or 4 different input values are counted 
M in the same histogram cell . 

^ Next, the color-selection step begins with a box representing the whole 

*lf color space, and repeatedly splits the "largest" remaining box until we 

ft* have as many boxes as desired colors. Then the mean color in each 

S1 * remaining box becomes one of the possible output colors. 
= * 

f=* The second pass over the image maps each input pixel to the closest output 
color (optionally after applying a Floyd-Steinberg dithering correction) . 
This mapping is logically trivial, but making it go fast enough requires 

is* considerable care. 

ij 

Heckbert-style quantizers vary a good deal in their policies for choosing 
U* the "largest" box and deciding where to cut it. The particular policies 

used here have proved out well in experimental comparisons, but better ones 
~* may yet be found. 
* 

* In earlier versions of the IJG code, this module quantized in YCbCr color 

* space, processing the raw upsampled data without a color conversion step. 

* This allowed the color conversion math to be done only once per colormap 

* entry, not once per pixel. However, that optimization precluded other 

* useful optimizations (such as merging color conversion with upsampling) 

* and it also interfered with desired capabilities such as quantizing to an 

* externally-supplied colormap. We have therefore abandoned that approach. 

* The present code works in the post-conversion color space, typically RGB. 
* 

* To improve the visual quality of the results, we actually work in scaled 

* RGB space, giving G distances more weight than R, and R in turn more than 

* B. To do everything in integer math, we must use integer scale factors. 

* The 2/3/1 scale factors used here correspond loosely to the relative 

* weights of the colors in the NTSC grayscale equation. 

* If you want to use this code to quantize a non-RGB color space, you'll 

* probably need to change these scale factors. 
*/ 

#define R_SCALE 2 /* scale R distances by this much */ 

idefine G_SCALE 3 /* scale G distances by this much */ 

#define B_SCALE 1 /* and B by this much */ 

/* Relabel R/G/B as components 0/1/2, respecting the RGB ordering defined 

* in jmorecfg.h. As the code stands, it will do the right thing for R,G,B 

* and B,G,R orders. If you define some other weird order in jmorecfg.h, 

* you'll get compile errors until you extend this logic. In that case 
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* you'll probably wane to t^^^ the histogram sizes too. 
*/ 

#if RGB_RED == 0 
idefine C0_SCALE R_SCALE 
#endif 

#if RGB_BLUE == 0 
tdefine C0_SCALE B_SCALE 
#endif 

#if RGB_GREEN ==1 
tdefine C1_SCALE G_SCALE 
#endif 

#if RGB_RED == 2 
idefine C2_SCALE R_SCALE 
iendif 

#if RGB_BLUE ==2 
tdefine C2_SCALE B_SCALE 
#endif 



/* 

* First we have the histogram data structure and routines for creating it. 
* 

* The number of bits of precision can be adjusted by changing these symbols. 

* We recommend keeping 6 bits for G and 5 each for R and B. 

* If you have plenty of memory and cycles, 6 bits all around gives marginally 

* better results; if you are short of memory, 5 bits all around will save 

* some space but degrade the results. 

* To maintain a fully accurate histogram, we'd need to allocate a "long" 
(preferably unsigned long) for each cell. In practice this is overkill; 

^ we can get by with 16 bits per cell. Few of the cell counts will overflow, 
y@ and clamping those that do overflow to the maximum value will give close- 
ffk enough results. This reduces the recommended histogram size from 256Kb 
l£ to 128Kb, which is a useful savings on PC-class machines. 

(In the second pass the histogram space is re-used for pixel mapping data; 

in that capacity, each cell must be able to store zero to the number of 
^ desired colors. 16 bits/cell is plenty for that too.) 
^ Since the JPEG code is intended to run in small memory model on 80x86 
*f§ machines, we can't just allocate the histogram in one chunk. Instead 
^ of a true 3-D array, we use a row of pointers to 2-D arrays. Each 
r * pointer corresponds to a CO value (typically 2*5 = 32 pointers) and 
a* each 2-D array has 2 A 6*2~5 = 2048 or 2 A 6*2 A 6 = 4096 entries. Note that 
y£ on 80x86 machines, the pointer row is in near memory but the actual 
L* arrays are in far memory (same arrangement as we use for image arrays) . 

Idefine MAXNUMCOLORS (MAXJSAMPLE+1 ) /* maximum size of colormap */ 

O These will do the right thing for either R, G, B or B,G,R color order, 

~=* but you may not like the results for other color orders. 

«*/ 

idefine HIST__C0_BITS 5 /* bits of precision in R/B histogram */ 

#define HIST_C1_BITS 6 /* bits of precision in G histogram */ 

tdefine HIST_C2_BITS 5 /* bits of precision in B/R histogram */ 



/* Number of elements along histogram axes. */ 
tdefine HIST_C0_ELEMS ( 1«HIST_C0_BITS) 
idefine HIST_C1_ELEMS ( 1«HIST_C1_BITS) 
idefine HIST_C2_ELEMS ( 1«HIST_C2_BITS) 



/* These are the amounts to shift an input value to get a histogram index. */ 
idefine C0_SHIFT < BITS_IN_JSAMPLE-HIST_CO_BITS) 
idefine C1_SHIFT ( BITS_IN_JSAMPLE-HIST_C1_BITS) 
idefine C2_SHIFT ( BITS_IN_JS AMPLE -HI ST_C2_BITS) 



typedef UINT16 histcell; /* histogram cell; prefer an unsigned type */ 

typedef histcell * histptr; /* for pointers to histogram cells */ 

typedef histcell histld [HIST_C2_ELEMS] ; /* typedef s for the array */ 

typedef histld * hist2d; /* type for the 2nd-level pointers */ 

typedef hist2d * hist3d; /* type for top-level pointer */ 



/* Declarations for Floyd-Steinberg dithering. 
* 

* Errors are accumulated into the array fserrors[], at a resolution of 

* l/16th of a pixel count. The error at a given pixel is propagated 

* to its not-yet-processed neighbors using the standard F-S fractions, 
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... (here) 7/16 
3/16 5/16 l/16j^^ 
We work left-to-right on evBr rows, right-to-left on odd rows. 

We can get away with a single array (holding one row's worth of errors) 
by using it to store the current row's errors at pixel columns not yet 
processed, but the next row's errors at columns already processed. We 
need only a few extra variables to hold the errors immediately around the 
current column. (If we are lucky, those variables are in registers, but 
even if not, they're probably cheaper to access than array elements are.) 

The fserrorsf] array has (#columns + 2) entries; the extra entry at 
each end saves us from special-casing the first and last pixels. 
Each entry is three values long, one value for each color component. 

Note: on a wide image, we might not have enough room in a PC's near data 
segment to hold the error array? so it is allocated with alloc_large. 



#if BITS_IN_JSAMPLE == 8 

typedef INT16 FSERROR ; 

typedef int LOC FSERROR; 
#else 

typedef INT32 FSERROR; 

typedef INT32 LOCFSERROR; 
#endif 

typedef FSERROR *FSERRPTR; 



jQi Private subobject */ 

fc||?edef struct { 
Obstruct jpeg_color_quantizer pub; /* public fields */ 

CV* Space for the eventually created colormap is stashed here */ 
'^JSAMPARRAY sv_colormap ; /* colormap allocated at init time */ 
^fjint desired; /* desired # of colors = size of colormap */ 

2=;/* Variables for accumulating image statistics */ 
FUhist3d histogram; /* pointer to the histogram */ 

7 , boolean needs_zeroed ; /* TRUE if next pass must zero histogram */ 

Q/* Variables for Floyd-Steinberg dithering */ 
=="=FSERRPTR fserrors; /* accumulated errors */ 

s ^boolean on_odd_row; /* flag to remember which row we are on */ 

%jint * error_limiter ; /* table for clamping the applied error */ 

J a *my_cquantizer ; 

Qpedef my_cquantizer " my_cquantize_ptr ; 



/* 16 bits should be enough */ 

/* use 'int' for calculation temps */ 

/* may need more than 16 bits */ 

/* be sure calculation temps are big enough */ 



/* pointer to error array (in FAR storage!) */ 



/* 

* Prescan some rows of pixels. 

* In this module the prescan simply updates the histogram, which has been 

* initialized to zeroes by start_pass. 

* An output_buf parameter is required by the method signature, but no data 

* is actually output (in fact the buffer controller is probably passing a 

* NULL pointer) . 
*/ 

METHODDEF (void) 

prescan_quantize ( j_decompress_ptr cinfo, JSAMPARRAY input_buf, 
JSAMPARRAY output_buf, int num_rows) 

{ 

my_c quant ize_ptr cquantize = (my_cquantize_ptr) cinf o->cquantize; 
register JSAMPROW ptr; 
register histptr histp; 

register hist3d histogram = cquantize->histogram; 
int row; 
JDIMENSION col; 

JDIMENSION width = cinf o->output_width; 

for (row = 0; row < num_rows; row++) { 
ptr = input_buf [ro^j ,- 
for (col = width; col > 0; col--) { 

/* get pixel value and index into the histogram */ 
histp = & histogram[GETJSAMPLE(ptr [0] ) » C0_SHIFT] 
[GETJSAMPLE (ptr [1] ) » C1_SHIFT] 
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/* increment, check fo: 
if (++(*histp) <- 0) 



[GETJSAMPLE (ptr 




» C2_SHIFT] ; 

trflow and undo increment if so. 




(*histp) — ; 
ptr += 3; 

} 



} 



} 



/* 

* Next we have the really interesting routines: selection of a colormap 

* given the completed histogram. 

* These routines work with a list of "boxes", each representing a rectanguL 

* subset of the input color space (to histogram precision) . 
*/ 

typedef struct { 

/* The bounds of the box (inclusive); expressed as histogram indexes */ 
int cOmin, cOmax; 
int clmin, clmax; 
int c2min, c2max; 

/* The volume (actually 2 -norm) of the box */ 
INT3 2 volume; 

/* The number of nonzero histogram cells within this box */ 
long colorcount; 
} box; 

typedef box * boxptr; 



ik&AL (boxptr) 

fijjhd_biggest_ color_pop (boxptr boxlist, int numboxes) 

iff! Find the splittable box with the largest color population */ 

fjl- Returns NULL if no splittable boxes remain */ 

m 

\.a:egister boxptr boxp; 
^register int i; 
^-register long maxc = 0; 
-jjboxptr which = NULL; 

; ^for (i =0, boxp = boxlist; i < numboxes; i++, boxp++) { 
s if (boxp->colorcount > maxc && boxp -> volume > 0) { 

which = boxp; 
L._ maxc = boxp->colcrcount ; 



f ind_biggest_volume (boxptr boxlist, int numboxes) 
/* Find the splittable box with the largest (scaled) volume */ 
/* Returns NULL if no splittable boxes remain */ 
{ 

register boxptr boxp; 
register int i; 
register INT32 maxv = 0; 
boxptr which = NULL; 

for (i = 0, boxp = boxlist; i < numboxes; i++, boxp++) { 
if (boxp->volume > maxv) { 
which = boxp; 
maxv = boxp -> vol lime ; 

} 

} 

return which; 



LOCAL (void) 

update_box ( j_decompress_ptr cinfo, boxptr boxp) 

/* Shrink the min/max bounds of a box to enclose only nonzero elements, */ 

/* and recompute its volume and population */ 

{ 

nty_cquantize__ptr cquantize = (my_cquantize_ptr ) cinf o->cquantize; 
hist3d histogram = cquantize->histogram; 
histptr histp; 
int c0,cl,c2; 



U } 
l '"return which; 



feOCAL (boxptr) 



} 



4 



int cOmin, cOmax, clmin , clmax^^min, c2max; 
INT32 distO, distl, dist2; 
long c count; 



cOmin - boxp->cOmin; cOmax - boxp->cOmax; 
clmin = boxp->clmin; clmax = boxp->clmax; 
c2min = boxp->c2min; c2max = boxp->c2max; 

if (cOmax > cOmin) 

for (cO = cOmin; cO <= cOmax; cO++) 

for (cl = clmin; cl <= clmax; cl++) { 
histp = & histogramfcO] [cl] [c2min] ; 
for (c2 = c2min; c2 <= c2max; c2++) 
if (*histp++ != 0) { 

boxp->cOmin - cOmin = cO; 
goto have_cOmin; 

} 
} 

have_cOmin: 
if (cOmax > cOmin) 

for (cO = cOmax; cO >= cOmin; cO--) 

for {cl = clmin; cl <= clmax; cl++) { 
histp = & histogram [cO] [cl] [c2min] ; 
for (c2 = c2min; c2 <= c2max; c2++) 
if (*histp++ != 0) { 

boxp->c0max - cOmax = cO; 
goto have_cOmax; 

} 
} 

have_cOmax: 

(clmax > clmin) 
W for (cl = clmin; cl <= clmax; cl++) 
■Jj for (cO = cOmin; cO <= cOmax; c0++) { 
?zl histp = & histogram [cO] [cl] [c2min] ; 
^ £ for {c2 = c2min; c2 <= c2max; c2++) 
41 if (*histp++ != 0) { 

boxp->clmin = clmin = cl; 
2* goto have_clmin; 

3^ave_clmin: 

j^if (clmax > clmin) 

s for (cl = clmax; cl >= clmin; cl--) 

- Ult for (cO = cOmin; cO <= cOmax; c0++) { 

histp = & histogram [cO] [cl] [c2min] ; 
Q for (c2 = c2min; c2 <= c2max; c2++) 
Ffj if (*histp++ != 0) { 

boxp->clmax = clmax = cl; 
goto have_clmax; 

} 
> 

-have_clmax: 

if (c2max > c2min) 

for (c2 = c2min; c2 <= c2max; c2++) 

for (cO = cOmin; cO <= cOmax; c0++) { 
histp = & histogram [cO] [clmin] [c2]; 

for (cl = clmin; cl <= clmax; cl++, histp += HIST_C2„ELEMS) 
if (*histp != 0) { 

boxp->c2min = c2min = c2 ; 
goto have_c2min; 

} 
} 

have_c2min: 
if (c2max > c2min) 

for (c2 = c2max; c2 >= c2min; c2--) 

for (cO = cOmin; cO <= cOmax; c0++) { 
histp = & histogram [cO] [clmin] [c2] ; 

for (cl = clmin; cl <= clmax; cl++, histp + = HIST_C2„ELEMS) 
if (*histp != 0) { 

boxp->c2max = c 2 max = c2 ; 
goto have_c2max; 

} 
} 

have_c2max: 

/* Update box volume. 

* We use 2 -norm rather than real volume here; this biases the method 

* against making long narrow boxes, and it has the side benefit that 

* a box is splittable iff norm > 0. 

* Since the differences are expressed in histogram-cell units, 



we have to shift back t 
after which, we scale a< 



W 



PLE units to get consistent dis 
ing to the selected distance seal 



S; 

ctors . 



distO = ((cOmax - cCrnin) « CO_SHIFT) * C0„SCALE; 
distl = ((clmax - clnin) « C1_SHIFT) * C1_SCALE; 
dist2 = ((c2max - c2min) « C2_SHIFT) * C2_SCALE; 
boxp->volume = distO'distO + distl*distl + dist2*dist2; 

/* Now scan remaining volume of box and compute population */ 
ccount = 0 ; 

for (cO = cOmin; cO <= cOmax; c0++) 

for (cl = clmin; cl <= clmax; cl++) { 

histp = & histogram[cO] [cl] [c2min] ; 

for (c2 = c2min; c2 <= c2max; c2++, histp++) 
if (*histp != 0) { 

ccount++ ; 

} 
} 

boxp->colorcount = ccount; 



LOCAL (int) 

median_cut ( j_decompress_ptr cinfo, boxptr boxlist, int numboxes, 
int desired_colors) 

/* Repeatedly select and split the largest box until we have enough boxes */ 
{ 

int n, lb; 

int cO , cl, c2 , cmax; 
register boxptr bl,b2; 



fnwhile (numboxes < desired_colors ) { 

/* Select box to split. 
'41 * Current algorithm: by population for first half, then by volume. 

01 */ 

~ Sh if (numboxes* 2 <= desired_colors ) { 

^ bl = f ind_biggesc_color_pop (boxlist, numboxes); 

%j } else { 

bl = find_biggest_volume (boxlist , numboxes); 



} 



/* no splittable boxes left! 



if (bl == NULL) 

break; 

b2 = &boxlist [numboxes] ; /* where new box will go */ 
/* Copy the color bounds to the new box. */ 

b2->c0max = bl->cC;nax; b2->clmax = bl->clmax; b2->c2max = bl->c2max; 
b2->c0min = bl->cOmin; b2->clmin = bl->clmin; b2->c2min = bl->c2min; 
/* Choose which axis to split the box on. 

* Current algorithm: longest scaled axis. 

* See notes in update_box about scaling distances. 
*/ 

cO - ( (bl->cOmax - bl->cOmin) « C0_SHIFT) * C0_SCALE; 
cl = ({bl->clmax - bl->clmin) « C1_SHIFT) * C1_SCALE; 
c2 = ( (bl->c2max - bl->c2min) « C2_SHIFT) * C2_SCALE; 
/* We want to break any ties in favor of green, then red, blue last. 

* This code does the right thing for R,G,B or B,G,R color orders only. 



#if 



RGB_RED == 
cmax = cl; 
if (cO 
if (c2 
#else 

cmax = cl; 
if (c2 



0 

n = 
cmax) 
cmax) 



cmax = 
n = 2; 



if 

#endif 

/* 



{cO 



n = 

> cmax) 

> cmax) 



1; 

{ cmax = 
{ n = 0; 



cO; 
} 



C2; 
} 



n = 0; } 



n = 2; } 



Choose split point along selected axis, and update box bounds. 

Current algorithm: split at halfway point. 

(Since the box has been shrunk to minimum volume, 

any split will produce two nonempty subboxes . ) 

Note that lb value is max for lower box, so must be < old max. 

{ 



switch (n) 
case 0: 

lb = (bl->c0max + bl->c0min) / 2; 
bl->c0max = lb; 
b2->c0min = lb+1; 
break; 
case 1: 

lb = (bl->clmax + bl->clmin) / 2; 
bl->clmax = lb; 
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fo2->clmin = lb+1; 
break; 
case 2 : 




lb = (bl->c2max + bl->c2min) / 2; 
bl->c2max = lb; 
b2->c2min = lb+1; 
break; 

} 

/* Update stats for boxes */ 
update_box (cinf o , bl ) ; 
update_box(cinfo, b2 ) ; 
numboxes++; 

) 

return numboxes; 

} 



LOCAL (void) 

compute_color ( j_decompress_ptr cinfo, boxptr boxp, int icolor) 

/* Compute representative color for a box, put it in colormap [icolor] 

{ 

/* Current algorithm: mean weighted by pixels (not colors) */ 
/* Note it is important to get the rounding correct! */ 
my_cquantize_ptr cquantize = ( my_c quant ize_ptr) cinf o->cquantize; 
hist3d histogram = cquantize->histogram; 
histptr histp; 
int c0,cl,c2; 

int cOmin, cOmax, clmin , clmax, c2min, c2max; 

long count; 

long total = 0; 

long cOtotal = 0 
fJLong cltotal = 0 
ILlong c2 total = 0 
«J 

07cOmin - boxp->c0min ; cOmax 
f^clmin = boxp->clmin; clmax 
-fc2min = boxp->c2min; c2max 



boxp->c0max; 
boxp->clmax; 
boxp->c2max; 



,nfor {c0 = cOmin; cO <= cOmax; c0++) 
"tf for (cl = clmin; cl <= clmax; cl + +) { 
Ui histp = & histogram[cO] [cl] [c2min] ; 
ffl for (c2 = c2min; c2 <= c2max; c2++) { 
s " if ((count = *histp++) != 0) { 
5 total += count; 

U cOtotal += ((cO -< C0_SHIFT) 
cltotal += ((cl << C1_SHIFT) 
c2total += ( (c2 << C2_SHIFT) 

} 



( (1«C0_SHIFT)»1) ) 
( (1«C1_SHIFT)»1) ) 
( (1«C2_SHIFT)»1) ) 



counts- 
count; 
count; 



} 



} 



r\ cinfo->colormap[0] [icolor] = (JSAMPLE) ((cOtotal + (total»l)) / total) 

~"cinfo->colormap[13 [icolor] = (JSAMPLE) ((cltotal + (total»l)) / total) 

cinfo->colormap[2] [icolor] = (JSAMPLE) ( (c2total + (total»l)) / total) 

} 



LOCAL (void) 

select_colors ( j_decompress_ptr cinfo, int desired_colors) 

/* Master routine for color selection */ 

{ 

boxptr boxlist; 
int numboxes; 
int i ; 

/* Allocate workspace for box list */ 
boxlist = (boxptr) ( "cinf o->mem->alloc_small ) 

( ( j_common_ptr) cinfo, JPOOL_IMAGE, desired_colors * SIZEOF (box) ) ; 
/* Initialize one box containing whole space */ 
numboxes = 1; 
boxlist [0] .cOmin = 0; 

boxlist [0] .cOmax = MAXJSAMPLE » C0_SHIFT; 
boxlist [0] .clmin = 0; 

boxlist [0] .clmax = MAXJSAMPLE » C1„SHIFT; 
boxlist [0] . c2min = 0; 

boxlist [0] .c2max = MAXJSAMPLE » C2_SHIFT; 

/* Shrink it to actually-used volume and set its statistics */ 
update_box (cinf o, & boxlist[0]); 

/* Perform median-cut to produce final box list */ 

numboxes = median_cut (cinf o, boxlist, numboxes, desired_colors) ; 
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/* Compute the representat^^^olor for each box, fill colormap^ 

for (i = 0; i < numboxes; 

compute_color (cinf o , & boWPst[i], i) ; 
cinf o->actual_number_of_colors = numboxes; 
TRACEMS1 (cinfo, 1, OTRC_QUANT_S ELECTED, numboxes); 



/* 

* These routines are concerned with the time-critical task of mapping input 

* colors to the nearest color in the selected colormap. 
* 

* We re-use the histogram space as an "inverse color map", essentially a 

* cache for the results of nearest-color searches. All colors within a 

* histogram cell will be mapped to the same colormap entry, namely the one 

* closest to the cell's center. This may not be quite the closest entry to 

* the actual input color, but it's almost as good. A zero in the cache 

* indicates we haven't found the nearest color for that cell yet; the array 

* is cleared to zeroes before starting the mapping pass. When we find the 

* nearest color for a cell, its colormap index plus one is recorded in the 

* cache for future use . The pass2 scanning routines call f ill_inverse_cmap 

* when they need to use an unfilled entry in the cache. 
* 

* Our method of efficiently finding nearest colors is based on the "locally 

* sorted search" idea described by Heckbert and on the incremental distance 

* calculation described by Spencer W. Thomas in chapter III.l of Graphics 

* Gems II (James Arvo, ed. Academic Press, 1991) . Thomas points out that 

* the distances from a given colormap entry to each cell of the histogram can 

* be computed quickly using an incremental method: the differences between 

* distances to adjacent cells themselves differ by a constant. This allows a 

* fairly fast implementation of the "brute force" approach of computing the 
f% distance from every colormap entry to every histogram cell. Unfortunately, 

it needs a work array to hold the best-distance-so-far for each histogram 
^ cell {because the inner loop has to be over cells, not colormap entries) . 
ffl The work array elements have to be INT32s, so the work array would need 
~!l 256Kb at our recommended precision. This is not feasible in DOS machines. 

S§ To get around these problems, we apply Thomas' method to compute the 
d nearest colors for only the cells within a small subbox of the histogram. 
y*f The work array need be only as big as the subbox, so the memory usage 
-Jl problem is solved. Furthermore, we need not fill subboxes that are never 
ffi referenced in pass2 ; many images use only part of the color gamut, so a 
sw fair amount of work is saved. An additional advantage of this 
= * approach is that vie can apply Heckbert 's locality criterion to quickly 
Lt eliminate colormap entries that are far away from the subbox; typically 
L,* three- fourths of the colormap entries are rejected by Heckbert 's criterion, 

and we need not compute their distances to individual cells in the subbox. 
flS The speed of this approach is heavily influenced by the subbox size: too 
L_l small means too much overhead, too big loses because Heckbert 's criterion 
2f can't eliminate as many colormap entries. Empirically the best subbox 
pf size seems to be about l/512th of the histogram (l/8th in each direction) . 

^* Thomas' article also describes a refined method which is asymptotically 

* faster than the brute- force method, but it is also far more complex and 

* cannot efficiently be applied to small subboxes. It is therefore not 

* useful for programs intended to be portable to DOS machines. On machines 

* with plenty of memory, filling the whole histogram in one shot with Thomas' 

* refined method might be faster than the present code but then again, 

* it might not be any faster, and it's certainly more complicated. 
*/ 



/* log2 (histogram cells in update box) for each axis; this can be adjusted */ 
#define BOX_C0_LOG (HIST_C0_BITS-3 ) 
#define B0X_C1_L0G (HIST_Cl_BITS-3 ) 
#define BOX_C2_LOG (HIST_C2_BITS-3 ) 

#define BOX_C0_ELEMS { l«BOX_C0_LOG) /* # of hist cells in update box */ 
#define BOX_Cl_ELEMS a<<BOX_Cl_LOG) 
tdefine BOX_C2_ELEMS <1<<B0X_C2_L0G) 

#define BOX_C0_SHIFT {C0_SHIFT + BOX_C0_LOG) 
#define B0X_C1_SHIFT (C1_SHIFT + BOX_Cl_LOG) 
#define B0X_C2_SHIFT (C2_SHIFT + BOX_C2_LOG) 



/* 

* The next three routines implement inverse colormap filling. They could 

* all be folded into one big routine, but splitting them up this way saves 

* some stack space (the mindist[] and bestdist[] arrays need not coexist) 
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L^j^^o produce better code by regis tej^^^ig 



* and may allow some "ompilg^^fo produce better code by registej^^^ig more 

* inner-loop variable. 



LOCAL (int) 

f ind_nearby_colors ( j_ ■ iecompress_ptr cinfo, int mincO, int mincl, int minc2, 

JS AMPLE cclorlistU) 
/* Locate the colormap entries close enough to an update box to be candidates 

* for the nearest entry to some cell(s) in the update box. The update box 

* is specified by the center coordinates of its first cell. The number of 

* candidate colormap entries is returned, and their colormap indexes are 

* placed in colorlist '] . 

* This routine uses Heckbert's "locally sorted search" criterion to select 

* the colors that need further consideration. 
*/ 

{ 

int numcolors = cinfo ->ac tual_number_of _colors ; 

int maxcO, maxcl, maxc2; 

int centercO, centercl, centerc2 ; 

int i, x, ncolors; 

INT32 minmaxdist , mi.n_dist, max_dist, tdist; 

INT32 mindist [MAXNUMCOLORS] ; /* min distance to colormap entry i */ 

/* Compute true coordinates of update box's upper corner and center. 

* Actually we compute the coordinates of the center of the upper-corner 

* histogram cell, v:hich are the upper bounds of the volume we care about. 

* Note that since ">>" rounds down, the "center" values may be closer to 

* min than to max; hence comparisons to them must be "<=", not "<" . 
*/ 

maxcO = mincO + ( (1 « BOX_C0_SHIFT) - (1 « C0_SHIFT) ) ; 

centercO = (mincO + maxcO) » 1; 
-jnaxcl = mincl + ((1 << B0X_C1_SHIFT) - (1 « Cl_SHIFT) ) ; 
*=- s centercl = (mincl + maxcl) » 1; 

ifanaxc2 = minc2 + ((1 « B0X_C2_SHIFT) - (1 « C2_SHIFT) ) ; 
~centerc2 = (minc2 + maxc2) » 1; 

y s 

%| J/ * For each color in colormap, find: 

i: * 1. its minimum squared-distance to any point in the update box 
^ * (zero if color is within update box) ; 

yj * 2. its maximum squared-distance to any point in the update box. 

J% * Both of these can be found by considering only the corners of the box. 

^ * We save the minimum distance for each color in mindistH; 

HJ * only the smallest maximum distance is of interest. 

^minmaxdist = 0x7 FFF! TFFL; 

Qfor (i = 0; i < numcolors; i+ + ) { 

«§ /* We compute the squared-cO -distance term, then add in the other two. */ 
I" x = GETJSAMPLE(cineo->colormap[0] [i] ) ; 
\l if (x < mincO) { 

Q tdist = (x - mincO) * C0_SCALE; 

Zl min_dist = tdis t * tdist ; 

UJ tdist = (x - maxcO) * C0_SCALE; 

max_dist = tdis tdist; 
} else if (x > maxcO) { 

tdist = (x - maxcO) * C0_SCALE; 

min_dist = tdist 1 tdist ; 

tdist = (x - mincO) * C0_SCALE; 

max__dist = tdist ' tdist; 
) else { 

/* within cell r^nge so no contribution to min_ dist */ 

min_dist = 0; 

if (x <= centercO) { 
tdist = (x - maxcOl * C0_SCALE; 
max_dist = tdist* tdist ; 

} else { 

tdist = (x - mincO) * C0_SCALE; 
max_dist = tdist* Mist; 
} 

} 



x = GETJSAMPLE (cinf o->colormap[l] [i] ) ; 
if (x < mincl) { 

tdist = (x - mincl) * C1_SCALE; 

min_dist += tdist 'tdist; 

tdist = (x - maxcl) * C1_SCALE; 

max_dist += tdirt * tdist ; 
} else if (x > maxcl) { 

tdist = (x - max-l) * C1_SCALE; 

min_dist += tdif t 1 tdist ; 



tdist = (x - mir~l) * ^ttKTALE; 
max_dist += tdis t* tdis^^H 
} else { 

/* within cell r^.nge so no contribution to min_dist */ 

if (x <= center*-!) { 
tdist = (x - maxci}_ * C1_SCALE; 
max__dist += tdist* tdist; 

} else { 

tdist = (x - mincl) * C1_SCALE; 
max_dist += tdist 'tdist; 
} 

} 

x = GETJSAMPLE (cinfo->colormap [2] [i] ) ; 
if (x < minc2) { 

tdist = (x - minc2) * C2_SCALE; 

min_dist += tdist 1 " tdist ; 

tdist = (x - maxc2) * C2_SCALE; 

max_dist += tdist* tdist; 
} else if (x > maxc2) { 

tdist = (x - maxc2) * C2_SCALE; 

min_dist += tdist* tdist; 

tdist = (x - mir:c2) * C2_SCALE; 

max_dist += tdir t* tdist; 
} else { 

/* within cell range so no contribution to min_dist */ 

if (x <= centerc2) { 
tdist = (x - maxc2) * C2_SCALE; 
max__dist += tdist ' tdist; 

} else { 

tdist = {x - minc2) * C2_SCALE; 
max_dist += tdist* tdist; 

mindist[i] - min_dist; /* save away the results */ 

fc iJ if (max_dist < minmaxdist) 
L - s minmaxdist = max_dist; 
J) 

•JV* Now we know that no cell in the update box is more than minmaxdist 
Z** * away from some colormap entry. Therefore, only colors that are 
* within minmaxdist of some part of the box need be considered. 

^.ncolors = 0; 

^for (i = 0; i < numcolors; i + +) { 

rj if (mindist[i] <= minmaxdist) 

fzi colorlist [ncolors + + ] = (JSAMPLE) i; 

^-Jreturn ncolors; 




LOCAL (void) 

f ind_best_colors { j_decompress_ptr cinfo, int mincO, int mincl, int minc2 , 

int numcolors, JSAMPLE colorlist [] ( JSAMPLE bestcolor[]) 
/* Find the closest colormap entry for each cell in the update box, 

* given the list of candidate colors prepared by f ind_nearby_colors . 

* Return the indexes of the closest entries in the bestcolor[] array. 

* This routine uses Thomas' incremental distance calculation method to 

* find the distance from a colormap entry to successive cells in the box. 
*/ 

{ 

int icO, icl, ic2 ; 
int i, icolor; 

register INT3 2 * bptr; /* pointer into bestdist[] array */ 
JSAMPLE * cptr; /* pointer into bestcolor[] array */ 

INT32 distO, distl; /* initial distance values */ 

register INT32 dist2; /* current distance in inner loop */ 

INT32 xxO, xxl; /* distance increments */ 

register INT32 xx2 ; 

INT32 incO, incl, inc2 ; /* initial values for increments */ 

/* This array holds the distance to the nearest-so-far color for each cell */ 

INT32 bestdist [BOX_C0_ELEMS * B0X_C1_ELEMS * BOX_C2_ELEMS] ; 

/* Initialize best-distance for each cell of the update box */ 
bptr = bes tdist; 

for (i = BOX_C0_ELEMS*BOX_Cl_ELEMS*BOX_C2_ELEMS-l; i >= 0; i--) 

*bptr++ = 0x7FFFFFFFL; 
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For each color selected 
compute its distance to 
If that's less than best* 



ind_nearby_colors , 
center of each cell in the box 
-far, update best distance and cof 



number 



/* Nominal steps between cell centers ("x" in Thomas article) */ 
idefine STEP_C0 ((1 << C0_SHIFT) * CO_SCALE) 
#define STEP„C1 ((1 << C1_SHIFT) * Cl.SCALE) 
#define STEP_C2 ({1 « C2_SHIFT) * C2_SCALE) 

for (i = 0; i < numcolors; i++) { 
icolor = GETJSAMPLE (color list [i] ) ; 

/* Compute (square of) distance from minc0/cl/c2 to this color */ 
incO = (mincO - GET JSAMPLE (c info- >colormap [0] [icolor] ) ) * C0_SCALE; 

distO = inc0*inc0; 

incl = (mincl - GETJSAMPLE (cinf o->colormap [ 1] [icolor] ) ) * C1_SCALE; 

distO += incl*incl; 

inc2 = (minc2 - GETJSAMPLE (cinf o->colormap [2] [icolor] ) ) * C2_SCALE; 

distO += inc2*inc2; 

/* Form the initial difference increments */ 
incO = incO * (2 * STEP_C0) + STEP_C0 * STEP_C0; 
incl = incl * (2 * STEP_C1) + STEP_C1 * STEP_C1; 
inc2 = inc2 * (2 * STEP_C2) + STEP_C2 * STEP_C2 ; 

/* Now loop over all cells in box, updating distance per Thomas method 

bptr = bestdist; 
cptr = bestcolor; 
xxO = incO; 

for (icO = BOX_C0_ELEMS-l; icO >= 0; icO— ) { 
distl = distO; 
xxl - incl; 

for (icl = BOX_Cl__ELEMS-l; icl > = 0; icl--) { 
dist2 = distl; 
^- xx2 = inc2; 

Ul for (ic2 = BOX_C2_ELEMS-l; ic2 >= 0; ic2--) { 

g\ if {dist2 < *bptr) { 

*bptr = dist2; 
^3 *cptr = (JSAMPLE) icolor; 



dist2 += xx2 ; 



xx2 +— 2 
bptr++ ; 
cptr++ ; 



STEP„C2 * STEP_C2; 
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} 

distl + 

XXl -r = 
} 

distO 
xxO + 

} 



xxl ; 

* STEP_C1 

-- xxO ; 
2 * STEP_C0 



STEP_C1; 



STEP_C0; 



LOCAL (void) 

f ill_inverse_cmap ( j_decompress_ptr cinfo, int cO, int cl, int c2) 

/* Fill the inverse- co lormap entries in the update box that contains */ 

/* histogram cell c0/cl/c2. (Only that one cell MUST be filled, but */ 

/* we can fill as many others as we wish.) */ 

{ 

my_cquantize_ptr cquantize = (my_cquantize_ptr ) cinf o->cquantize; 
hist3d histogram = cquantize->histogram; 

int mincO, mincl, minc2; /* lower left corner of update box */ 

int icO, icl, ic2; 

register JSAMPLE * cptr; /* pointer into bestcolor [] array */ 
register histptr cachep; /* pointer into main cache array */ 
/* This array lists the candidate colormap indexes. */ 

JSAMPLE colorlist [MAX NUMCOLORS] ; 

int numcolors; /* number of candidate colors */ 

/* This array holds the actually closest colormap index for each cell. */ 
JSAMPLE bestcolor [BOX_C0_ELEMS * BOX_Cl_ELEMS * BOX_C2_ELEMS] ; 

/* Convert cell coordinates to update box ID */ 
CO »= BOX_C0_LOG; 
Cl »= BOX_Cl_LOG 
c2 »= BOX C2 LOG 



/* Compute true coordinates of update box's origin corner. 

* Actually we compute the coordinates of the center of the corner 

* histogram cell, which are the lower bounds of the volume we care about 
*/ 
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mincO = (cO << BOX_CO_SHIF' 
mincl = (cl « B0X_C1_SHIF' 
minc2 = (c2 « BOX_C2_SHIF' 



{{1 « CO_SHIFT) » 1) 
{ (1 « C1_SHIFT) » 1) 
( (1 « C2_SHIFT) » 1) 



/* Determine which colormap entries are close enough to be candidates 
* for the nearest entry to some cell in the update box. 
*/ 

numcolors = f ind_nearby_colors (cinf o, mincO, mincl, minc2, colorlist) ; 
/* Determine the actually nearest colors. */ 

f ind_best„colors (cinf o , mincO, mincl, minc2, numcolors, colorlist, 

bestcolor) ; 



/* Save the best color numbers (plus 1) in the main cache array */ 
cO «= BOX_C0_LOG; /* convert ID back to base cell indexes */ 

Cl «= BOX_C1_LOG; 
c2 «= BOX_C2_LOG; 
cptr = bestcolor; 

for (icO = 0; icO < BOX_C0_ELEMS ; ic0++) { 
for (icl = 0; icl < BOX_Cl_ELEMS ; icl++) { 

cachep = & histogram[c0+ic0] [cl+icl] [c2 ] ; 

for (ic2 = 0; ic2 < BOX_C2_ELEMS ; ic2++) { 
*cachep++ = (histcell) (GETJSAMPLE ( *cptr++) + 1) ; 

} 



} 



} 



^ Map some rows of pixels to the output colormapped representation. 

f/ 

I^THODDEF(void) 

£a ? ss2_no_dither ( j_decompress_ptr cinfo, 

Sj JSAMPARRAY input_buf , JSAMPARRAY output_buf , int num_rows) 

lK This version performs no dithering */ 

ijjmy_cquantize_ptr cquantize = (my_cquantize_ptr) cinf o->cguantize; 
s"=hist3d histogram = cquantize->histogram; 
—register JSAMPROW inptr, outptr; 
= register histptr cachep; 
^register int cO, cl, c2; 

int row; 
UjDIMENSION col; 

njJDIMENSION width = cinfo->output_width; 

"sfor (row = 0; row < num_rows; row++) { 
PI inptr = input_buf [row] ; 
P\ outptr = output_buf [row] ; 
^ for (col = width; col > 0; col--) { 

/* get pixel value and index into the cache */ 

cO = GETJSAMPLE ( * inptr++ ) » C0_SHIFT; 

cl = GETJSAMPLE ( * inptr++ ) » Cl_SHIFT? 

c2 = GETJSAMPLE (*inptr++) » C2_SHIFT; 

cachep = & his togram [cO] [cl ] [c2 J ; 

/* If we have not seen this color before, find nearest colormap entry 

/ + and update the cache */ 
if (^cachep == 0) 
f ill_inverse_cmap (cinfo, cO , cl , c2 ) ; 

/* Now emit the colormap index for this cell */ 
*outptr++ = (JS AMPLE ) (*cachep - 1); 

} 

) 

} 



METHODDEF (void) 

pass2„f s_dither ( j_decompress_ptr cinfo, 

JSAMPARRAY input_buf , JSAMPARRAY output_buf , int nunurows) 
/* This version performs Floyd-Steinberg dithering */ 
{ 

my_cquantize_ptr cquantize = (my_cquantize_ptr ) cinf o->cquantize; 
hist3d histogram = cquantize->histogram; 

register LOCFSERROR curO, curl, cur 2; /* current error or pixel value */ 
LOCFSERROR belowerrO, belowerrl, belowerr2; /* error for pixel below cur * 
LOCFSERROR bpreverrO , bpreverrl , bpreverr2; /* error for below/prev col */ 
register FSERRPTR errorptr,- /* => fserrors[] at column before current */ 
JSAMPROW inptr; /* => current input pixel */ 

JSAMPROW outptr; /* => current output pixel */ 
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histptr cachep; ^j^k 

int dir; /* +1 or ^^Hlepending on direction */ 

int dir3; /* 3*dir,^wr advancing inptr & errorptr */ 

int row; 

jdii-:e::sion col; 

JDI MENS ION width = cinf o->output_width; 
JSAMPLE > range_limit = cinf o->s ample_range_l imi t; 
int *error„limit = cquantize->error_limiter ; 
JSAMPROVJ colormapO = cinf o->colormap [0] ; 
JSAMPROW colormapl = cinf o->colormap [1] ; 
JSAMPRO™ colormap2 = cinf o->colormap [2 ] ; 
SHI FT„T EM P S 

for (row = 0; row < num_rows; row++) { 
inptr = input_buf [row] ; 
outptr = output_buf [row] ; 
if (cquantize->on_odd_row) { 

/* work right to left in this row */ 

inptr += (width-1) * 3; /* so point to rightmost pixel */ 

outptr += width-1; 
dir = -1; 
dir3 = -3; 

errorptr = cquantize->f serrors + (width+l)*3; /* => entry after last column 
cquantize->on_odd__row = FALSE; /* flip for next time */ 

} else { 

/* work left to right in this row */ 

dir = 1; 
dir3 = 3; 

errorptr = cquantize->f serrors ; /* => entry before first real column */ 
cquantize->on_odd_row = TRUE; /* flip for next time */ 

3 } 

* /* Preset error values: no error propagated to first pixel from left */ 

I curO = curl = cur2 = 0; 

s / ■ and no error propagated to row below yet */ 
] belowerrO = belowerrl = belowerr2 = 0; 
"s bpreverrO = bpreverrl = bpreverr2 = 0; 

1 for (col = width; col > 0; col — ) { 

/* curN holds the error propagated from the previous pixel on the 

* current line. Add the error propagated from the previous line 
k to form the complete error correction term for this pixel, and 

* round the error term (which is expressed * 16) to an integer. 

* RIGHT_SHIFT rounds towards minus infinity, so adding 8 is correct 

* for either sign of the error value. 

* Note: errorptr points to *previous* column's array entry. 

* / 

curO = RIGHT_SHIFT (curO + errorptr [dir3+0 ] + 8, 4); 
curl = RIGHT_SHIFT (curl + errorptr [dir3+l ] + 8, 4) ; 
cur2 = RIGHT_SHIFT (cur2 + errorptr [dir3+2 ] + 8, 4); 

/* Limit the error using transfer function set by init_error_limit . 

* See comments with init_error_limit for rationale. 

*/ 

curO = error_l imi t [curO ] ; 
curl = error_l imi t [curl ] ; 
cur 2 = error_limi t [cur2 ] ; 

/* Form pixel value + error, and range-limit to 0 . . MAX JSAMPLE . 

* The maximum error is +- MAXJSAMPLE (or less with error limiting) ; 

* this sets the required size of the range_lim.it array. 

*/ 

curO GET JSAMPLE (inptr [0] ) ; 
curl += GET JSAMPLE (inptr [1] ) ; 
cur2 += GETJSAMPLE ( inptr [ 2 ] ) ; 
curO = GETJSAMPLE ( range_limit [curO] ) ; 
curl = GETJSAMPLE { range_l imi t [curl] ) ; 
cur2 = GETJSAMPLE (range_limit tcur2] ) ; 
/* Index into the cache with adjusted pixel value */ 

cachep = & histogram [cur0»C0_SHIFT] [curl»Cl_SHIFT] [cur2»C2_SHIFT] ; 
/* If we have not seen this color before, find nearest colormap */ 

/* entry and update the cache */ 
if !*cachep == 0) 

f ill_inverse_cmap(cinfo, cur0»C0_SHIFT, curl>>Cl_SHIFT, cur2»C2_SHIFT) ; 
/' Now emit the colormap index for this cell */ 
{ register int pixcode = *cachep - 1; 
*outptr = (JSAMPLE) pixcode; 

/* Compute representation error for this pixel */ 
curO -= GETJSAMPLE (colormapO [pixcode] ) ; 
curl -= GETJSAMPLE (colormapl [pixcode] ) ; 
cur2 -= GETJSAMPLE (col ormap2 [pixcode] ) ; 

} 

f * Compute error fractions to be propagated to adjacent pixels. 
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* Add these into the 

* next-line error s 

*■ / 

{ register LOCFSERROR bnexterr, delta; 



e i|^^^.ng sums, and simultaneously shifj^^ke 
um^pt by 1 column. 



bnexterr = curO; /* Process component 0 */ 

del r.a = curO * 2; 

curO += delta; /* form error * 3 */ 

errorptr[0] = (FS ERROR) (bpreverrO + curO) ; 
curO += delta; /* form error * 5 */ 

bpreverrO = belowerrO + curO; 
belov/errO = bnexterr; 

curC •»- = delta; /* form error * 7 */ 

bnexterr = curl; /* Process component 1 */ 

delta = curl * 2; 

curl += delta; /* form error * 3 */ 

errorptr[l] = (FS ERROR) (bpreverrl + curl); 
curl += delta; /* form error * 5 */ 

bpreverrl = belowerrl + curl; 
belov/errl = bnexterr; 

curl += delta; /* form error * 7 */ 

bnexterr = cur2 ; /* Process component 2 */ 

delta = cur 2 * 2; 

cur2 ■*-= delta; /* form error * 3 */ 

errorptr[2] = (FSERROR) (bpreverr2 + cur2) ; 
cur^ ■*■= delta; /* form error * 5 */ 

bpreverr2 = belowerr2 + cur2 ; 
belowerr2 = bnexterr; 

cur 2 ■>• = delta; /* form error * 7 */ 

Q /* At this point curN contains the 7/16 error value to be propagated 
ifl * to the next pixel on the current line, and all the errors for the 

* next line have been shifted over. We are therefore ready to move on. 

J] inptr += dir3; /* Advance pixel pointers to next column */ 

n outptr + = dir; 

errorptr += dir3; /* advance errorptr to current column */ 

,n /* Post- loop cleanup: we must unload the final error values into the 
2; * final fserrorsN entry. Note we need not unload belowerrN because 
lU * it is for the dummy column before or after the actual array. 

*/ 

. errorptr [0] = (FSERROR) bpreverrO; /* unload prev errs into array */ 

^~ errorptr [1] = (FSERROR) bpreverrl; 

Q errorptr [2] = (FSERROR) bpreverr2 ; 

y 

Initialize the error- limiting transfer function (lookup table) . 

* The raw F-S error computation can potentially compute error values of up to 

* +- MAXJSAMPLE. But we want the maximum correction applied to a pixel to be 

* much less, otherwise obviously wrong pixels will be created. (Typical 

* effects include weird fringes at color-area boundaries, isolated bright 

* pixels in a dark area, etc.) The standard advice for avoiding this problem 

* is to ensure that the "corners" of the color cube are allocated as output 

* colors; then repeated errors in the same direction cannot cause cascading 

* error buildup. However, that only prevents the error from getting 

* completely out of hand; Aaron Giles reports that error limiting improves 

* the results even with corner colors allocated. 

* A simple clamping of the error values to about +- MAXJSAMPLE/8 works pretty 

* well, but the smoother transfer function used below is even better. Thanks 

* to Aaron Giles for this idea. 
*/ 

LOCAL (void) 

init_error_limit { j_decompress__ptr cinfo) 

/* Allocate and fill in the error_limiter table */ 

{ 

my_cquantize_ptr cquantize = (my_cquantize_ptr ) cinf o->cguantize; 

int * table ; 
int in, out; 

table = (int *) ( *cinf o->mem->alloc_small ) 

( ( j_ccmmon_ptr) cinfo, JPOOL_IMAGE, (MAXJSAMPLE* 2 +1 ) * SIZEOF ( int ) ) ; 
table MAXJSAMPLE; /* so can index -MAXJSAMPLE + MAXJSAMPLE */ 

cquant ize->error_l imi ter = table; 

tdefine ^TEPSIZE ( (MAXJSAMPLE+1 ) / 16 ) 
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/* I'ap errors 1:1 up to + - J^U"SAMPLE/ 16 */ 

out 

for [ir. = 0; in < STEPSIZE;^K+ , out++) { 

tablf-[in] = out; table [-in] = -out; 

} 

/* Map errors 1:2 up to +- 3 * MAX JS AMPLE / 1 6 */ 
for {; in < STEPSIZE*3; in++, out += (in&l) ? 0 : 1) { 
table; [in] = out; table [-in] = -out; 

} 

/* Clanp the rest to final out value (which is (MAXJSAMPLE+1) /8) 

for (; in <= MAX JSAMPLE ; in++) { 

table [in] = out; table [-in] = -out; 

} 

#undef 3TEPSIZE 
) 



/* 

* Finish up at the end of each pass. 
*/ 

METHODDEF (void) 

finish_passl ( j_decompress _ ptr cinfo) 
{ 

my_cquantize_ptr cquantize = (my_cquantize_ptr ) cinf o->cquantize 

/* Selr-ct the representative colors and fill in cinf o->colormap 

cinf o->colormap = cquantize->sv_colormap; 

select_colors (cinf o, cquantize->desired) ; 

/* Force next pass to zero the color index table */ 

cquantize->needs_zeroed = TRUE; 

IprHODCEF(void) 

f inish_oass2 ( j_decompress_ptr cinfo) 
--^* no work */ 



" F Initialize for each processing pass. 

2*/ 

METHODCEF (void) 

£djart_par-.s_2_quant ( j_decompress_ptr cinfo, boolean is_pre_scan) 

OJ 

t iny_cquantize_ptr cquantize = (my_cquantize_ptr ) cinf o->cquantize 
_3iist3d histogram = cquantize->histogram; 
LJint : ; 

~"/* Only F-s dithering or no dithering is supported. */ 
/* If user asks for ordered dither, give him F-S. */ 
if (cinfo->dither_mode != JDITHER_NONE) 
cinf o->dither_mode = JDITHER_FS; 

if (is_pre_scan) { 

/* Set up method pointers */ 

cquantize->pub.color_quantize = prescan_quantize; 
cquantize->pub. f inish_pass = f inish_passl ; 

cquH»ntize->needs_zeroed = TRUE; /* Always zero histogram */ 
} els. j { 

/ * iiet up method pointers */ 

if (cinfo->dither_mode == JDITHER_FS) 

cquantize->pub.color_quantize = pass2_ f s_dither ; 
else 

cquantize->pub. color_quantize = pass2_no_dither ; 
cqu'intize->pub. f inish_pass = f inish_pass2 ; 

/* Make sure color count is acceptable */ 
i = cinf o->actual_number_of_colors; 

if fi < 1) 

ERREXIT1 (cinfo, JERR_QUANT_FEW_COLORS , 1); 
if (i > MAXNUMCOLORS ) 

ERFEXITl (cinfo, JERR_QUANT_MANY_COLORS , MAXNUMCOLORS); 

if ;cinfo->dither_mode == JDITHER_FS) ( 

nire_t arraysize = (size_t) ( (cinfo- >output_width + 2) * 
(3 * SIZEOF(FSERROR) ) ) ; 
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Allocate Floyd-SteiiJ^tfr workspace if we didn't already. 
(cquantize->f serror^^KNULL) 
c-x: ^ tiz3->f serrors = (F^HRtR) (*cinf o->mem->alloc_large) 




* _cornmon_ptr ) cinfo, JPOOL_IMAGE, arrays i ze ) ; 

* Initialize the propagated errors to zero. */ 
- z r ro_f ar ( (void *) cquantize->f serrors, arraysize) ; 
■* Make the error-limit table if we didn't already. */ 
i* (cquantize->error_limiter == NULL) 
ir:i*:_error_liniit {cinf o) ; 

cquantize->on_odd_row = FALSE; 

} 



/* Ztn the histogram or inverse color map, if necessary */ 
if (cqi:antize->needs_zeroed) { 

for (i = 0; i < HIST_C0_ELEMS; i++) { 
j r> -ro„f ar ( (void *) histogram[i] , 

KIST_C1_ELEMS*HIST_C2_ELEMS * SIZEOF (his tcell )) ; 

} 

cquantize->needs_zeroed = FALSE; 

} 

} 



/* 

* Switch to a new external colormap between output passes. 
*/ 

METHODDEF (void) 

new_colo;-__map_2_quant ( j_decompress_ptr cinfo) 
{ 

Pfny__cquantize_ptr cquantize = (my_cquantize_ptr ) cinf o->cquantize; 

dV* R^i^ t the inverse color map */ 
r~*cquantl ze->needs_zeroed = TRUE; 



l M Module initialization routine for 2-pass color quantization. 

£lloBAL("oid) 

iinit_2oass_quantizer ( j_decompress_ptr cinfo) 

u 

;__my_cquantize_ptr cquantize; 
kJint i; 

^'"cquanti ze = (my_cquantize_ptr) 

~~i { *rinf o->mem->alloc_small ) ( ( j_common_ptr) cinfo, JPOOL_ IMAGE, 
f] SIZEOF (my_c quantizer) ) ; 

p^cinfo- --cquantize = (struct jpeg_color_quantizer *) cquantize; 
^cquan f -.ize->pub. start_pass = start_pass_2_quant ; 

cquan r ; z e - >pub . new_c o 1 or_map = new_color_map_2_quant ; 

cquant ize->f serrors = MULL; /* flag optional arrays not allocated */ 

cquantrize->error_l imi ter = NULL; 

/* Make sure jdmaster didn't give me a case I can't handle */ 
if (c inf o->out_color_components != 3) 
ERREXIT (cinfo , JERR_NOTIMPL) ; 

/* Allocate the histogram/ inverse colormap storage */ 
cquanti ze->histogram = (hist3d) ( *cinf o->mem->alloc_small) 

{ ( j_.rommon_ptr) cinfo, JPOOL_IMAGE, HIST_C0_ELEMS * SIZEOF (hist2d) ) ; 
for (}. = 0; i < HI ST_C 0_ELEMS ; i++) { 

cquantize->histogram[i] = (hist2d) < *cinf o->mem->alloc_large) 
{ !i_common„ptr) cinfo, JPOOL_IMAGE, 
FlST_Cl_ELEMS fr HIST_C2_ELEMS * SIZEOF (histcell )) ; 

} 

cquanr i ze->needs_zeroed = TRUE; /* histogram is garbage now */ 

/* Allocate storage for the completed colormap, if required. 

* l\ T e do this now since it is FAR storage and may affect 

* th^i memory manager's space calculations. 
*/ 

if {cir.f o->enable_2pass_quant) { 

/* Hake sure color count is acceptable */ 

int desired = cinf o->de sir ed_number_of_co lor s; 

I. wer bound on # of colors ... somewhat arbitrary as long as > 0 

if (desired < 8) 
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EI-I EXITKcinfo, JERR_Qia^^FEW_COLORS, 8) ; 
/* :ir ;:e sure colormap inc^^H can be represented by JSAMPLEs 
if ' -iesired > MAXNUMCOLOra^ 

Ef FEXITl (cinfo, JERR_QUANT_MANY_COLORS , MAXNUMCOLORS) ; 
cqU'ir.tize->sv_colormap = (*cinfo->mem->alloc_sarray) 

( ;_common_ptr) cinf o, JPOOL_IMAGE, (JDIMENSION) desired, (JDIMENSION) 
cquar.tize->desired = desired; 
} els-- 

cqu..::tize->sv_colormap = NULL; 

/* On^y F-5 dithering or no dithering is supported. */ 
/* If :ser asks for ordered dither, give him F-S. */ 
if (c 4 .rfo->dither_mode != JDITHER_NONE) 
cinf c->dither_mode = JDITHER_FS ; 

/* Al>.cate Floyd-Steinberg workspace if necessary. 

* Thir isn't really needed until pass 2, but again it is FAR storage. 

* Although we will cope with a later change in dither_mode, 

* we rio not promise to honor max_memory_to_use if dither_mode changes. 
*/ 

if (cinfo->dither_mode == JDITHER_FS) { 

cquantize->f serrors = (FSERRPTR) (*cinf o->mem->alloc_large) 
( f i_common_ptr ) cinfo, JPOOL__IMAGE , 
(rize_t) { <cinfo->output_width + 2) * (3 * SI ZEOF (FS ERROR) ) ) ) ; 
/* night as well create the error- limiting table too. */ 
ini* _error_limit (cinf o) ; 

} 

} 

#endif , > QUANT_2PASS_SUPP0RTED */ 
□ 



17 



* Copyri/ht (C) 1991-1996, Thomas G. Lane. 

* This rile is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 

* This rile contains tables and miscellaneous utility routines needed 

* for fc th compression and decompression. 

* Note ' T e prefix all global names with "j" to minimize conflicts with 

* a sur: funding application. 
*/ 

#define /PEG_INTERNALS 
#include *' j include .h" 
# include " jpeglib.h" 



/* 

* jutil.-.c 
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/* 

* jpeg_"igzag_order [i] is the zigzag-order position of the i'th element 

* of a ZCT block read in natural order (left to right, top to bottom) . 
*/ 

#if 0 /* This table is not actually needed in v6a */ 

const in\ jpeg_zigzag_order [DCTSIZE2 ] = { 
0, 1. 

2, 4 , 

3, 8, 
9, 11, 

10, 19, 

rl20, 22, 

=:21, 34, 

^35, 36, 

JtSidif 
(A 

^* jpeg_natural_order [i] is the natural-order position of the i'th element 

Uf of zi-fzag order. 

When -^ading corrupted data, the Huffman decoders could attempt 
s * to reference an entry beyond the end of this array (if the decoded 
L* zero ,un length reaches past the end of the block) . To prevent 
L$ wild stores without adding an inner- loop test, we put some extra 

"63"s after the real entries. This will cause the extra coefficient 
ni to be stored in location 63 of the block, not somewhere random. 
: J\ The w^rst case would be a run-length of 15, which means we need 16 
J* fake entries . 

u/ 

SSnst int jpeg„natural_order [DCTSIZE2+16 ] = { 

0, 1, 8, 16, 9, 2, 3, 10, 

17, 24, 32, 25, 18, 11, 4, 5, 

12, 19, 26, 33, 40, 48, 41, 34, 

27, 20, 13, 6, 7, 14, 21, 28, 

35, 42, 49, 56, 57, 50, 43, 36, 

29, 22, 15, 23, 30, 37, 44, 51, 

58, 59, 52, 45, 38, 31, 39, 46, 

53, 60, fl, 54, 47, 55, 62, 63, 

63, 63, ?3, 63, 63, 63, 63, 63, /* extra entries for safety in decoder */ 

63, 63, -53, 63, 63, 63, 63, 63 
}; 



/* 

* Arithmetic utilities 
*/ 

GLOBAL (T ng) 

jdiv_roui:d_up (long a, long b) 

/* Compute a/b rounded up to next integer, ie, ceil(a/b) */ 

/* Assumes a>-0, b>0*/ 
{ 

return r a + b - 1L) / b; 

} 



GLOBAL (1- ;g) 
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jround_ur (lcng a, long b) 

/* Compu 4 -^ a rounded up to m 
/* Assure* a >= 0, b>0*/ 
{ 

a += b 1L»; 

return a - (a % b) ; 

} 



t^^iultiple of b, ie, ceil(a/b)*b * / ^^ 



/* On normal machines we can apply MEMCOPYO and MEMZEROO to sample arrays 

* and c efficient-block arrays. This won't work on 80x86 because the arrays 

* are FAR and we're assuming a small -pointer memory model. However, some 

* DOS compilers provide far-pointer versions of memcpyO and memsetO even 

* in the small-model libraries. These will be used if USE_FMEM is defined. 

* Other rise, the routines below do it the hard way. (The performance cost 

* is not; ail that great, because these routines aren't very heavily used.) 
*/ 

iifndef i:EED_FAR_POINTERS /* normal case, same as regular macros */ 
#define FMEMCOPY (dest , src , size) MEMCOPY (dest , src , size) 
#define FMEMZERO { target , size) MEMZERO ( target , size) 
#else /* 80x86 case, define if we can */ 

#ifdef USE_FMEM 

idefine FMEMCOPY (dest , src , size) _fmemcpy ( (void *)(dest), (const void *) (src) , (size_t) (size) ) 

idefine FIIEMZERO { target , size) _fmemset ( (void *) (target), 0, (size_t) (size) ) 

iendif 

#endif 



GLOBAL (void) 

jcopy_sample_rows ( JSAMPARRAY input_array, int source_row, 
P =. JSAMPARRAY output_array , int dest_row, 

int num_rows , JDIMENSION num_cols) 
IM Copy come rows of samples from one place to another, 
fft num_rovs rows are copied from input_array [source_row++] 

to output„array [dest_row++] ; these areas may overlap for duplication. 
L if The source and destination arrays must be at least as wide as num_cols. 

ul 

=?register JSAMPROW inptr, outptr; 
f|fdef FMEMCOPY 

=" 5 register size_t count = (size_t) (num__cols * SIZEOF (JSAMPLE) ) ; 
¥else 

s register JDIMENSION count; 
gendif 

: _ J register int row; 

=3 J 

pfjjinput^array += source_row; 
; '^output „ar ray += dest_row; 

"•s 

T] f or (r')v: = num_rows; row > 0; row--) { 
Zl inptr = ■ input_array++ ; 
W outptr = v output_array++ ; 
#ifdef FMEMCOPY 

FMEMCOPY {outptr, inptr, count); 
#else 

for {count = num_cols; count > 0; count — ) 

*outptr++ = *inptr++; /* needn't bother with GET JSAMPLE ( ) here */ 

#endif 
} 

} 



GLOBAL (void) 

jcopy_block_row (JBLOCKROW input_row, JBLOCKROW output_row, 

-DIMENSION num_blocks) 
/* Copy a row of coefficient blocks from one place to another. */ 
{ 

#ifdef FMEMCOPY 

FMEMCOPY (output_row, input_row, num_blocks * (DCTSIZE2 * SIZEOF (JCOEF) )) ; 
#else 

register JCOEFPTR inptr, outptr; 
register long count; 

inptr - (JCOEFPTR) input_row; 
outptr = (JCOEFPTR) output_row; 

for (c-unt = (long) num_blocks * DCTSIZE2 ; count > 0; count--) { 

*out}- 4 :r j -+ - *inptr++; 

} 

#endif 
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global (v a:> 

jzero_fa. (void * target, size_t bytestozero) 
/* Zero -it a chunk of FAR memory. */ 

/* This iright be sample-array data, block-array data, or alloc_large data. */ 
{ 

#ifdef FII.SHZERO 

FMEMZEFO ( target , bytestozero); 
#else 

register char * ptr = (char *) target; 
regis t-.r size_t count; 

for (cunt = bytestozero; count > 0; count--) { 

*ptr+- = 0; 

} 

iendif 
) 
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/* 

*@authcr lintiaz Hossain 
* 




*@versi' 2 . 0 
* 



tinclude stdlib.h> 
# include- malloc . h> 
iinclude ' j error. h" 
iinclude •-setjmp.h> 
iinclude ' jpeg_class .h" 



// static consts 

// Error definitions 



const int JPEG 
const in" JPEG 
const int JPEG 
const int JPEG 
const int JPEG 

// Codinrr types 

const int JPEG 

const int JPEG 

const int JPEG 

const inf JPEG 



SUCCESS=0; 

MEM0RY_ALL0C_ERR0R=1 ; 
F I LE_READ_ERROR= 2 ; 
FILE_WRITE_ERROR=3 ; 
JPEGLIB_STRUCT_INIT_ERR0R=4 ; 



DEFAULT_CODING=0 ; 
BASELINE=0; 
PROGRESS I VE=1; 
L0SSLESS=2; 



// Resolution 

GOJlSt int JPEG : : DEFAULT_RES=1 ; 
cdhst int JPEG: :ONE_BYTE=l; 
cHlSt int JPEG: :TWO_BYTE=2; 
G^aist int JPEG: :THREE__BYTE=3; 
<H£lSt int JPEG: :F0UR_BYTE=4; 

jkh Color Planes 

cSnst int. JPEG : : DEFAULT_BPP=3 ; 
©Jnst int JPEG: :Gray=l; 
CsSnst int JPEG : : RGB=3 ; 



il Image Quality 

£Onst inr. Ji-EG : : DEF_QUALITY=60; 
- 

£J Compression Ratio 

Ejqnst float JPEG: :DEF_RATIO=0 .50; 

l l i Time limit on the compression 
c&nst leng DEF_TIME=5; // 5 seconds . 



BYTE * JPEG: : Encode {BYTE * jpeg_get_Buf f er , int *length / int *ret_quality , int njieight, int n_Width, i 

nt n_Bpp, int n_Quality, int n_Res, int n_Coding) 

{ 

struct jpeg__compress_struct c_struct; 
struct jpeg__error„mgr jerr; 
JS AMPLE * ptr_to_buf fer [1] ; 
int buf f er_length, counter=0,i; 
JOCTET * returnbuf f er; 

BYTE * ipeg_RGB_Buf f er ; 
int hop; 
int res; 



bpp=ri_Bpp ; 
res~n_Res ; 

jpeg„RGB_Buf f er=Resolution_Convertor ( jpeg_get_Buf fer , &bpp, &res,n_Height, &n_Width) ; 

n_Bpp=bpp; 



n_IirageHeight=n_Height ; 
n_ImageVJidth=n_Width; 
n_ImageBpp=n_Bpp ; 
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//# « to assert BPP^^^ 3, and Width and Height >0 



n_I r. a a r f.e s o 1 u t i on= n_Res ; 
n_Ir 0Tf . ,r :':dingType=n_Coding; 
n_I a rr * 2 u a 1 i t y = n_Qu a 1 i ty ; 



buf f - eng th=n_ImageWidth*n_ImageBpp ; 

ptr_/ -:„bu£ £er [0] = (JSAMPLE * )malloc (buf fer_length*sizeof (JSAMPLE) ) ; 

if (F~r_J-o_buf fer[0]==NULL) 
{ 

t print f (stderr, "Memory Allocation error! ! !\n") ; 

* : xit U) ; 

} 



// First .step: Initializing JPEG compression object 

// j peg lib : error handling code 
c_struc* .err = jpeg_std_error (&j err ) ; 

jpen_creat:e_compress (&c_struct) ; // object initialization 

c_st. 'irt' . index=0; 

// Next r.tep (2) : We will not be using a File. So skipping source definition. 
// Inti tializing Height, Width and Bpp properties. 

™ c_st-; mc*- . image_width = n_ImageWidth; 
dj c_st: Met . image_height = n_ImageHeight ; 

fn if (i , ._ImageBpp==3) 

zi i 

^struct . input_components =3; // # of color components /Bytes per pixel. 

Kl -_struct . in_color_space = JCS_RGB; // colorspace for input image. 

else 

=^g r_sr rue t . input_components = 1; // # of color components /Bytes per pixel. 

r_struct . in_color_space = JCS_GRAYSCALE; // colorspace for input image. 

Z~ jpeg. ouf f er_dest (&c_struct) ; // ### new modification. Instead of jpeg_stdio_src . 

y 

Hi 

Ylz Next : tr^p (3) : Setting defaults and any special parameters like Quality, Coding, etc.. 

O jpeg__r>ct_defaults (&c_struct) ; 

*=* jpeg. set_quality (&c_struct, n_ImageQuality , TRUE ); 
/ I Next Mtep (4) : Initializing compressor 
jpeg„start_compress (&c_struct, TRUE) ; 
// Next Jt^p (5) : Compressing one scanline at a time. 

while ( c_s true t . next_scanline < c_struct . image_height ) 

{ 

tor ( i-0 ; i<buf f er_length; i++ ) 

K 

ntr__to_buf fer [0] [i] = ( JSAMPLE) jpeg_RGB_Buffer [counter] ; 

'*ounter++ ; 



J t>^T_write_scanlines (&c_struct, ptr_to_buf f er , 1); 

} 

// Last "tep (6) : Clean up 

jpeg_r inish_compress (&c_struct) ; 

return! f er= obstruct . dest->outbuf f er ; 
c_s t r u t . d e s t - > ou tbu f f er =NULL ; 

jpeg_^i ^troy_compress {&c_struct) ; 

free(f.-r _r.-;_buf f er [0] ) ; 
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*leng- . ' . r.t ) c_struct . inde: 
*ret_\ ; ty= (int) n_ImageQi 





fre- ' i_RGB_Buf fer) ; 
return *' (returnbuffer) ; 

} // eni : :f method : compute {) 

// 

// DECODER 

// 

BYTE * r^?r, :: Decode (BYTE *CompressedBuf f er , int length) { 

int i,c:- 1 r/^r = 0; 
JSAMPLE ' z Tiv;_buf f er ; 

JSAMPLE * t ^mp_buf f er [1] ; /* temporary buffer to read in the scanlines. */ 

int buft'-r .length; 

First Step: assigning structure variables */ 

S j 

sjtsruct jrj^q _decompress_s true t d_struct; /* decompression structure */ 
sjjruct 'I'^ error.mgr jerr; /* error handling stuff */ 

y e 

(^struct . r= jpeg_std_error (fcjerr) ; 



Next ;:trp: Store file pointer in decompression structure. */ 
2? jpeg_.'Mio_src (&d_struct , in_fp) ; 

jpeg_but ter..src (&d_struct) ; 

d__struc* .r.r .--->i nbuf fer =( JSAMPLE *) Compress edBuf fer ; 
d_struct . ."rc- ^buf f er_length=length; 



/* Next :Jtep: Need the info, from the header to decompress the data */ 
jpeg_read„header {&d_struct , TRUE) ; /* ### Need to figure out what the "TRUE" does. */ 



n_Image T *\\dth=d_struct . image_width; 
n_ImageHeight=d_struct . image_height ; 
n_ImageHnp -instruct . num_components ; 



buffer_. T . riat h =n_ImageWidth*n_ImageBpp; /* width of buffer to take care of RGB values in succession. 



/* buff* rr .ire being allocated */ 
/* Here qoes .... V 



temp_bur: -r \ :.] = {JSAMPLE *)malloc (buf f er_length*sizeof (JSAMPLE) ) ; 

if (teir.n f er [ 0 ) ==NULL) 
{ 

r pr!ntf {stderr , "Out of memory for temporary buffer \n"); 



(A ### *=rr-.r handler ( Will check later) */ 

fi&Next sr»p: initialize decompression structure variable */ 
3peg_cr<>;te_decompress (Scd_struct) ; 

^ ### :vt-Mnq a pointer in the structure to the Compressed Input Data */ 
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/* y r-if f er */ 

rav; . •;: rf.-r= ( JSAMPLE * )malloc (n_ImageHeight*buf f er_length*sizeof ( JSAMPLE )); 

if i: -v.-; h-if fer==NULL) 
{ 

- -m -ir.tf (stderr, "Out of memory for raw buffer \n"); 

} 

/* Next ^t^p: signal start decompression */ 
jpeg_st v r. do compress (&d_struct) ; 

/* Chec-: t dimensions */ 

if ( ! ( (n. T:rageHeight== ( int ) d_struct . output^ height ) && ( n_ImageWidth== (int) d_s true t . output_width) && (n_I 

mageBpp- < int ) d_struct . out_color_components) ) ) 

{ 

fprir.r t f s tderr , " Image dimensions / bpp do not match\n"); 

exi" ; i J ; 

} 

/* Next ;r-p: Do the actual reading... */ 

while ( • in ) d_s cruet . output_scanline<n_ImageHeight ) 

{ 

O jpe ct . r^ari_scan lines (&d_struct, temp_buf f er , 1) ; 



01 { 



f or ■ ; " ; i <buf f er_length; i++) 



-av:_buf fer [counter] =temp_buffer [0] [i] ; 

:\'Mnt:er + + ; 

} 



ffi* end -.f the while loop.*/ 

free (temp r.utfer[0]); 

H 6 Final S^p: It finally works !! ! 

g§E»eg__f ini.^r^decompress (&d_struct) ; 

3^eg„derr- r^y_decompress (&d_struct) ; 

grintf ( "Decoder counter = %d\n" , counter ) ; 

U 

II ### lumber: free temp_buffer 
return 'BYTE * ) raw_buf f er; 

}/* end Decode. */ 



/* Method chopwindow get a central window with l/7th the original sides. */ 

BYTE * JPEG :: Chopwindow (BYTE * who le_str earn, int * height, int * width, int bpp) 
{ 

int rov:_"tart, row_end, col_start, col_end; 
int i, . ~._k=l , w_k=l , diffr, dif f c, dif f cb; 
int ht, v T d , wdb, c_start , c_end; 

BYTE * : lra.U^buf f ; 

ht=*hei7h- ; 
wd=* width ; 

row_s tar r -- ' - * h t ) / 7 ; 
row_end- 4 *hf ) * 7 ; 

dif f r=r^:v..* nd -row„start+l; 
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♦height 



c_star*: '-.-rt) . 7; 
c_end= ; — . 1 . 7 ; 

diff c=c :;-;--^_3tart + l; 

col_sta~ " - i :_.3tart-l) *bpp+l; 
col_enci ' - hvA s *bpp; 

dif f cb- -:: r :""kpp; // multiply after the calculation. :) 
*width=' : : f t''; 

small_h-*f ■ i BYTE *)malloc(diffr*diffcb*sizeof (BYTE) ) ; 

if (sma;i i-.uff = =NULL) 
{ 

fpij t 'stderr, "Memory Alloc error \n") ; 

exl 1 ■ ' ' 1 ; 

} 

wdb=wd' : ; ; 

for (i=.;i -ht;i++) 
{ 

f or 1 ; * ^ ; j < =wdb ; j + + ) 
{ 

1 f ( ( i>=row_start) && (i<=row_end) ) 
=f if ( ( j>=col_start) && ( j<=col_end) ) 



small_buf f [s_k-l] =whole_stream[w_k-l] ; 



ft! 



return .-;-\5il__buf f ; 



/* Over., i i^d Encode function to take care of compression ratio */ 



BYTE * Ji'EG: : Encode (BYTE * jpeg_get_Buf f er , int *length, int * ret_quality, int n_Height, int n_Width, 
int n_Epp, float n_Ratio, long n_Time, int n_Res, int n_Coding) 

{ 

BYTE * jp f 'cj_SmallRawBuf f er ; // for the small test window we're working with . 
BYTE *.ir' "^DataBuf f er; 
int len-i ; 

int n_h y 1 n h t , n_w i d t h , sma 1 1 _img_s i z e ; 
int n_r " -r:^_ height , n_store_width; 
float :n ratio; 

float 1 * -mp._ratio, hi_comp_ratio , mid_comp_ratio; 
int qur : '-\ Io_lmt=10, quality_hi_lmt=90 , quality; 

int qua + ! t v_p i d_Imt ; 
int f Ip t. i^rations=0; 
long ma;: _ t\ i me: , sec_elapsed; 

time_t :: b ar^:ime, end_time; 
double k i me _~pan ; 

BYTE * >~ 1 _R'3B_3uf fer; 
int bpr ; 
int re. ; 
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re; - . r - ; 



jp< ' ~ T^_Buf £ er=Resolution_Convertor ( jpeg_get_Buf f er, &bpp, &res,n_Height, &n_Width) ; 

n__-:- . H^ight=n_Height; 

n_I: l * , ioth=n_Width; 

n„T Hpp -n_Bpp ; 

//t- r to assert BPP=1 or 3, and Width and Height >0 

n_T:* :-.HSclution=n_Res; 
n_J: -x"-C"dingType=n_Coding; 

cop.r. ? "ir io=n__Ratio; // specifying compression ratio instead of the Quality factor. 

may 7 : T.^-n_Time; // Maximum # of seconds that will be tolerated for the determination of the 

optimur -n-ility factor. 



// t 'y lefault I'm taking, say, an n by m window, where n= (1/7 ) *ImageHeight 
// I :n~ (1/7) *ImageWidth*Image_Bpp. 

qu . f 7 ^rr irl_lmt= (quality_hi_lmt+quality_lo_lmt) / 2; 

n_J. ; .:: t :--n_ImageHeight; 
n_v: \ '< ■ h - n _ I mageWid th ; 

P=a jpt t 7->iIlRawBuf fer=ChopWindow( jpeg_RGB_Buf f er , &n_height , &n_width, ( int ) n_ImageBpp ) ; 

*f] smri 1 ^ ^g_size=n_height*n_width*n_ImageBpp; 

fn 

~^ n_r r or t :_height=n_ImageHeight ; 

Ul n_s*- r c _v:idth=n_ImageWidth; 

n_7^ i:;oHeight=n_height ; 
n_r.^i ;rr^' ,1 i dth=n_width; 

n * //ii-- *^taBuf fer=test . Encode (jpeg_RawBuffer, &len) ; 
s 

!_.£, //..-.- ^t the upper and lower boun ratios corresponding to the upper and lower 
// ; -y/is of the quality factor i.e. 90 and 10 respt. 

qs // * : ♦-.he lower bound on the quality factor i.e. 10. 

~H jp^-rr r v aBuf f er=Encode ( jpeg_SmallRawBuf fer, &len, ret_quality, (int)n_ImageHeight , (int ) n_ImageWidt 

gj (int)n ..linarreBpp, (int) 10) ; 

=1 lo_ >mp__ratio= (float) len/ (float) small_img_size; 

frF.i: < iyeg_DataBuf f er) ; 

// * - r !:.he upper bound on the quality factor i.e. 90. 

jpf r: .: i taBuf f er=Encode ( jpeg_SmallRawBuf f er, &len, ret_quality, (int) n_ImageHeight , (int) n_ImageWidth 

, (int)r . '.:r, i^eBpp, (int) 90) ; 

hi_.r-T,n__ratio= ( float) len/ (float) small_img_size; 
f r€-< ■ / neg_Da taBuf f er) ; 

// t .y the middle bound on the quality factor i.e. (90-10) /2. 

jpf ^ aBuff er=Encode ( jpeg_SmallRawBuf f er , &len, ret_quality, (int) n_ImageHeight, (int) n_ImageWidth 

, (int)r I:t:v te.'Spp, (int) quality_mid_lmt ) ; 

mio. -.rr.p_ratio= (float) len/ (float) small_img_size; 
frc - peg_DataBuf f er) ; 

// 1 .tr 4 -. of determination of quality factor. 
flag=0; 

time (&.-r-ir*- ..rime) ; 

while . A ... t'T- = - ) 
{ 

if rr ratio>=hi_comp_ratio) 
{ 

i >:y=quality_lo_lmt; 
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} 

if icio<=lo_comp_rSW6) 



{ 



, i ty=quality_hi_lmt ; 



if *- T.i.„ratio<mid_comp_ratio) && (comp.ratiolo^comp^atio) ) 

{ 

y_hi_lmt =qual i ty_mi d_lmt ; 
" jrr.p_ratio=niid_comp_ratio ; 
r 3 : i v/„mid_lmt= (quality_hi_lmt+quality_lo_ lmt) /2 ; 

c ^„DataBuffer=Encode( jpeg_SmallRawBuf f er , &len, ret_quality , (int) n_ImageHeight, ( int ) n_ImageW 
idth, (:_::* :-_IiT\ageBpp, (int) quality_mid_lmt) ; 

t: i„-Jomp_ratio= (float) len/ (f loat) small_img_size; 
'- ■. ^ { ipeg_DataBuf f er) ; 

} 

elr<> 

if ' - ir.p_ratio>=mid_comp_ratio) &6e (comp„ratio<hi_comp„ratio) ) 

{ 

r 1 i ty_lo_lmt=quality_mid_lmt ; 
; . _-*~iT'p._ratio=mid_conip_ratio; 

!*i o 1 i ty_mid_ lmt= (quality_hi__lmt+quality_lo_lmt) /2 ; 

m ^ataBuf fer=Encode ( jpeg_SmallRawBuf f er , &len, ret_quality, (int) n_ImageHeight, ( int ) n_ImageW 
idth, InageBpp, (int) quality_mid_lmt) ; 

'■ i_romp__ratio= (float) len/ (float) small_img_size; 
1 1 ■* p ( jpeg_DataBuf f er) ; 



« } 



if ' r;aii ty_lo_lmt==quality_mid_lmt) | | (quality_hi_lmt==quality_mid_lmt ) ) 

{ 

" • : a L i t y = qua 1 i t y_mi d_lmt ; 



4} 

Sj ) 

i t e i" n *: i on 3 + + ; 

// t !i- rime issue 
UJ tirr- h=nd_time) ; 



tirv -■ Uf f time (end_time, start_time) ; 

O sec - . apsed= (long) time_span; 



^ J if ' . _p 1 a p s ed>max_t ime ) 
P { 

_^ 'Tirili ry-quality_mid_lmt; 

} 

} // enc= *f the while loop. 



n„T:rfV-7=?Height=n_store_height ? 
n_I tv a c i pW i d t h =n_s t o r e_wi d th ; 

jp^ ' jm r a Bu f fer=Encode ( jpeg_RGB_Buf f er , length, ret_quality, (int) n_ImageHeight , (int) n_ImageWidth, ( 
int)n_::- .Bpp, ( int) quality) ; 

// r > -rul about the "length"... and NOT "len" here, 
min * -rip_ratio=f loat (len) /small_img_size; 

f r « ^pecj_SmallRawBuf f er) ; 

*r? : /paii t:y=quality; 

frr.o - r eq _RGB_Buf f er) ; 

return jpeg_DataBuf f er ; 

} // e: : * "he overloaded Encode. 



/* Res : ■ ^nvertor */ 
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/^^^■(BYTE * jpeg_get_Buf fer, int *bpp^^^. 



BYTE * * ^ :Resolution_Conv^^^-(BYTE * jpeg_get_Buf f er , int *bpp^^p: *res, int Height, int *Width) 

/ :i *a:i be either 1 or 3 . 

in' . --'- J-rp; 
in" _r«--s; 

iir . .Length, length2 , length4, i,diff _1 en, diff, max, min; 

ir/ , -'ill, val2; 
in* r H^irfht , n_Width; 
in* - : , v/id_dif f_len, start_i ; 

div_ A rr -.i_val ; 

BYTE + j p eq„RGB_Buf fer ; 

ha^^'_t:rP=* bpp; 
war/ . _ r «2S = * res ; 

n_i:«- 1 - iht; -Height ; 
n_!* ; ; Mi=* T ' T idth; 

if • _r-s<l) 
• .i:;"_res=l ; 

*i -t . . ■-■■•■"inures ; 

mon^vn i-di v (want_res-l , 4 ) ; 

war' i <?s=mod_val .rem+1; 

sw:*--h (want_res) 
^ { 

car e ( JPEG : : ONE_BYTE ) : { 

'.t fhwe_bpp-=3) 
•Jj Iength=n_Height*n_Width; 

s i ^ngth=n_Height*n_Width*have_bpp; 

5 

j\ .3_Buf fer= (BYTE *) malloc (sizeof (BYTE) *length) ; 

^* L f ' jj>-g_RGB_Buf fer==NULL) { 

LJ Eprintf (stderr, "Memory alloc error\n") ; 

Hi exit(l); 

it \ have_bpp==3 ) 

^ f or (i = 0 ; i<length; i++) 

{ 

val=0; 

val+=jpeg_get_Buf f er [3*i] ; 
val+=jpeg_get_Buffer [ (3*i)+l] ; 
val +=jpeg__get_Buf fer [ (3*i) +2] ; 

jpeg_RGB_Buffer[i]=(BYTE) (val/3) ; 



f ti- ( i -0 ; i<length; i + + ) 

jp^g_RGB_Buf fer [i] =jpeg_get_Buf fer [i J , 



M T >P = 1: 

*'■** dth=n_Width; 



F :TWO_BYTE) : { 



i * - n_He i gh t * n_Wi d th * ha ve_bpp ; 
.n* h ; = length/2; 

- 1 -ngth2+ (length- (2*length2) ) ; 

jB_Buf f er= (BYTE *) malloc (sizeof (BYTE) *len) ; 
' jp^g_RGB_Buf fer==NULL) { 
Inrintf (stderr, "Memory alloc errorXn"); 

-xit(l) ; 



-236 *256; 
f i = 0 ; i<length2 ; i + + ) 

vrj 11= (int) jpeg_get_Buf fer [i*2] ; 
•?al2=(int) jpeg_get_Buf fer [ (i*2)+l] ; 

-Ml=(vall*256)+val2; 
if (val>=max) 

max=val ; 
it (val<=min) 

min=val ; 



to i- the last guy 

: length ! = (2 *length2) ) 

i int) jpeg_get_Buf fer [2*length2] ; 

' vrti>=max) 

max=val ; 
("al<=min) 

:r.in=val ; 



f -max-min; 

( i --'J; i<length2; i + 

\m11= (int) jpeg_get_Buf fer [i*2] ; 
"-jl2=(int) jpeg_get_Buffer [ (i*2)+l] ; 

v,il=(vall*256)+val2; 

ii:eg_RGB_Buf fer [i]= (BYTE) ( (val-min) *255/di£f ) ; 



- length ! = (2 *length2) ) 

- f int) jpeg_get_Buf fer [2*length2] ; 

g_RGB_Buffer [length2 ] = (BYTE) ( (val-min) *255/diff ) 



} 



I EG: :THREE_BYTE) : { 

I I :i = n_He i gh t * n_Wi d th * have__bpp ; 

- 1 ^ngth; 

--ien/ (n_Height*3) ; 

f '*-;id*3*n_Height) !=len) 



- i f_len= (wid*3*^^^ght) -len; 

. - i » j n + wid_di f f _1 en ; 

. \ r3_Buf f er= (BYTE *) malloc (sizeof (BYTE) *{ len) ) ; 
I" :g_RGB_Buf fer==NULL) { 
r^rintf (stderr, "Memory alloc error\n"); 

-i:it(l) ; 

> ' i -0 ,- i<length;i++) 

;i *:g_RGB_Buf f er [i ] =jpeg_get_Buf f er [i] ; 

i f i* -length; i<len; i + + ) 
:reg_RGB_Buf f er [ i ] =0 ; 



' 1 K';: :FOUR_BYTE) : { 

i t *: t ; ■ - n_He i gh t * n_W i d th * ha ve_bpp ; 
;\-rt:^<; = length/ 4 ; 
*iength4 ; 

* length! = (4* length4) ) 

lnn=len+3; 

i-Uim/ (n_Height*3) ; 

t { <v/id*3*n_Height) !=len) 
-vid+ + ; 

' - ; ;Uf f_len= (wid*3 *n_Height ) - len; 
■vi" j en+wid_dif f_len; 

I fjr r T Jr 7B__Buf f er= (BYTE *) malloc (sizeof (BYTE) *len) ; 

* / -inf=»g_RGB_Buf f er==NULL) { 

n.rintf (stderr, "Memory alloc error\n"); 

-xit(l) ; 



r (i-0; i<length4 ; i++) 

j p r i g_RGB_Bu ffer[i*3]=j peg_ge t_Buf f er [ 4 * i ] ; 
ipeg_RGB_Buf fer [ ( i*3 ) +1] = jpeg_get_Buf f er [ (4*i)+l] ; 
1neg_RGB_Buf fer [ ( i*3 ) +2 ] = jpeg_get_Buf f er [ (4*i)+2] ; 



£Z_ ien=length- (4*length4 ) ; 

r f i-0; i<dif f_len; i++) 

■ipeg_RGB_Buf fer [ (length4*3 ) +i] =jpeg_get_Buf f er [ (length4*4) 



1 1 ■ t _ i = ( 3 * 1 eng th4 ) +di f f _1 en ; 

r i i -start_i ; i<len; 
jpeg_RGB_Buf fer [i] =0; 



' 'i rifh=wid; 
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returr . T:_Buffer; 

} // f . ' * 1 ^hod Resolution_Convertor . 



/********** * ************* *^^* * ******************************** *^^^* ******** 

* Copyrig* * X) 2000, LouiS^fe State University, School of Medrl 
* 

* This DI :: object library was developed based on University of California, 

* Davis U DICOM Network Transport Libraries, in full compliance 

* with th *- pyright note below. This version however contains conceptual 

* deviati from the UCDMC library, as well as important bug and performance 

* fixes, ; :vi cannot be used/copied/distributed without our permission 
* 

* Technics. Contact: oleg@bit.csc.lsu.edu 
* 

*********** + *■ *• ***************************************************************/ 
/********** • -> * * ********************************************************* 

* PDU Serv Classes: 

* a-assoc:l:s-rq class. 
* 

* Base Cla>.;;-;s: 

* Applica" : nContext 

* Abstract Syntax 

* Transfer -yntax 

* Presentrit '.onContext 

* Maximum rur. length 

* Implemer.r itionClass 

* Imp 1 emeu r itionVersion 

* Userlnf rnation 



********** + * * *******************************************************/ 

#M ! define' i _AARQ_HPP INCLUDED.) 

4&kf ine _AAF V _ HPP INCLUDED. 

class App i :ationContext 

ft: 

private : 

Vj BYTE ItemType; // 0x10 

I: BYTE Reservedl; // 0x00 

UINTlo Length; 
tf) public: 

UID ApplicationContextName; 



Pi 



Appl icationContext ( ) ; 

App: ; itionContext (UID &) ; 

App I i ■ : a t i onCont ext ( BYTE * ) ; 

-Apr; . icationContext ( ) ; 

voii Set (UID &) ; 

voi'j Set (BYTE *) ; 

BOOL Write(Buffer &) ; 

BOOT. Read(Buffer &) ; 

BOOL ReadDynamic (Buf f er &) ; 

UINT3 2 SizeO; 



); 



class Abs 1 t act Syntax 
{ 

private : 

BYTE ItemType; // 0x30 

BYTE Reservedl; // 0x00 

UINTi" Length; 
public : 

UID AbstractSyntaxName; 

Abs* r ivtSyntax() ; 

Abs rr^ctSyntax (BYTE *); 

AbsMictSyntax(UID &) ; 

~Ab:' ractSyntaxO ; 

voi-; Set (UID &) ; 

voir) Set (BYTE *) ; 

BOOL Write(Buffer &) ; 

BOOL Read(Buffer &) ; 

BOOL ReadDynamic (Buf fer &) ; 

UINT;2 Size(); 

>; 

class Trans :er Syntax 
{ 

private : 

BYT r : ItemType; // 0x40 
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BYT:: Reservedl^^^/ 0x00 

UIi::: Length; 
public : 

UIKT EndianType; // not really used so far 

UIC Trans f erSyntaxName; 



Trans fer Syntax ( ) ; 

Transfer Syntax (BYTE *); 

Trans fer Syntax (UID &) ; 

-Trans fer Syntax ( ) ; 
voi-i Set (UID &) ; 

voi- Set (BYTE *) ; 

voi i SetType(UINT T) { EndianType = T; }; 

BOO;, Write(Buffer &) ; 

BOCI Read(Buffer &) ; 

BOO:. ReadDynamic (Buffer &) ; 

UIKT..: SizeO; 



class Imp! ":r«n tat ionC lass 
{ 

private : 

BYTE ItemType; // 0x52 

BYTr Reservedl; // 0x00 

UINT ; - Length; 
public : 

UID ImplementationName; 

Imp^- r^ntationClass () ; 

Imp-* ^.entationClass (BYTE *); 
2= a Imp ^ f- men tationC lass (UID &) ; 

W -Imn : ^mentationClass ( ) ; 

tJl void Set (UID &) ; 

»i void Set (BYTE *) ; 

^ ; BOOT. Write(Buffer &) ; 

a|J BOCL Read(Buf fer &) ; 

BOOL ReadDynamic (Buff er &) ; 

*! UINT3 2 Size(); 

m 



class Imp-L^mentationVersion 

l_. private : 

^ BYT ItemType; // 0x55 

Lj BYTF Reservedl; // 0x00 

f|| UINT1- Length; 

^* public: 

""J UID Version; 

: — a , 

pj Impl^r.entationVersion () ; 

Imp UmentationVersion (BYTE *) ; 
Imp^enentationVersion (UID &) ; 
-Impi^mentationVersion ( ) ; 
void Set (UID &) ; 

void Set (BYTE *) ; 

BOOL Write(Buffer &) ; 

BOOL Read(Buffer &) ; 

BOOL ReadDynamic (Buff er SQ- 

UINT?.'; SizeO; 



}; 



class SCP~*,: r ;RoleSelect 
{ 



private : 

BYTE 
BYTE 
UINT 1 
public : 
BYTE 
BYTL 
UID 



ItemType; 
Reservedl ; 
Length; 

SCURole; 
SCPRole; 
SOPuid; 



// 0x54 
// 0x00 



SCP.'~:RoleSelect () ; 

-SC:-: TURoleSelect ( ) ; 

BOCI. Write(Buffer &) ; 

BOc: Read(Buffer &) ; 

BOC ReadDynamic (Buff er 

Uirr*: SizeO; 
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}; 



class 
{ 



Pre. /-.ationContext 



private-; 

BYT": 
BYTF 
BYTF 
BYTE 
BYT' 7 , 

public : 

BYTF 

Abs • : i " t Syntax 

Arr ^ Trans ferSyntax> 



ItemType; 
Reservedl ; 
Reserved2 ; 
Reserved3 ; 
Reserved4 ; 
Length ; 



// 0x20 

// 0x00 

// 0x00 

// 0x00 

// 0x00 



PresentationContextID; 
Abs Syntax; 
TrnSyntax; 



}; 



Prer- ntationContext ( ) ; 

Pre.entationContext (Abstract Syntax &, Transfer Syntax &) 
-Pr £ - -ntationContext ( } ; 

voi-t Set Abstract Syntax (Abstract Syntax &) ; 

voi-i AddTransfer Syntax (Transfer Syntax &) ; 

BOCL Write(Buffer &) ; 

BOCT Read(Buffer &) ; 

BOCT ReadDynamic (Buf f er &) ; 

UIN7''2 SizeO; 



class MaximumSubLength 

<D . , 

a - private-: 

^* BYTF ItemType; // 0x51 

Ql BYT F Reservedl; // 0x00 

UIi:7V> Length; // 0x04 

UIKT?:! MaximumLength; 
""--J public: 

^ MaximumSubLength () ; 

*f MaximumSubLength ( UINT3 2 ) ; 

Ul -MaximumSubLength ( ) ; 

void Set(UINT32); 

s * r UINT-2 GetO; 

= BOCL Write (Buffer &) ; 

Lh BOCL Read(Buffer &) ; 

BOC : ReadDynamic (Buf fer &) ; 

UIKT'C SizeO; 



ri 



re 

cjrass Ext -ndedNegotiation 
U 

private-: 

BYTF ItemType; // 0x56 

BYTF Reservedl; // 0x00 

BYTE RelationalDB ; 

UIIiTiS Length; 
public : 

UIL SOPuid; 



Ext -ivledNegotiation 0 ; 

-ExtendedNegotiation () ; 

BOCL Write(Buffer &) ; 

BOCL Read(Buffer &) ; 

BOOL. ReadDynamic (Buf fer &) ; 

UIKT-.:! SizeO ; 



class Use: I:\ formation 
{ 

private r 

BYTF 
BYT L " 

un:r:-s 

public : 

MaxirvmSubLength 
Imp ^ eirentationClass 
I mp 1 i r\e n t a t i onVe r s ion 
SCP.'T T ;RoleSelect 
Ex*- '^r 'ledNegotiation 



ItemType; // 0x50 
Reservedl ; 
Length; 

Userlnf oBaggage ; 

MaxSubLength; 

ImpClass; 

ImpVersion; 

SCPSCURole; 

Ex tNego t i a t i on ; 
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Us* . Information { ) ; 
~Ur r :nformation( ) ; 

vo: • SetMax(MallK!umSubLength &) , 

Uir^-J GetMaxO; 
BOr: Write(Buffer &) ; 

BO' : Read(Buffer &> ; 

BO:^ ReadDynamic (Buf f er &) ; 

ui: SizeO; 



class 
{ 



AA: . 



riateRQ 



privatf : 

byt/: 

BYTE 

uii:t_- 
ui?:r : 
uii:t, 

public : 

BY1E 
BYTE 
BYTE 



ItemType; // 0x01 

Reservedl ; 

Length; 

ProtocolVersion; // 0x01 
Reserved2 ; 



CalledApTitle[17] ; // 
CallingApTitle[17] ; // 
Reserved3 [32] ; 



16 bytes transfered 
16 bytes transfered 



Api * i .ationContext 
Arr-v/'PresentationContext> 
Use 'Information 
public : 

AAr :iateRQ ( ) ; 

"iateRQ (BYTE *, BYTE 
i t al 



AAr. 
vii * 
voi r i 
voi -i 
voi -i 
vo: - ! 
voi -? 
vo i ' i 
voi d 
BOL l 
BOOL 
BOC^ 
UIKT3 2 



AppContext ; 
PresContexts; 
Userlnf o; 



c ) ; 



-AAssociateRQ ( ) ; 
SetCalledApTitle(BYTE *) ; 
SetCallingApTitle(BYTE *) ; 

SetApplicationContext (ApplicationContext &) ; 
SetApplicationContext (UID &) ; 

AddPresentationContext (PresentationContext &) ; 
ClearPresentationContexts ( ) ; 
SetUserlnformation (Userlnf ormation &) ; 
Write (Buffer &) ; 
Read (Buffer &) ; 
ReadDynamic (Buf fer &) ; 
Size() ; 



EE 



iendif 
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/*** 



******* * * * * ************* *^^^& ******************************** i^^^to ******** 

* Copyri' (C) 2000, Louisw^ State University, School of Medi^me 
* 

* This D: :i object library was developed based on University of California, 

* Davis < .::c DICOM Network Transport Libraries, in full compliance 

* with V. copyright note below. This version however contains conceptual 

* deviati :.s from the UCDMC library, as well as important bug and performance 

* fixes, ir/1 cannot be used/copied/distributed without our permission 
* 

* Techni >1 Contact: oleg@bit.csc.lsu.edu 
* 

********** * * * *■ ***************************************************************/ 

template class DATATYPE > 

class Da* .link 

{ 

public : 

DATATYPE Data; 
DataLir./f DATATYPE> *prev, *next; 

DataLir:k ) { prev = NULL; next = NULL; }; 

}; 



template 



: lass DATATY PE> 



class Ari^y 
{ 

private : 

unsignf j i int 
~ m l unsigned int 
-Ij DataLink ' DATATYPE > 
gf DataLii ■ k --* DATATYPE> 
~1 DataLin<- DATATY PE> 



public: 
« UINT 



LearType; 



Las t Acces sNumber ; 

ArraySize; 

♦first; 

*last; 

*LastAccess; 
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void 



void 



void 
void 
void 
bool 
BOOL 
BOOL 



inline 
inline 



RemoveAll ( ) 

if(ClearType == 1) 
PemoveLast ( ) 



{ while (ArraySize) 



RemoveAt { 0 ) ; 



if ( Arrays ize<l) return; 
RemoveAt (ArrayS ize-1) ; 

) ; 

JetSize(int new_size) ; 
:wap(UINT indexl, UINT index2 ) ; 
Include (Array <DATATYPE>& a) ; 
IsEmptyO { return (ArraySize<=0) ; }; 
RemoveAt (unsigned int); 
ear Array () 

first = last = LastAccess = NULL; 
LastAccessNumber = 0; 
ArraySize = 0; 
return { TRUE ) ; 



unsigned int 
';etsize() { 

int 

setUpperBound( ) 



return ArraySize ; } ; 



if (ArraySize<=0) 
else 



return -1; 

return ArraySize-1; 



DATATY F FA 

Add (DATATYPE 
DATATYPE^ 



&) i 



Vid() ; 



DATATYFF v 

'-et (unsigned int) ; 
inline DATATYPE & 

operator [] (unsigned int 



Index) 



return (Get (Index) ) ; 
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M 



virtua, 



-Array ( ) 
RemoveAll ( ) ; 



void . aerator = (Array<DATATYPE> fcarray) 
RemoveAl 1 ( ) ; 

first = array. first; last = array. last; 
ArraySize = array . Ar ray Size; ClearType = FALSE; 



/ / Con:* ; ictors 
Array 



ArraySize = 
LastAccess 
ClearType = 

Array '"JOT CT) 

ArraySize = 
LastAccess 
ClearType = 

Array TWTATYPE & d) 

f 

ArraySize = 
LastAccess 
ClearType = 
Add(d) ; 



0; first = NULL; last = NULL; 
= NULL; LastAccessNumber = 0; 
1; 



0; first = NULL; last = NULL; 
= NULL; LastAccessNumber = 0; 
CT; 



0; first = NULL; last - NULL; 
= NULL; LastAccessNumber = 0; 
1; 



private : 

Zl void Move ( Da taLink< DATATYPE > *dmove, DataLink<DATATYPE> *dloc, 
W= bool insert_bef ore_dloc) ; 

Jj void ::v/ap(DataLink<DATATYPE> *dl, DataLink<DATATYPE> *d2); 

^ inline I ; a t aL i nk< DATATYPE > * 

^ o v t Da taL ink (unsigned int Index) ; 

}}-„ II end ci class prototype 

******** ' + ^ **************************************************** 

flj 

* Element manipulation 



***************************************************/ 

lass DATATYPE > 

Array<DATATYPE> : : Add (DATATYPE 



& Value) 



£*=* ***** * * •* 

template 
G&TATYPE 
l« 

sj // reef v 1 current end-of -chain element 
r=* DataLink DATATYPE> *dl = last; 

rj // chain m new element at tail of chain 
last = r^'.v DataLink<DATATYPE>; 
last->Luta = Value; 

// set new element's backward pointer to point to former 

// end-^t -chain element 
last->r**«v = dl ; 

// set i rmer end-of -chain' s next pointer to point to new element 

if(dl) ll->next = last; 

else 

{ 

// f Mere was previously no "last" element so the one just 
// -i I located must be the first 
firr.t. = last; 

} 



++Arra^ 
return 



^ i ze; 
TT alue ) ; 



) 

template 
DATATYPE 
{ 

// recr.i current end-of -chain element 
DataLir. DATATYPE> *dl = last; 



class DATATYPE > 
Array<DATATYPE> 



Add() 



// chai; >n new element at tail of chain 
last = :> "v DataLink<DATATYPE> ; 
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} 



// set 
// end 
last->} 

// set 
if (dl) 
else 
{ 

// 
II 

fi:. 

} 

++Array 
return 



template 
DATATYPE 
{ 

return 

} 



• element's bac 
chain element 

* = dl; 



pointer to point to former 



mer end-of -chain' s next pointer to point to new element 
l->next = last; 



/■re was previously no "last" element so the one just 
located must be the first 
- last; 



i :e; 
^st->Data) ; 



:lass DATATYPE> 

Array<DATATYPE> :: Get (unsigned int Index) 

GetDataLink ( Index) ->Data ); // will throw exception on NULL link 



template 

DataLink<D; 

{ 

if ( ii. 

if { Lr. 

{ 

Pi int. 
™ if 



-?3L 



} 

el: 

{ 



} 

elf 
{ 



class DATATYPE> 
ArYPE> * Array<DATATYPE> :: GetDataLink (unsigned int 

■♦ x >- Arrays ize ) return NULL; 

Access ) // Sort of access cache 

-i = ( int) Las tAccessNumber- Index ; 
: -0) // same as before 

-turn LastAccess; 

; f{d == -1) // next after the most recently accessed 

istAccess = LastAccess->next; 
+• ~ Las tAccessNumber; 
• ^turn LastAccess; 



Index) 



if (d == 1) 



// previous before the most recently accessed 



: .-istAccess = LastAccess->prev; 

-Las tAccessNumber; 
; -.turn LastAccess; 



} 

// loCii 

// deci 
DataLir. 
unsigrv 

if (Ind< : 
{ 

// 
dl 

wh: \ 
} 

else 
{ 

// - 
dl 

Inci: 
whr ; 

} 

LastAcr 
Last Ac 
return 



+ n requested element by following pointer chain 

which is faster -- scan from head or scan from tail 
: ::atatype> *dl; 
1 int rlndex = Index; 

:■: - ArraySize / 2) 

■--■rues ted element closer to head — scan forward 

tirst ; 

i l^x; 

'--Index > 0) dl = dl->next; 



■TJested element closer to tail 

'..ast ; 

: = (ArraySize - Index) ; 

•f --Index > 0) dl = dl->prev; 

- = dl; 

■r Number = r Index ; 

ii) ; 



-- scan backwards 



template lass DATATYPE> 

BOOL Ar> , ■ DATATYPE > :: RemoveAt (unsigned int Index) 



DataLir.. ATATYPE> *dl = GetDataLink ( Index) ; 
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if ( !dl r.urn FALSE; 



^^^t to be deleted 



// Rel:\ : chain around elewht to be deleted 
if (dl- i -r-rv) dl->prev->next = dl->next; 
else first = dl->next; 

if (dl---r. :: t ) dl->next->prev = dl->prev; 
else last = dl->prev; 

delete ii; 

— Array i r.e; 

Las t Ac f = NULL; 

Las t Ac '"-^r Number = 0; 

return "RUE ) ; 

} 

^********** - * ^***************************************************** 
* 

* Includ c i.I elements from Array "a - into this array. 

* Note: 7.\ijlv "a" becomes empty after inclusion ! 
* 

**********- *- *- * * ****************************************** i 
template - -lass DATATYPE> 

void An -i s - OATATYPE> :: Include (Array < DATATYPE >& a) 
{ 

if ( icit- a Type || la.ClearType) return; // Cannot include linked arrays 
if (a . Ki ; .tySize<=0) return; // Nothing to include 

if (Arra /.-'ize>0) 
{ 

la.^ ~*next=a. first; a . f irst->prev = last; 

la.- a. last; 

} 

_ else 
£2 { 

.e% f i i .-3 *" = a. first; last = a. last; 

% > 

us ArrayS: r.<- += a.ArraySize; 

LastAcre.-G = NULL; 
^\ LastAcc ^?r>Mumber = 0 ; 
~~J a. CI ear Type = 0; 
t=1 a.CleaiArray ( ) ; 

******** ■'■ * -***************************************************** 

* Move o)' - i inked element before or after the other 
*= 

^fe* ******** - ' • <r *************************************************** J 

tsemplate 'Lass DATATYPE > 

v|$.d An r/- DATATYPE > :: Move (DataLink<DATATYPE> *dmove, 
Hi aitaLink<DATATYPE> *dloc, bool insert_before_dloc) 

_r if(!dmr*v || !dloc || dmove==dloc) return; 

p //Do need to move anything at all? 

if (ins^r ",_bef ore_dloc) 
{ 

if f imove->next==dloc) return; // already there 

} 

else insert after dloc 

{ 

if t T rtive->prev==dloc) return; // already there 

} 

// Renr ** : Imove from its present location 

if (dmovt prev) dmove->prev->next = dmove->next ; 

else first = dmove->next; 

if (dmov^- --next) dmove->next->prev = dmove->prev; 
else last = dmove ->prev; 

// Insf r f rimove into its new location 

if (insrrt before_dloc) 

{ 

dmc* r e- >prev = dloc->prev; 
dmc *' r —>next = dloc; 

if 1 tl-c->prev) dloc->prev->next = dmove; 
elr- first = dmove; 

dl< orev = dmove; 

} 

else move after dloc 

{ 



r-^Wxt 



dnr -next = dloc->r 
dir. 'prev = dloc; 

if - :->next) dloc-^IKct->prev = dmove; 
el. last = dmove; 

dl • -next = dmove ; 

} 

LastAc* . dumber = 0; 
Last Ac . = NULL; 

} 

y********* * *■ ***-************************************************** 
* 

* Swappi:v: iv/o elements 

********** 1 + * ************************************************** 
template - lass DATATYPE > 

void Ar>:-iy-'DATATYPE> :: Swap (Da taLink< DATATYPE > *dl , 

DataLink<DATATYPE> *d2) 



{ 



,-ve (dl,d2 , true) ; Move (d2 , dt, true) ; 



U 

?53 



if{!dl !d2 || dl==d2) return; 
DataLir - :;ATATYPE> *dt = dl->next; 
if (dt) 
{ 

if ' -=d2) // neighbors 
{ 

i:(d2->next) Move(dl, d2->next, true) ; 

;se if(dl->prev) Move(d2, dl->prev, false); 
• ne // array contains only dl and d2 

f irst=d2 ; last=dl; 

d2->next = dl; d2->prev = NULL; 

dl->prev = d2; dl->next = NULL; 

} 

elr> // not neighbors 

{ 

} 

} 

else 
{ 

dt 12->next; if(!dt) return; // impossible 

if \" :=dl) // neighbors 
{ 

1 t (dl->next) Move(d2, dl->next, true) ; 

.oe if(d2->prev) Move(dl ( d2->prev, false); 
- " se // array contains only dl and d2 

f irst=dl; last=d2; 

dl->next = d2; dl->prev = NULL; 

d2->prev = dl; d2->next = NULL; 

) 

} 

elr*- // not neighbors 
{ 

I?ove{d2,dl, true) ; Move (dl , dt, true) ; 

} 

} 

Last Ac-'. Number = 0; 
Last Act = NULL; 



) 



template ■ "]ass DATATYPE> 

void An h y- ~ DATATYPE> :: Swap (UINT indexl, UINT index2) 
{ 

Swap(G> + : MtaLink(indexl) , GetDataLink(index2 ) ) ; 

} 

/********* ' *■ ■*■ ^ ************************************************** 
* 

* Settinct * . a certain size 
* 

*********** * ^ * **************************************************** 
template -Lass DATATYPE> 

void Arr »v DATATYPE > :: SetSize(int new_size) 
{ 

if(new_ .:ze<0) return; 

if(nev;_ ==0) { Remove All () ; return; }; 

int n; 

int d raySize - new_size; 

if(d>0' Remove last elements 
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# 



{ 

fc ; n<d; n+ + ) I^^^eLastO; 

re* . ; 

} 

if (d<C Add new default elements 

{ 

fc: ; n<-d; n++) Add(); 

re f :\: ; 

} 

return; ArraySize == new_size 



// basictyi - . h: interface fo^Mie basic DICOM type classes. 

//////////. 11 iiiiiiiiiimmiiiiiiiiiiniiiiiiiuiiiiiiiiiiii 

#if ! define . BASICTYPES_H_INCLUDED_) 
#def ine _B£ ; : 7YPES__H_INCLUDED_ 

# include "J j. .hpp" 
# include <*- ~- . h> 

// 2-Dimenri rial point 
class Poim . T 
{ 

public : 

double x,y; 

Point2L" { x=0.0; y=0.0; } 
Point2D : double a, double b) { x=a; y=b; } 

Point2r'P';int2D& p) { x=p.x; y=p.y; } 

bool Serial izePoint2D (FILE* fp, bool is — loading) 
{ 

return ( : : SerializeDouble ( fp, x, is_loading) && 
: : SerializeDouble ( fp, y , is_loading) ) ; 

} 

}; 

// CallBack ' hject 
class Cal backObject 
{ 

private: 

void* m_ptr Argument ; 
Ll int -m_ptr Function) (void* arg, UINT paraml=0, UINT param2=0) ; 

pft)lic: 

^ s static - -nst BYTE m_CBConnectingToAE ; 

*i3 static c.nst BYTE m_CBConnectionFailed; 

zJi static - ^r.st BYTE m_CBSendingRequest ; 

static cnst BYTE m_CBGettingResponse ; 

Uj static '-"r-nst BYTE m_CBResponseReceived; 

■j\ static -rnst BYTE m_CBCancelSent ; 

2; static - nst BYTE m_CBIsCancelled; 

Hi static -nst BYTE m_CBDQRTaskSchedule ; 

^ bool .;=tCallBack(int (*func) (void* a, UINT paraml=0, UINT par am2=0) , 
£% void* arg=NULL) 

m i 

m_pfr Function = func; 
~~J m_p*-.r Argument = arg; 

==: return (m_ptrFunction != NULL) ; 

if ><• 

LJ int :nvokeCallBack{UINT paraml=0, UINT param2=0) 

{ 

if :r.: per Function) 
{ 

return m_p t r Func t i on (m_ptr Argument , paraml, param2) ; 
c-itch( . . . ) { return 0; } 

} 

elr,*^ return 0; 

>; 

// constructors 

CallBackobiect ( ) { m_ptrArgument=NULL; m_ptrFunction=NULL; }; 
CallBac>/ibject (int (*func) (void* a, UINT par aml=0, UINT param2=0) , 
void* arg=NULL) 

{ 

Se^ ' i.'.lBack( func, arg) ; 

}; 

CallBackOriect (CallBackObjectfc cbo) 
{ 

m_p" r Argument = cbo .m_ptrArgument; 
m__pr r Function = cbo .m_ptr Function ; 

}; 

>; 

// UID 
class UIE 
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{ 

private : 
BYTE 
UINT 

public: 
void 
void 
{ 



1.1 U65] ; 
length; 



.-arUIDO { ZeroMem(uid, 64); Length = 0; }; 

■♦; (BYTE *s) 



>; 
void 
void 
void 
{ 



if(!r return; 

Zero: {uid, 64); 

strcty((char *) uid, (char *) s) ; 

Leng r = strlen { (char*) uid) ; 



^. (UID &u) { <*this) = u; }; 
t:(char *s) { this->Set ( (BYTE *) s); }; 
-t:Length(UINT L) 



Leng 
whil 



}; 

BOOL 
{ 



L < 65) uid[L++] = '\0 J 
operator == {UID &ud) 



if ( ! r-.rcmp ( (char*) GetBufferO, (char*) ud.GetBuf f er ( ) ) ) 

L*'turn (TRUE ) ; 
retui n (FALSE) ; 



}; 

BOOL 
BOOL 
{ 



-rator 
orator 



(UID &ud) { return ( ! ( (*this) ==ud) ) ; }; 
(UID &ud) 



W >; 
t|l BYTE 
~; UINT 



J1 UID ( ) 



Byte' py(uid, ud . GetBuf f er ( ) , 64); 
SeU>n gth(ud.GetSize{) ) ; 
retui r (TRUE) ; 



*^etBuffer() { return <&uid [0] ) ; }; 
<>tSize() { return ( Length ); }; 



UID (BYTE *s) 
* UID (char -s) 

■jit 



{ ClearUIDO; 

{ Setts); 

( Set ( (BYTE* ) s ) ; 



AU DateTime 
cj.ass DateTimt- 

prablic: 

rj void SetKnmericTime (double t) ; 

5*3 double Ge K NumericTime ( ) ; 

void SetNumericDate ( int dt) ; 

^•j int GetNumericDate ( ) ; 

static const BYTE DateFormat; 

zt static const BYTE TimeFormat; 

Lj static const BYTE DateTime Formats- 
static const BYTE UnknownFormat ; 

void SetCurrentDateTime ( ) ; 

void SetCurrentTime ( ) ; 

void SetCurrentDate ( ) ; 

inline v^id ClearDate ( ) { m_Year=-l; 

inline v id ClearTimeO { m_Hour=-l; 

inline v>id ClearDateTime ( ) { ClearDate() ( 

inline h :ol EmptyDateO { return (m_Year<0) ; }; 

inline h ol EmptyTimeO { return (m_Hour<0) ; }; 

inline Y ■ ol EmptyDateTime ( ) { return EmptyDate ( ) | | EmptyTime ( ) ; 
bool SerializeDateTime (FILE* fp, bool is_loading) ; 

bool SetTime (char* str) ; 

bool SetDate(char *str) ; 

bool SetDateTime (int y, int mo=0, int d=0, int h=0, 

int mi=0, double s=0); 
bool SetTime(int h, int m=0, double s=0) ; 

bool SetDate(int y, int m=0, int d=0) ; 

bool SetSecond (double s); 

bool SetMinute (int m) ; 

bool SetHour(int h) ; 

bool SetDaytint d) ; 

bool SetMonth(int m) ; 

bool SetYear(int y) ; 

bool Forma tDateTime (char *str, int max_len, bool dicom_f ormat) 

bool Forma tDate (char *str, int max_len, bool dicom_f ormat) ; 

bool Forma tTi me (char* str, int max_len, bool dicom_f ormat) ; 



m_Mon t h= 0 ; m_Day = 0 ; 
m_Minute=0 ; m_Second= 
ClearTime ( ) ; 



.0; 
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int 


SetDateTime { 




^ str, 


BYTE format 


int 


GetYear ( ) 


u 


B*eturn 


m_Year ; } ; 


int 


GetMonthO 




Rreturn 


m_ Month; } ; 


int 


GetDay ( ) 


{ 


return 


m_Day; } ; 


int 


GetHour ( ) 




return 


m_Hour ; } ; 


int 


GetMinute ( ) 


{ 


return 


m _Jlinute; 


double 


GetSecond( ) 


{ 


return 


m — Second; 


struct tr 


GetTMO ; 








DateTime 


GetLower { ) ; 








DateTime 


GetUpper { ) ; 








bool 


operator = = 


{DateTimeSc 


d) ; 


bool 


operator ! = 


{DateTimeSc 


d) ; 


bool 


operator > 


(DateTimeSc 


d) ; 


bool 


operator >= 


(DateTimeSc 


d); 


bool 


operator < 


(DateTimefc 


d) ; 


bool 


operator <= 


(DateTimeSc 


d) ; 



}; 
}; 



DateTime ( 
DateTime ( : 
virtual - T 
private : 
int 

double 



ateTime& d) ; 
ateTime ( ) ; 

m_Year, m_Month, m__Day, m_Hour, m_Minute; 

m_Second; 



bool 



}; 



Format (char *dest, int max_len, const char * format ) ; 



// DateTimeSe 
cjass DateTiir- 
<U 

public : 
~ void S- 
y * void £■ 
UJ void K- 
inline v 
,r inline v 
inline v. 



'raent 
•Segment 



tNumericTime (double t) ; 
tNumericDate ( int d) ; 
rmalize ( ) ; 
id 
id 
:id 



SetStart (DateTime& d) 
SetEnd (DateTimeSc d) 



inline v id 



bool 
bool 
bool 
bool 
bool 
bool 
bool 
bool 



==? static ch 

F 
b 

DateTime 
DateTime 
DateTimeS* 



{ m_Start=d; }; 
{ m_End=d; } ; 
Se t Da teTimeSegment (DateTimeSc start, DateTimeSc end) 
{ m_S tar t=s tart; m_End=end; }; 
ClearDateTimeSegment ( ) 
{ m_Start .ClearDateTime ( ) ; m_End. CI ear DateTime ( ) ; } ; 
-t DateTime Segment (char* str, BYTE f ormat=DateTime : : UnknownFormat) ; 
itersects (DateTimeSegmentSc d) ; 
ntainsDateTime (DateTimeSc dt) ; 

rial izeDateTime Segment (FILE *fp, bool is_loading) ; 

rmatDateTime (char *str, int max_len, bool dicom_format) ; 

rmatTime (char *str, int max_len, bool dicom_f ormat) ; 
irmatDate (char *str, int max_len, bool dicom_ format) ; 
'ptyDateTimeSegment ( ) 

return (m_Start . EmptyDateTime ( ) ScSc m_End . EmptyDateTime ( ) ) ; } ; 

i r " 

rmatStaticDateTimeString (char* strdest, int max_dest_len, 
■ol dest_format, char* strsource, BYTE source_f ormat) ; 

GetStartO { return m_Start; } 

GetEndO { return m_End; } 

gment Expand ( ) ; 



DateTime S - gment ( ) ; 

DateTimeS- gment (DateTimeSegmentSc dts) ; 
virtual -"ateTimeSegment { ) ; 



private : 

DateTime 

}; 



m_S tart, m_End ; 



// Applicatic: Entity 
class Applica' ionEntity 
{ 

public : 



bool 


o - 


..Served; 


bool 


a- 


- _useMoveAsGet; 


char 


a 


_Title[20] , ae _j?artnerTitle [20] ; 


char 


EL" 


' ^Location [ 32 ] ; 


char 


a* 


-_Comments [ 64 ] ; 


int 


a* 


-_Port, ae_PortServer ; 


int 


a 


^Timeout ; 


BYTE 


a- 


_IP1, ae_IP2, ae_IP3, ae_IP4; 
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bool S Comments (char 

bool £ t Location (char *^^T; 

bool £* u PartnerTitle (char* s); 

bool S '-.Title (char* s) ; 

bool S >*:ApplicationEntity (char* title, 

BYTE ipl=127, BYTE ip2=0, BYTE ip3=0, BYTE ip4=l, 
int port=104, int port„ser=104 , int timeout=300, 
char* location="Unspecif ied location", 
char* comments="No comments'', 
bool useMoveAsGet=f alse) ; 

bool S - rializeAE (FILE* fp, bool is_loading) ; 

bool ci «rator == ( ApplicationEntityfc a) 

{ return (strcmp (ae_Title , a.ae_Title) ==0) ; }; 

Applicati nEntityO; 

Applicati nEntity (ApplicationEntityfic a); 

Applicati ..nEntity ( char* title, 

BYTE ipl=127, BYTE ip2=0, BYTE ip3=0, BYTE ip4=l, 
int port=104, int port_ser=104 , int timeout=300, 
char* location= "Unspecified location", 
char* comments= "No comments", 
bool useMoveAsGet= false) ; 

virtual -/'pplicationEntity ( ) ; 




char* G*:tPortString( ) ; 
char* G> tPortServerString( ) ; 
char* G- -.IPStringO ; 



private: 

char a 

}; 

fQ% Applicatic 
class Applica 

pnilblic : 
■j% void 
bool 
~~£ bool 

Zl_ bool 

J==? bool 

nj bool 

int 

- UINT 

M UINT 

Fi Applicati^ 

Fy Applicati 



„IP_str [20] , ae_Port_str [8] , ae_PortServer_str [8] ; 



'iKntityList 
*■ ionEntityList 



public Array<ApplicationEntity> 



SetServedStatus (int port, bool status); 
GetAELocation (UINT aeindex, char* loc) ; 
SetLocalAE (BYTE ipl, BYTE ip2 , BYTE ip3 , BYTE ip4 , 

char* title=NULL) ; 
Identif yAE (char* title, ApplicationEntityfc aeFound) ; 
SerializeAEList (bool is_loading, char* f ilename=NULL) ; 
SetCurrentIndex(int n) ; 
Identif yAE Index (char* title); 



GetCurrentIndex( ) 
GetLocal Index ( ) 
■nEntitySc 

GetLocalAE ( ) 
nEntityfc 

GetCurrentAE( ) 



return m_Cur rent Index; 
return m_Local Index; 



); 
); 



return Get (m_Local Index ) ; 



}; 



{ 



Get (m_Cur rent Index) . SetPartnerTitle (GetLocalAE ( ) . ae_Title) 
return Get (m_Cur rent Index ) ; 



ApplicatiraEntityList ( ) ; 

virtual -ApplicationEntityList ( ) ; 



private : 

char m_S e r F i 1 e [ MAX_PATH ] ; 

UINT m_CurrentIndex; 

const UINT m_Local Index; // always 0 



void LoadDef aults ( ) ; 

bool SetLocalAE (UINT n) ; 

bool CreateLocalAE (BYTE ipl, BYTE ip2 , BYTE ip3 , BYTE ip4, 

char* title=NULL) ; 



#endif // \det i ned(_BASICTYPES_H_INCLUDED_) 
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/************ < 



Copyright C) 2000, Loui 




********************************** 



State University, School of Medf 



********* 



This DICOi: object library was developed based on University of California, 
Davis UCDi: : DICOM Network Transport Libraries, in full compliance 
with the c pyright note below. This version however contains conceptual 
deviation:- from the UCDMC library, as well as important bug and performance 
fixes, and cannot be used/copied/distributed without our permission 

Technical Jentact: oleg@bit.csc.lsu.edu 



*************■> 



*************************************************************, 



class Buffer .^pace 
{ 



public : 
BOOL 
BYTE 
INT 
UINT 



isTemp; 
*Data; 
Buf f erSize; 
Index ; 



) ; 



Buffer ."pace (UINT) , 
Buf f ei .'pace { ) ; 
-Buffer Space ( ) ; 



class Buffer 
{ 

protected : 
UINT 



UINT 
UINT 
INT 
INT 

Array< Buf f erSpace*> 
Array < Buffer Space* > 



Breaks ize ; 

InEndian; 

OutEndian; 

InSize; 

Outsize; 

Incoming; 

Outgoing; 



BOOL 



ReadBlock( ) ; 



public : 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
inline 
inline 
inline 



UINT 
UINT 
UINT 



SetBreakSize(UINT) ; 
SetlncomingEndian (UINT) ; 
SetOutgoingEndian (UINT) ; 
Flush () ; 

Flush (UINT Bytes) ; 
Kill (UINT) ; 
Read (BYTE *, UINT) ; 
Write (BYTE *, UINT); 
Fill (UINT) ; 
GetlncomingEndian ( ) 
GetOutgoingEndian ( ) 
GetSizeO { return 



Buffer 
Buffer 
Buffer 
inline 

{ return { 
inline Buffer 

{ return ( 
inline Buffer 

{ return ( 



& operator >> 
& operator » 
& operator » 
Buffer & operator » 

( * this ) >> ( BYTE &) x) ; 
& operator » 
(*this)»(UINT16 &) x 
& operator » 
(*this)»(UINT32 &) x 



Buffer Ft operator 
Buffer operator 
Buffer Ec operator 
inline Buffer & operator 

{ return ( 
inline Buffer 

{ return ( 
inline Buffer 

{ return ( 



« 
« 
<< 
« 

(*this)« (BYTE &) x) ; 
& operator « 
(*this)«(UINT16 &) x 
& operator « 
(*this)«(UINT32 &) x 



return ( InEndian ) ; } ; 
return ( OutEndian ) ; } ; 
( InSize ) ; } ; 



BYTE &) ; 
UINT16 fit) ; 
UINT32 fie) ; 
char ficx) 
>; 

INT16 
; }; 
INT32 
; ); 



&x) 
&x) 



BYTE &) ; 
UINT16 &) ; 
UINT32 &) ; 
char ficx) 
>; 

INT16 
; }; 
INT32 
; }; 



&x) 
&x) 



virtual INT 
virtu-.! BOOL 



ReadBinary (BYTE *, UINT) 
SendBinary(BYTE *, UINT) 



Buffer ' ) ; 
virtu a \ 



-Buffer () ; 



1 



}; 



# 



m 
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* Copyright C) 2000, LouislWa State University, School of Medi^Ke 
* 

* This DICOi: object library was developed based on University of California, 

* Davis UCDi:: DICOM Network Transport Libraries, in full compliance 

* with the cpyright note below. This version however contains conceptual 

* deviations from the UCDMC library, as well as important bug and performance 

* fixes, and cannot be used/copied/distributed without our permission 
* 

* Technical Vontact: oleg@bit.csc.lsu.edu 
*************^^*^ ******************************** 



#if ! defined (_JCTYPES_H_INCLUDED_) 
#define _CCTYPES_H_INCLUDED_ 



/* CC Types */ 

#ifdef SOLARIS 

# define SY.?TEM_V 

#endif 



#ifndef WIN32 

typed ef unsigned 
#endif 

typedef unsigned 

typedef unsigned 

#ifndef _BASETTD_H_ 

typedef unsigned 
#endif 

typedef unsigned 

CJndef WIN32 

typedef unsigned 
#lndif 

typedef signed 

typedef signed 

#Ifndef _BASET^D_H_ 

typedef signed 
#^ndif 

#lSndef WIN32 

t§t>edef signed 
Hgfidif 



int BOOL; 



int 
short 
// MSVC 
long 

char 

char 

char 
short 
// MSVC 
long 



int 



fafndef TRUE 
&$efine TRUE 
iendif 

fttndef FALSE 
f^efine FALSE 
#endif 



{ (UINT) 1) 
((UINT) 0) 



UINT; 
UINT16; 
6.0 define: 
UINT32; 

UINT8 ; 

BYTE; 

INT8; 

INT16; 

6.0 define: 

INT32; 

INT; 



typedef unsigned int UINT32 [gz] 



typedef int INT32 [gz] 



^Jdef 
#uhdef 
#endif 
#ifdef 
#undef 
#endif 



little„endian 
little indian 

big_ei:dian 
big_ei-tdian 



# define LITTLE_ENDIAN 1 

# define BIG_ENDIAN 2 
#ifndef NATIVE _ENDIAN 

# define NATIVE_ENDIAN LITTLE_ENDIAN 
#endif 



#endif 
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DICOMRecord class. 
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II database. h: interface forT 
// 

1 1 1 1 1 1 1 1 1 1 1 1 1 'lllllllllllllllllllltllllllllllltlllltlllllllllllltll 



m 



#if ! defined ( ICOM_DATABASE_H_INCLUDED_) 
#def ine _DICO;' DATABASE_H_INCLUDED_ 



// Added by CI ass View 



tinclude "die .^.hpp" 
#include "cc types. h" 

class DICOMRe c - rd 
{ 

public : 

const static BYTE Leve 1 Invalid ; 
const static BYTE Level Patient ; 
const static BYTE LevelStudy; 
const static BYTE LevelSeries; 
const static BYTE Level Image; 



void 
void 



void 



Us void 
J-z void 
^ void 
"H void 
ill void 
Zl bool 
« bool 
Rj bool 
bool 
bool 
H bool 
bool 
T\ bool 
\U bool 
Vj bool 
bool 
« bool 
H bool 
bool 
bool 
bool 



bool 



BYTE 

BYTE 

char* 

char* 

char* 

char* 

char* 

char* 

char* 

char* 

char* 

char* 

char* 

char* 

char* 

char* 

int 

UINT 



Set AtRoot (BYTE root, DICOMRecord* pDR=NULL) ; 

Set Record (char *pID, char *pName, int pBDate, 

double pBTime, char* stIUnstID, 

char* stID, char* aNum, char* stlmNum, 

int stDate, double stTime, 

char* serlnstUID, char* mod, char* serNum, 

char* SOPUID, char* imNum, char* fName) ; 

S^ Record (char *pID, char *pName, DateTimeSegment* pBDate, 
DateTimeSegment* pBTime, char* stIUnstID, 
char* stID, char* aNum, char* stlmNum, 
DateTimeSegment* stDate, DateTimeSegment* stTime, 
char* serlnstUID, char* mod, char* serNum, 
char* SOPUID, char* imNum, char* fName) ; 

St r RetrieveAEs (char* aelist) ; 
Ci^rAtCurrentLevel ( ) ; 

Cl^arDICOMRecord(bool remove_f ile=f alse) ; 

RemoveOTModality ( ) ; 
ExpandDateTime ( ) ; 

WritelntoDICOMObject (DICOMObjectfc dob, DICOMObject* dob_mask=NULL) 

HasUniquePrimaryKeys ( ) ; 

WriteIntoDICOMQR(DICOMObject& dob, bool cf ind) ; 
Wri telntoTextFile (char* filename) ; 
ChingeLevel (bool step_down, BYTE qr„root) ; 
A'.; ;KetrieveAE (char* aetitle) ; 
Rer^oveRetrieveAE (char* aetitle) ; 

FormatStudyTime (char *str, int max_len, bool dicom_f ormat) ; 

FcrmatStudyDate (char *str, int max_len, bool dicom_f ormat) ; 

For inatPatientBirthTime (char *str, int max. len, bool di com_f ormat ) ; 

FrrmatPatientBirthDate (char* str, int max_len, bool die om_f ormat) ; 

S<?rializeDICOMRecord(FILE* fp, bool is_loading) ; 

Se: RecordOnLevel (DICOMObjectSc dob) ; 

S^" Record (DICOMObject& DOB, char* filename); 

S': + Record ( DICOMRecord& d) ; 

S^t Record (char* filename); 

M.itchDlC0MString(char* exact, char* mask, 

bool case_sensitive, 

bool f irst_level=f alse) ; 

oi-'rator== (DICOMRecordfc dr) ; 



Fi 

Ge 

Gi- 

Ge 

Gm 

G- 

G* 

G»- 

G. 

Ge 

Ge 

G» 

G^ 

Gt. 

Ge 

G«-. 

Ce 

G- 



nclQLevel ( ) ; 
^QLevel ( ) 
*■ FileName ( ) 
tRetrieveAEs ( ) 
tPatientID( ) 
PatientName ( ) 

* !-tudyInstUID( ) 
r. studyID( ) 

* AccessionNumber ( ) 
t StudyImagesNum( ) 

* SeriesInstUID ( ) 
t Modality ( ) 

SeriesNum( ) 
tSOPInstUID( ) 
mageNum ( ) 



return m__QLevel; 
return m_Filename; 

m_ RetrieveAEs ; 
m_PatientID; 
nuPatientName ; 
m_StudyInstUID; 
m_StudyID; 
m_Ac c e s s i onNumber 
return m_StudyImagesNum; 
return m_SeriesInstUID; 
m_Modality; 
m_SeriesNum; 
m_SOPInstUID; 
m_ImageNum; 



return 
return 
return 
return 
return 
return 



return 
return 
return 
return 



^RetrieveAE (char* aetitle, UINT aetitle_len, U 



}; 



NT n=l) ; 



DateTimeS' 



:r.pareAtLevel (DICOMRecord& dr, 
■* HetrieveAEsCount ( ) ; 
trr.ent GetPBirthTime ( ) { return 



BYTE lev=Level Image) ; 
m_PBirthTime ; } ; 



1 



DateTimer- 
DateTimeS* 
DateTimeS* 



;r?nt GetPBirt 
*r*ent Get Stud 
jr".ent Get Study] 



th|^fe 



{ return m_PBirthDate; }; 
{ return m_StudyTime ; }| 
{ return m_StudyDate; } ;^ 



DICOMRecc : u ) ; 

DICOMRecci : 'DICOMRecordSc d) ; 
virtual "'JOMRecord ( ) ; 
private : 

const sta*ir BYTE InsertUnique ; 
const sta*.e BYTE InsertNonEmpty ; 
const sta*v ^ BYTE InsertAny; 

BYTE rr , Level ; 

char m. : lename [MAX_PATH+1 ] ; 

char rr. trieveAEs [ 65] ; 

char itl ■ atientID [ 65 ] ; 

char nw'atientName 1 65] ; 

char m._^tudyInstUID[65] ; 

char nr. /tudyID[17] ; 

char it 1 .ArcessionNumber [17 ] ; 

char m_^tudyImagesNum[13] ; 

char m. -eriesInstUID[65] ; 

char it. Modal i ty [ 3 ] ; 

char it. . iesNum [ 13 ] ; 

char m . OPInstUID[65] ; 

char it Irr.ageNum [ 13 ] ; 

DateTimeS* ment 

m PSirthTime, m_PBirthDate , m_StudyTime, m_StudyDate; 

void I : .-ertStringForQLevel (DICOMObjectfc dob) ; 

bool Ir: f=rtString (DICOMObjectfic dob, UINT16 group, UINT16 element, 

char *str, BOOL alloc, BYTE how= InsertAny) ; 

/§?////////// 1 1 1 1 1 1 1 1 f 1 1 i 1 1 1 1 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 i / 1 1 i 1 1 i I 

I fa DICOMDataba^e class. 

mi 

' 1 1 1 1 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

ibase 



rmi mi tin 

cl^ss DICOMDa 
E^blic : 

ffj const sta*i~ BYTE RetrieveRelational ; 

const sta 1 c BYTE RetrieveHierarchical ; 

f const sta . .- BYTE Ma cchRelational ; 

\& const sta' ic BYTE MatchHierarchical ; 

const st?/ ' r BYTE RecordFound; 

const static BYTE FindMore; 

\d const sta^ i.c BYTE RecordsEnd; 
'S.l Applicati nEntityList db_AElist; 



void 
void 
void* 

void* 

virtual vid 
virtual v i d 
bool 
bool 

bool 

bool 

bool 

virtual b ;i 

virtual b~ ?1 

virtual bn-jl 

virtual b'vjl 

virtual It 1 

virtual BVTE 
virtual EVTE 

char* 

int 



EnableDisplayNew(bool b) { db_DisplayRecordsFlag=b; }; 
DisplayRecords (bool from„local) ; 
StartSearch(DICOMObject& dob, const BYTE how, 

char* f i lename = NULL) ; 
Star tSearch (char* filename, const BYTE how); 
StopSearch(void* pDR) ; 

DisplayRecords (Array<DICOMRecord> &a, bool f rom_local ) ; 
DBAdd(char* filename, bool copy_into_db_directory=f alse) ; 
AttachDirectory (char *directory, 

bool include_subdirectories=true) 
ImportDirectory (char* directory, 

bool include_subdirectories=true) 
UnlmportDirectory (char *directory, 

bool include^ subdirectories=true) 
UnAttachDirectory (char *directory, 

bool include„subdirectories=true) 
GetFromLocal ( DICOMDa taObject& ddo_mask) ; 
SetRecordCount (int c) ; 
DBAdd(DICOMRecord& dr) ; 

DBAdd(DICOMObject* dob, PDU_Service* pdu) ; 
InitializeDataBase ( char* directory, 

void (*disp) (Array<DICOMRecord>&, bool)) 
RetrieveNext (void* pDR, DICOMObjectfc dob_found) ; 
MatchNext (void* pDR, DICOMObject &dob_found, 

DICOMObject* dob_mask=NULL) ; 
GetMostRecentFile ( ) 

{ return db_JlostRecentRecord.GetFileName ( ) ; }; 
DBRemove (char* filename, bool use_f ilename=f alse) ; 
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virtual i: 
virtual i: 



DBRemove 
GetRecon 



w 



MRecordfc dramas k) , 
t(); 



DICOMData, 
virtual - . 

protected: 

char 

DICOMRecc: t 

virtual v 1 
virtual b. I 

virtual i* *■ 



}MDat abase ( ) ; 



db_Directory[MAX_PATH+l) ; 
db_Mos tRecentRecord ; 

StartSearch(DICOMRecord& dr_mask, const BYTE how); 
DBAddDirectoryContents (char* directory, bool copy_files, 

bool include_subdirectories=true) ; 
DBRemoveDirectoryContents (char* directory, 

bool use_f ilenames, bool include_subdirectories=true) , 



private : 






void 


f 


M_DisplayRecords) (Array<DICOMRecord> 


bool 


d! 


. TisplayRecordsFlag; 


char 


tf> 


..PecFile [MAX_PATH+1] ; 


char 


dr 


.Inf File [MAX_PATH+1] ; 


int 


di 


^.Records ; 


FILE* 


at . 


pRecFile; 


bool 


£<■• 


1 : alizeDBHeader (bool is_loading) ; 



}; 



tendif // ! de ; ired (_DICOM_DATABASE_H_INCLUDED_) 
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# include "di 
# include "dq 



1 1 1 1 1 1 1 1 / / / 1 1 u 

: interface fo 



m 



1 1 v I I / 1 1 1 1 1 1 1 1 1 1 1 1 ill i I 1 it t 1 1 I 1 1 u 

DICOMView class. 



//////////// 
// DICOMView. 
// 

mil in in/ 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



#if "defined ~ICOMVIEW_H_INCLUDED_) 
#define _DIC'V T 7IEW_H_INCLUDED_ 

# include "di~ m.hpp" 

//#if _MSC_VEK > 1000 
//tpragma on:-* 

//#endif // _"SC_VER > 1000 



class DICOMV 
{ 

public : 

virtual ■ 
void 
virtual 
void 
void 
virtual 
virtual \ 
DICOMVie- 



id 



id 



)- ol 
) ; 



Load (const char* pText)=0; 
Load(VR *vr) ; 
Load(DICOMObject& DO); 
ReportTime ( ) ; 
AttachRTC (RTC* rtc) ; 
LoadFile (char* filename); 
IgnoreVR(VR* vr) { return false; } 



virtual - DICOMView ( ) ; 



protected : 

char m_SequenceMark; 

int m_SequenceLevel ; 

int m_numElements; 

Ll RTC* m_AttachedRTC; 

Zl void MarkSequence (bool start); 



/.Mil i it it in ■ / /// // 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

V Interface for the DICOMViewLog class. 

m 

IJ II 1 1 1 1 1 1 1 1 ! N 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
class DICOMV i v/Log : public DICOMView 

gtibl ic : 

s=l void I.- -ad (const char* pText ); 

void L ad(DICOMObject& DO) { DICOMView: : Load (DO) ; }; 
*J bool CreateDVL(char* filename, RTC* rtc=NULL) ; 

f=- 5 DICOMVievI og ( ) ; 

virtual - HICOMViewLog ( ) ; 
protected: 

char* r Filename; 
FILE* r .pFile; 

bool l:;noreVR(VR* vr); 

bool Ref reshText (char* tbuffer, long max_length) ; 

}; 

#endif // ! de - ined (_DICOMVIEW_H_INCLUDED_) 
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// dmodules.: interface f or DModule class 

// 

////////////. 1 1 1 1 1 1 1 1 1 1 1 1 1 



DModule class . 

it 1 1 1 1 1 n i / 1 1 1 m 1 1 1 1 1 i 1 1 / 1 1 1 1 1 mKrt 



#if ! de fined ' \FX_DMODULES_H 3F70C2E3_CF5D_11D3_9760_00105A21774F INCLUDED.) 

#def ine AFX_: :*ODULES_H 3F70C2E3_CF5D_11D3_9760_00105A21774F INCLUDED. 

#if _MSC_VEF. ■ 1000 
#pragma once 

#endif // _K.' ' „VER > 1000 

# include M di m.hpp" 

class DModul- 
{ 

protected: 

virtual v* id ClearAl 1 Parameters () =0 ; 

virtual i ~ol HasData ( ) =0 ; 

virtual 1 ol ReadDO (DICOMObject &dob, char* f name=NULL) =0 ,* 

virtual hoi WriteDO (DICOMObject &dob)=0; 

DModule C {}; 
virtual -:<Module() {}; 
public: 

virtual h iol Wri teFile (char* filename, PDU_Service* pPDU=NULL) ; 
virtual r- ol ReadFile (char* filename, bool preview=f alse, 

PDU_Service* pPDU=NULL) ; 

}; 



class DModul* 

pSjjblic : 

-J j void 
ZZ bool 
U* bool 
■JA bool 

bool 
pxbtected : 

char 
2^ UINT16 
ill UINT16 

int 

Point2D 
F= DICOMObj^ 
fl PDU_Serv: 



nj 



\.ImageSeries : DModule 



Get Pixel Spacing (doubled dx ( doubleSt dy) ; 
ReadDO (DICOMObject &dob, char* fname=NULL) ; 
WriteDO (DICOMObject &dob) ; 

ReadFile (char* filename, bool preview= false, 

PDU_Service* pPDU=NULL) ; 
Wri teFile {char* filename); 

m_Filename[MAX_PATH+l] ; 

m_SamplesPerPixel , m_Width, m_Height; 

m_BitsAl located, m_BitsStored, m_HighBit; 

m_NumberOf Frames ; 

m_ Pixel Spacing ; 

m_D0B; 

m_PDU; 



void ClearAllParameters () ; 

virtual ix-ol ReadPixels (VR * vr, DICOMRecord& dr)=0; 
virtual tmol Wri tePixels (VR * vr)=0; 



}; 



DModule_InageSeries ( ) { ClearAllParameters ( ) ; } ; 
virtual :JModule_ImageSeries ( ) { } ; 



#endif // ! dp- 1 ined ( AFX_DMODULES_H 3F70C2E3_CF5D_11D3_9760_00105A21774F INCLUDED^) 
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// dar.h: i: 
// 

///// '/////. 
iinclude "st 
iinclude "c^* 
#if Idefine^ 
#define DQR_ : 

class DQRTas 
{ 

public : 

BYTE 

const st- 

UINT 

DICOMRei* 



/face for the 




///////////// 
•iceclass .h" 

pes.h" // Added by ClassView 

n , R_H_INCLUDED_) 

INCLUDED 



query/ retrieve class. 

y l 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



IC BYTE 



DateTime. -anient 



m_Type ; 

Tasklnvalid, TaskGet, TaskMove; 

m_nAE , m_nAEdes t ; 

m_DRdata; 

m_ExecTime Segment ; 



void 
void 
void 

void 
bool 
bool 
bool 
bool 
bool 

bool 

bool 
CI int 
Zl UINT 

DQRTask { 
01 virtual 
private : 

int 
^■j UINT 

static 



ScheduleTask(DateTime& start, DateTimefc end); 
CountExecution ( ) ; 
GrantExecution ( ) 

{ if (m_nExec<l) nt_nExec++; }; 
SetExec(UINT e) { nunExec = min(e,5); ); 
CanExecuteLater ( ) ; 
CanExecuteNow ( ) ; 
CanExecute ( ) ; 

SerializeTask(FILE *fp, bool is_loading) ; 
SetTask(BYTE type, UINT nAE, DICOMRecordfc drdata, 

UINT nAEdest=0 , int nExec=l) ; 
SetTask (BYTE type, UINT nAE, DICOMDataObjectfc ddo, 

UINT nAEdest=0, int nExec=l) ; 
FormatScheduleString(char *str, int max_len) ; 
GetExecO { return m_nExec; } ; 

GetlDO { return m_ID; }; 



DQRTask ( ) ; 



::it 



m_nExec ; 
m_ID; 

m_IDcount ; 



void 



SetUniqueID{ ) ; 



olass DQR 

rmblic : 

1 s J void 
void 
void 
void 
void 
void 
void 

bool 
bool 
bool 
bool 
bool 
bool 
bool 
bool 
bool 
bool 
bool 
bool 
b-sol 
bool 
bool 
bool 
bool 



bjol 

char* 

EYTE 

BYTE 

int 



T noveTaskID {UINT taskID) ; 
idTask(DQRTask& t) ; 

■ mcelO { m_CancelEnabled=true; 

. ear Found ( ) { m__AD0B . RemoveAll { ) ; } 
► •tPriority (BYTE priority); 

tRoot (BYTE root) ; 

*:LastMessageID(UINT16 id) { 



); 



m_LastMessageID = id; 
m_Canc e 1 Enabl ed= f a 1 s e ; 
char* loc) ; 



}; 



"■KtAELocation (UINT aeindex, 

T ;;ecuteNextTask( ) ; 
"rOnRootLevel ( ) ; 

. -OnBottomLevel ( ) ; 

-hoi) ; 
' ; nd() ; 

"mdRoot (DICOMRecordfic dr) ; 

; ndNextLevel (UINT dob_index) ; 

1 ndPreviousLevel ( ) ; 
-iMUlNT dob_index, bool queue); 

' ve(UINT dob_index, char* ae„dest_title, bool queue); 
:.f?cuteTask (DQRTaskSt t) ; 
-*tTask(UINT tindex, DQRTaskfc t) ; 
1 eateQR (DICOMViewLog* pLog, DICOMDat abase* pDB) ; 
r.FoundRecord (DICOMRecord& d, UINT index); 
*:CurrentAEIndex (UINT ind) ; 
-tDQRCallBack(int ( * func) (void* a, UINT paraml=0, UINT par am2=0) , 
void* arg=NULL) 
return m_ControlCallback. SetCallBack (f unc , arg) ; }; 
rializeDQR (FILE* . fp, bool is_loading) ; 
• -*:CurrentAETitle ( ) ; 

, -Priority () { return m^Priority; }; 

r.Level ( ) { return nuRecord .GetQLevel ( ) ; }; 

^FoundCount ( ) { return iruADOB .GetSize () ; }; 
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UINT 

u:::t 

ElCOMRe- 
Get*:' 
A:.plica* 

DDRTask' 
EQR ( ) ; 
virtual 
private : 
bool 
bool 
BYTE 
UINT16 
UINT 

DICOMRec 

DICOMDat t 

Array<DI" 

Array<DC ; 

CICOMVi-- 

DICOMDa*. . 

CallBack 



. ACallbackFilte 
1 * eteFromLocalD: 
rLastMessagelD 
r.CurrentAEIndex { ) 
tTasksSize ( ) ; 
-i& 

rordO { 
nEntityList* 
tAEListPtr () ; 

;etTaskPtrFromID(UINT taskID) ; 



stepnum=0, UINT id=0) ; 
OMRecordfic dr) ; 

return nuLastMessagelD; 
{ return nuCurrentAEIndex; 



return m_Record; 



}; 



bject 

~MDataObject> 

: isk> 

■ase* 
- ject 



m_C anc e 1 Enabl ed ; 
m_TaskCanUpdate ; 
m_Root, m_Priority; 
m_Las tMes s age I D ; 

m_CurrentAEIndex, m_CurrentTaskIndex; 

m_Record , m_RecordRoot ; 

m_DOB ; 

m_ADOB ; 

m_Tasks; 

m_pLog; 

m_pDBase; 

m_ControlCallback; 



>; 



void 
void 



LockTaskThread ( ) ; 
UnLockTaskThread ( ) ; 



#endif // ! d-t ined (DQR_H_INCLUDED_) 



-J.} 
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C :pyrig (C) 2000, LouisiBHa State University, School of Med? 



* This Di; II object library was developed from the University of California, 

* r-ivis U ::c DICOM Network Transport Libraries, in full compliance 

* v: : th th- free access licence and copyright note below. The DICOM object 

* library , owever contains conceptual deviations from the UCDMC library, 

* as well -is important bug and performance fixes, and CANNOT be 

* uced/cor i ed/distributed/modif ied without our permission. 
* 

* Technical Contact: oleg@bit.csc.lsu.edu 
* 

+ + + **- + ********************************* J 

* 

* Sorted / ^ixed, Fast-Access Array. 
* 

**** k -k. -k -k -k -k * ^ *************************** 

template class KEYTYPE , class DATATYPE> 

class FixT .iArray 
( 

public : 

UINT Arrays ize ; 

UINT Top; 
KEYTVPE *KeyTable; 
DATATYPE *DataTable; 

Fixt- -iArray (UINT, BOOL) ; 
-Fix^dArray { ) ; 
BOOL Sort { ) ; 

O DATATYPE & Add (KEYTYPE &, DATATYPE &) ; 

DATATYPE & Add ( DATATYPE & ) ; 
INT IndexOf (KEYTYPE &) ; 

DATATYPE & Get (INT Index) 

return ( Da taTable [Index] ) ; }; 
BOOL RemoveA t ( INT ) ; 

~J DATATYPE & operator [] (INT Index) 

• 1% ; return (Get ( Index) ) ; } ; 

UINT GetSizeO 
^ \ return ( Top ) ; } ; 

Rj UINT GetAllocationSizet) 

{ return ( ArraySize ) ; } ; 

u ); 

tfejipl-ite '-lass KEYTYPE, class DATATYPE> 

Class FixclArrayElement 

H# { 

W public: 

^\ KEYTYPE Key; 

y DAT AT Y P E Da t a ; 

Q UINT operator > (FixedArrayElement &FAE) 

; return ( Key > FAE.Key ); } ; 
UINT operator < (FixedArrayElement &FAE) 

{ return ( Key < FAE.Key ); }; 
UINT operator == (FixedArrayElement &FAE) 

{ return ( Key == FAE.Key ); }; 

} ; 

template <class KEYTYPE, class DATATYPE> 

FixedArray<KEYTYPE, DATATYPE > : : FixedArray ( 

UINT aSize, 
F^OL "aeKeys) 

ArraySir.'- = aSize; 
Top = 0- 

if { Us* "**ys ) KeyTable = new KEYTYPE [ aSize ] ; 

else KeyTable = NULL; 

r.itaTabi'- 1 = new DATATYPE [ aSize ]; 

^ 



— * 



template --class KEYTYPE, class DATATYPE> 

FixedAri ay<KEYTYPE, DATATYPE > :: -FixedArray () 

{ 

if ( KeyTable ) 

delate KeyTable; 
if ( Da-aTable ) 

d e 1 e Da taTabl e ; 



tempi -ite -lass KEYTYPE, ^^fcs DATATYPE> 

BOOL Fix - iArray<KEYTYPE, fl^R l YPE> :: Sort() 

r:.;TT Index; 

F'xedA:. .'/Element < KEYTYPE, DATATYPE > FAE; 
rvieu" v ixedArrayElement<KEYTYPE, DATATYPE > > PQFAE; 

it ( ! "('/Table ) 

re**-:in ( FALSE ); // Not a sortable array 

Index - ■:; 

while ' Tndex < Top ) 
{ 

FA3.\ey = KeyTable [ Index ]; 
FAF.^ata = DataTable [ Index ]; 
PQFAK. Push (FAE) ; 
+ + 1 : ; r i e x ; 
} 

Index = 0; 

while f Index < Top ) 
{ 

FAF PQFAE . Pop {) ; 

KeyMble [ Index ] = FAE. Key; 

Dat lTdble [ Index ] = FAE. Data ; 

} 

return < TRUE ) ; 
} 

template class KEYTYPE, class DATATYPE> 

DATATYPE \- FixedArray<KEYTYPE , DATATYPE> :: Add( 

p KEYTYPE &Key, 
.si D*\TATYPF fcData) 

y» if (Top ' Arrays ize) 

if KeyTable ) 

"~i KeyTable [ Top ] = Key; 

J] if ' DataTable ) 

Zl DataTable [ Top ] = Data; 

^r" -*- + T 'i 1 ; 

ftj > 

^" return ' DataTable [ Top-1 ] ) ; 

template • rlass KEYTYPE, class DATATYPE> 

ijgj'A'IYPE v FixedArray<KEYTYPE , DATATYPE> :: Add( 

\U DATATYPE &Data) 

H { 

? j if { Tr:r < ArraySize ) 

p if < DataTable ) 

DataTable [ Top 3 = Data; 

+ +T p; 
} 

r^tun: ' DataTable [ Top-1 ] ) ; 
} 

template -lass KEYTYPE, class DATATYPE> 

INT Fix lArray<KEYTYPE , DATATYPE > :: IndexOf ( 

KEYTYPE &Key) 
{ 

I XT Index = (Top / 2) ; 

i:it .:hif t = (Top / 2 - 1) ; 

if -Table) 

ret-in ( -1 ) ; 

if ( ! i"P ) 

return ( -1 ) ; 

while i KeyTable [ Index ] != Key ) 

{ 

if ' KeyTable [ Index 3 > Key ) 
Index -= Shift; 

e 1 *■ ■ 

Index += Shift ; 
if Tndex >= (INT) Top ) 
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Index = Top - ^^Jpreak; }; 

i t Index <= 0 ) 

Index = 0; brea 
i: :*hift = = 0 ) 

break; } 
r..:-*. = Shift / 2; 

(V- .-Table [ Index ] == Key ) 
r^* n ( Index ) ; 

( K --Table [ Index ] < Key ) 

r 

v/hi.f- { Index < (INT) Top ) 

r 

If ( KeyTable [ Index ] == Key ) 

return { Index ) ; 
if ( KeyTable [ Index ] > Key ) 

return { -1 ) ; 
+ -•-Index; 

rc!-;rn ( -1 ) ; 
} 



e^e 



while { Index >= 0 ) 
t 

if ( KeyTable [ Index ] ~ Key ) 

return { Index ) ; 
if ( KeyTable [ Index ] < Key ) 

return ( -1 ) ; 
■ -Index; 



g return ( -1 ) 

US return : -1 ) ; 



template -class KEYTYPE, class DATATYPE> 

BOOL Fix-riArray<KEYTYPE, DATATYPE> :: RemoveAt ( 

INT Index) 

f!j if ( TnH^x >= Top ) 
1 return { FALSE ) ; 

L== if { -Viable ) 
{ 

y if ' (Index +1) != Top ) 

HI r.temcpy{ ( void* ) &DataTable [ Index ), 

^ (void*)&DataTable [ Index + 1], 

2f sizeof ( DATATYPE ) * Top - Index - 1 

if { Iv * 'Table ) 
~~ { 

if ' (Index +1) != Top ) 

memcpy( ( void* ) &KeyTable [ Index ], 

(void* ) &KeyTable [ Index + 1], 
sizeof ( KEYTYPE ) * Top - Index - 1) 

} 

- -Top ; 

return ' TRUE ) ; 
} 
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~ ************ ******************************** * J^k* ******** 




* c t yr, (C) 2000, Louis^PKi State University, School of Medr^Bfe 



1 is ; : M object library was developed from the University of California, 
I : :-!C DICOM Network Transport Libraries, in full compliance 

free access licence and copyright note below. The DICOM object 
-.owever contains conceptual deviations from the UCDMC library, 
-is important bug and performance fixes, and CANNOT be 
u. -d ' ■*■ ■-. ied/distributed/modif ied without our permission. 



I : bra 



* z :hn: -« , Contact: oleg@bi t . esc . lsu . edu 
* 

***-*? * A A a ♦ * *AA— A*-A***********************************************************y 
y * .4. 4 , 4 A A A * ■*■ < + + + + ************************************************* 

* 

* PC -ieue "nit Class (binary tree - based) 
* 

* hi: si th~ w :- C+ + Compatible / Templates Required 
* 

* 

* 

* v inci "pqueue.h" 
* 

* L ■ 'ueue. ■ iassType> VarName; 
* 

* 

* nc^es: 
* 

*_ Any Ci^.-T used as the datatype must support the operators < > = 

=*'"§ 

** + * A * ■*■ ■* * * * + A * A- A-*************************************************/ 

yl 

template -class DATATYPE > class PQueue : public Array<DATATYPE> 

% S DATATYPE dt; 

Ji r'lblir; 

T% DATATYPE & Push (DATATYPE fie) ; 

J # DATATYPE & Pop ( ) ; 

>0J 

template ---class DATATYPE > class PQueueOfPtr : public Array<DATATYPE> 
{H 

£\ PYTATYPH: dt; 
Z\ r-ibli-.-: 

MJ DATATYPE & Push (DATATYPE &) ; 

S.\ DATATYPE & Pop(); 

* A A AAA *• ■* * - *-A + "******************************************************* 

"** 

* Template P-Queue Class implementation 
* 

* * * A ' A AA A l -* + A + A A******************************************************/ 

template "class DATATYPE> 

DATATYPE * PQueue<DATATYPE> :: Push (DATATYPE & Value) 

{ 

ur.siqnr-'l int Index; 
/ ' /v.v.r : :med int Base; 
DYTATY7F tdt ; 

A; ray- "_ATATYPE> :: Add (Value); 

Index Array <DATATYPE> : :GetSize () ; 

- -Zmh x, 
vhi i*-* ' ; n'Jex ) 
{ 

if ' Array<DATATYPE> : :Get(Index) < Array<DATATYPE> : :Get( (Index-l)»l) ) 
\dt = Array<DATATYPE> :: Get (Index) , • 

Ar r a y < DATAT Y PE > : : Get (Index) = Array<DATATYPE> : :Get ( (Index-1) »1) ; 
Array<DATATYPE>: :Get( (Index-l)»l) = tdt; 
Index = ( Index- 1) » 1; 

p. ^ « 

'..reak; 
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tempi -;te 
DATA1 7 n F 



Value ) ; 



class DATATYPE> 
?Queue<DATATYPE> 



PopO 



E'ATATVr:-- cdt; 

/ /r-.'-YTYPE tdt 2; 

/ ' 'un ' med int Index; 

u:;r.i"u> i int sorted; 

v:,rAci-f ; int Pick; 

uri^i'Ti >-> j int Childl; 

unsigr f - i int Child2; 

uisigr/.'-i int Hole; 

iff ! Ar t -^y< DATATYPE > : :GetSize() ) 
r-t irn { dt ); // error 

clc. = .hi . ay<DATATYPE> :: Get ( 0 ); 

i Z 'Arro /-'DATATYPE> :: GetSizeO == 1) 



A v : -r/<DATATYPE> 
r* *" lrn { dt ) ; 



RemoveAt ( 0 ) ; 



- a 



r-lt \: ray<DATATYPE> :: Get ( Array<DATATYPE> :: GetSizeO - 1) ; 
; vray : /.TATYPE> :: RemoveAt ( Array<DATATYPE> :: GetSizeO - 1) ; 

H"Ie ■ ' ; 
ortfcv - 0; 
viiile ( ! r-orted) 
{ 

Chi 'dl = 2 * Hole + 1; 
Chi >\2 =2 * Hole + 2; 

if'"hild2 >= Array<DATATYPE> :: GetSizeO) 



.f ( Childl >= Array<DATATYPE> 



GetSizeO ) 



{ 

Array<DATATYPE> 
return { dt ) ; 
} 

i f ( Arr ay < DATATYPE > : 

{ 

Array<DATATYPE> 
Array<DATATYPE> 
re turn (dt) ; 

} 

f\rray<DATATYPE> : 
return ( dt ) ; 
} 

Pi-*k = Childl; 
i t ( Array<DATATYPE> 

Pick = Child2; 
i *■ i Array<DATATYPE> 

Array<DATATYPE> : 
Hole = Pick; 



Get (Hole) = tdt; 



Get ( Childl ) < tdt) 



Get (Hole) = Ar r ay < DATATYPE > 
Get (Childl) = tdt; 



Get (Childl) ; 



Get (Hole) = tdt; 

: Get ( Childl ) > Array<DATATYPE> :: Get(Child2)) 
: Get ( Pick ) < tdt) 

Get ( Hole) = Array<DATATYPE> :: Get ( Pick ); 



Array<DATATYPE> 
return ( dt ) ; 



Get (Hole) = tdt; 



return ' dt ) ; 

template class DATATYPE > 

DATATYPE v PQueueOf Ptr<DATATYPE> 

i int Index; 
//'u;:l^ned int Base; 
LATATYPK tdt; 

Array I ATATYPE> :: Add (Value); 

I ndex - A r r a y < D AT ATY P E > : : Ge tS i ze () ; 

vhil** I ndex) 



Push (DATATYPE fcValue ) 



* Ar ray < DATAT YP E > : :Get(Index) ) < ( *Array<DATATYPE> : :Get( (Index-l)»l) ) ) 
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-de - Array<DATA'^^B :: Get (Index); 

,rray<DATATYPE>: Index) = Array<DATATYPE> : :Get ( (InW-1) »1) ; 

-\rray< DATATY PE> : :Get( ( Index- 1) >>1) = tdt; 
Tndex = ( Index- 1) » 1; 



break ; 
Value ) 



tempi .-;t>.- class DATATYPE > 

DATATYPE < PQueueOf Ptr<DATATYPE> :: Pop ( ) 



L>t\ iftl 



tdt; 

./»>.?YPE tdt2; 



; / ricmed int Index; 
urisicn.' H int sorted; 
ur.sirrnort int Pick; 
unsicrr."! int Childl; 
\::::zin:it- [ int Child2; 
i:::rirfr-f'i int Hole; 

if { !A> : :.y<DATATYPE>: :GetSize() ) 
'^'.rn ( dt ); // error 

ci^ - ;> : ay<DATATYPE> :: Get ( 0 ); 

: t (Av? <r-:DATATYPE> :: GetSizeO == 1) 

Ai r:-iy<DATATYPE> :: RemoveAt ( 0 ); 

: -;rn ( dt ) ; 

til - ; ray<DATATYPE> :: Get ( Array<DATATYPE> :: GetSizeO - D ; 
Array- :v/TATYPE> :: RemoveAt ( Array<DATATYPE> :: GetSizeO - 1) ; 

H- >>: - 
rr.rin'. - 0; 
v/hile ! sorted) 
r 

Ciii idl = 2 * Hole + 1; 
r'hi Id2 = 2 * Hole + 2; 

: ; : ; 1 hild2 >= Ar r ay < DATAT YPE> :: GetSizeO) 

i£ . Childl >= Array<DATATYPE> :: GetSizeO) 

{ 

Array<DATATYPE> :: Get(Hole) = tdt; 

return ( dt ) ; 

i f ( ( Array <DATATYPE> :: Get ( Childl )) < (*tdt) ) 

{ 

Array<DATATYPE> :: Get (Hole) = Array <DATATYPE> :: Get (Childl); 
Array<DATATYPE> :: Get(Childl) = tdt; 
re turn (dt) ; 
} 

Array<DATATYPE> :: Get (Hole) - tdt; 

return ( dt ) ; 

V'i i*. J = Childl; 

it / { * Ar r ay < DATATY PE> :: Get ( Childl )) > (* Array <DATATYPE> :: Get (Child2 ) ) ) 

Pick = Child2; 
if ( * Arr ay < DATATY PE> :: Get ( Pick )) < (*tdt)) 

r 

A r r a y < DAT AT Y P E > :: Get ( Hole) = Ar r ay< DATATY PE > :: Get ( Pick ); 

Hole = Pick; 
i 

i 

A r r a y < DATATY PE > :: Get(Hole) = tdt; 

■-eturn ( dt ) ; 
I 

return - dt ) ; 
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// s-^'i ■■ . isz.h: interface 
// 

////. //'//////////// 
#if ! i-fAv ' '„SERVICE_CLASS_H_INCLUDED_) 
#def: r - _. r . 7ICE_CLASS_H_INCLUDED. 

#inc^ \ -rorrr/iew . h" 



•.the ServiceClass class. 
f t 1 1 1 1 m 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 1 i^Nri 



clasr ;'t.:*-; -"Class 
{ 

publi ■: 



C" 


:ir* 


. * atic 


BYTE 


PatientRoot; 


C 


N ns *~ 


-*:atic 


BYTE 


Study Root ; 


c 




. * atic 


BYTE 


PatientStudyRoot; 


c 


.ns? *" 


.'atic 


BYTE 


Norma 1 Pri or i ty ; 


c 


nsl 


- ,t '3tiC 


BYTE 


HicrhPriori tv; 


c ^ n s V- 


atic 


BYTE 


LowPriority; 


const. 


rr atic 


UINT16 


CEchoReq; 


cons* - 


;-r.a tic 


UINT16 


CEchoRsp; 


c ' 




.''atic 


UINT16 


CFindReq; 


c 




.-r atic 


UINT16 


CFindRsp; 


r 




. * atic 


UINT16 


CGetReq; 


r 


IiS *" 


. -atic 


UINT16 


CGetRsp; 


C 




atic 


UINT16 


CMoveReq; 


c- 


n s + 


atic 


UINT16 


CMoveRsp ; 


C : 


»nn t 


. ; * atic 


UINT16 


CStoreReq; 


C 


IlC*" 


. ■ a t i c 


UINT16 


CS tor eRsp; 


c 


net 


atic 


UINT16 


CCancelReq; 




nr: 


.-'.atic 


UINT16 


CUnknownReq ; 


_^ c c 


ns** 


r r atic 


UINT16 


DataPresent; 


i-i c 


ns* 


.-*-a tic 


UINT16 


DataAbsent ; 







. - * atic 


UINT16 


StatusSuccess ; 




c 


>nsr 


' atic 


UINT16 


StatusPending; 




c: 




: "atic 


UINT16 


Status P endi ngOp t i ona 1 Keys ; 




c 


:nct 


. t atic 


UINT16 


StatusCancelled; 




C 




r-atic 


UINT16 


StatusOutOf Resources ; 




c 


: n s 


r ,f atic 


UINT16 


StatusCannotMatch; 




r 




.■'■atic 


UINT16 


S ta tu s Cannot Per formSuboperati on 




c 




; atic 


UINT16 


StatusDestinationUnknown; 


s 


c 


msl: 


;■ r atic 


UINT16 


StatusDoesNotMatchSOP; 




I. 




. . ' a t i v 


UINT16 


StatusFailedSubOperation; 




c 


•net 


rMtic 


UINT16 


StatusElementsDiscarded; 


□ 


c 


ji ip f 


. ,f atic 


UINT16 


StatusDataDoesNotMatchSOP; 


c 




r f a t i c 


UINT16 


StatusUnableToProcess ; 



%j Smiv ; .-f vlass {DICOMViewLogSc dvl , DICOMDatabasefc dtb) 

— l^g (dvl ) , m_DBase (dtb) { } ; // parameters are passed by reference ! 
™f rvi -f^ lass (DICOMViewLogSc dvl, DICOMDatabasefc dtb, CallBackObject& cbo) 
kJ : og (dvl ) , m_DBase (dtb) , m_ServiceCallback(cbo) { } ; 

virr-i-ii -ServiceClass ( ) {}; 

protected : 

D 1 C C ; r: L - wLog& m_Log ; 

EI"^i:rarabase& m_DBase; 

CaJ IFa -kObject m_ServiceCallback; 

honl Receive (PDU_Service &PDU, DICOMCommandObject *DCO, 
DICOMDataObject *DDO, const char* service) ; 

h~ol .-end(PDU_Service &PDU, DICOMCommandObject *DCO, 

DICOMDataObject *DDO, const char* service) ; 
CheckStatus (DICOMCommandObject *DCO) ; 

>; 



clasp ;;cr:-- *- : public ServiceClass 
{ 

publ i r : 

r-jel CEcho(UINT ae_index) ; 

} CFind( UINT ae_index, DICOMDataObjectfic ddo_mask, 

Array <DlCOMDataObject> & ddo_found, 
BYTE root, UINT16 Pr i or ity=Normal Priority) ; 
J-v-i ':Get(UlNT ae_index, DICOMDataObjectfc ddo_mask, 

BYTE root, UINT16 Priority=NormalPriority) ; 
y \ "Mcve(UINT ae_index, DICOMDataObjectfie ddo_mask, char* destAET, 

BYTE root, UINT16 Priority=NormalPriority) ; 
y- :1 73*;cre(PDU_Service &PDU, DICOMDataObject& DDO, 



1 



II:t16 Priority=: 
'i::Tl6 originato 
'DI^OMViewLogSc d 

01 VOMViewLogfc dvl 
•sr;;*ser () ; 



na^: 



^lPriority, char* originatorAETitl^Bi njL ' 

ageID=0x0000) ; 
ICOMDatabasefic dtb) ; 
DICOMDat abas e& dtb, CallBackObject& cbo) ; 



pnvr^ 

i : 

b 

1. - _ 



h . ] 

t 

art 



qlisr. 

P$bll 



"-•I b- 

J1 b. 
« b^ 

Sf" 

p a v : 



■o i 



Vanrel If Needed (PDU_Service& PDU, UINT16 mID) ; 
"etAE (ApplicationEntityfc ae ( UINT ae_index) ; 
CCancel ( PDU_Service& PDU, UINT16 mid) ; 
CEcho (ApplicationEntity& AE) ; 
'JEcho (PDU_Service& PDU) ; 

:Find (ApplicationEntity &AE, DICOMDataObject& ddo_mask, 
Array <DICOMDataObject> & ddo_found, 
BYTE root, UINT16 Priori ty=Normal Priority) ; 
CFind (PDU_Service &PDU, DICOMDataObjectfc DDO, 
chai : *■ SOP, Array <DICOMDataObject> & found_list, 
UINT 16 Pr i or ity=Normal Priority) ; 

CG»t (ApplicationEntity &AE, DICOMDataObject& ddo_mask, 

BYTE root, UINT16 Priori ty=Normal Priority) ; 
CGef (PDU_Service &PDU, DICOMDataObjectfc DDO, 
-bar 1 SOP, UINT16 Pr i or ity=Normal Priority) ; 
CMcve (ApplicationEntity &AE, DICOMDataObjectfc ddo_mask, 

char* destAET, BYTE root, UINT16 Pr i or ity=Normal Priority) ; 
CMove(PDU_Service &PDU, DICOMDataObjectfc DDO, 
^har 4 SOP, char* destAET, UINT16 Pr i or ity=Normal Priority) ; 
Ver i f yCommandAndID (DICOMCommandObj ect& DCO , 
UINT16 Command, UINT16 MessagelD); 

ReceiveAndVerify (PDU_Service &PDU, DICOMCommandObj ect &DCO, 
DICOMDataObject &DDO, UINT16 Command, 
'JINT16 MessagelD, const char* service) ; 

--ider : public ServiceClass 

'!■' -ho(PDU_Service& PDU, DICOMCommandObj ect& DCO) ; 

r -incK PDU_Service &PDU, DICOMCommandObj ect &DCO, UINT16* cancelledID) ; 
' -^t (PDU_Service &PDU, DICOMCommandObj ect &DCO, UINT16* cancelledID); 

:ve (PDU_Service &PDU , DICOMCommandObj ect &DCO, UINT16* cancelledID); 
f, .;fore ( PDU_Service &PDU, DICOMCommandObj ect &DCO) ; 

TH^nei fyAndProcess (PDU_Service &PDU, DICOMCommandObj ect& DCO, UINT16* cancelledID) 



"Prr^n ler (DICOMViewLogfie dvl , DICOMDat abas e& dtb); 

Pi . .uer (DicOMViewLogSc dvl , DICOMDat abas e& dtb, CallBackObjectfc cbo); 

rt'M, -SC Provider ( ) ; 



nt ainsData(DICOMCommandObject& DCO) ; 



fehdi 



ief ined(_SERVICE_CLASS_H_INCLUDED_) 
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* ^J^fct* ******************************** *^^fe^* i 

LsJJ& State University, School of MedSiK 



*-4-*-t-********* *J^f* ******************************** *^^±* ******** 

2000, Louis 



* bject library was developed from the University of California, 

* ; DICOM Network Transport Libraries, in full compliance 

* froe access licence and copyright note below. The DICOM object 

* rn ■ - n^'.vever contains conceptual deviations from the UCDMC library, 

* r *> pis important bug and performance fixes, and CANNOT be 

* -.1 : i ed, dis tributed/modif ied without our permission. 
* 

* i *'r::: Contact: oleg@bit.csc.lsu.edu 
* 

*** + * • *■ * * * *~**^^************************************************************^ 

#ifnc- * ._"~IL_H_INCLUDED_ 

* r ' t-.~ _/;til_h_included_ 



/* Uf functions */ 

UINT -.ini-jO; 

UINT: ; uniq3 2 () ; 

UINTi' iniql6() ; 

UINTI J .miqS{); 

UINT: uniq8odd() ; 

UINTa-: uniql6odd() ; 

inlir- -----i ZeroMem { BYTE* mem, UINT Count) { memset ( (void *) mem, 0, Count); }; 

inli:^ -* 11 ZeroMem( char* mem, UINT Count) { memset((void *) mem, 0, Count); }; 

void Fl ip2DBuf f erY ( BYTE* buf, UINT32 buf_size, 

UINT32 nrows) ; 

bool CreateAndSetCurrentDirectory (char *dir) ; 

topi RemoveDlCOMSubstring (char* str, char * sub ) ; 

fcbM ^ddDICOMSubstring (char* str, char * sub ) ; 

hjfbl SerializeString (FILE* fp, char* str, bool is_loading) ; 

bSbl Serializebool (FILE* fp, bool& x, bool is_loading) ; 

Bool :-erializeBOOL (FILE* fp, B00L& x, bool is_loading) ; 

hhpl Ser ia lizeBYTE (FILE* fp, BYTE& x, bool is_loading) ; 

hopl ^erializelnteger (FILE* fp, int& x, bool is_loading) ; 

bSbl SerializeUINT(FILE* fp, UINT& x, bool is_loading) ; 

bjybl Serial izeDouble (FILE* fp, doublefc x, bool is_loading) ; 

ifl&Lin^ I- I IsEmptyString (char* s) 

m 1 

Hi? if(s==NULL) return true; 

5 if (s[0]==0) return true; 

- return false; 

1 } ; 

S&i^ r - 1 I sUni que String (char* s) 



l ™ if (IsEmptyString (s) ) return false; 

Vj if (strchr(s, '*') || strchr (s , ' ? ' ) || 

strchr (s, ' \\ ') ) return false; 
'zz return true; 

inlii> i .1 isBlankString (char* s) 

{ 

if (IsEmptyString (s) ) return true; 
for (UINT i=0; i<strlen(s); i++) 

{ 

if(s[i]!=' ') return false; 

} 

return true; 

}; 

BOOL ByteCopy (BYTE *, BYTE *, UINT) ; 

char 4 GetShortFileName (char* fullpathname) ; 

char" 4 '5etDICOMSubstring(BYTE* str, UINT32 str_len, 

char* sub, UINT32 sub_len, int number =1) ; 
char' ;etDICOMSubstring(char* str, char* sub, UINT32 sub_len, 

int number=l) ; 
int FinHChar (char* str, char c) ; 

int FindCharReverse (char* str, char c) ; 

UINT ByteStrLength(BYTE *); 

long FileLength (char* filename); 



#end J f 
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I * * ■* *• • + + + ■* * * . *********** *^*|^r ******************************** **Afc* ********* 

* : r ;) 2000, Louis^^R State University, School of MedrHre 
* 

* ";r: bject library was developed based on University of California, 

* OICOM Network Transport Libraries, in full compliance 

* - ryright note below. This version however contains conceptual 

* ' ^rom the UCDMC library, as well as important bug and performance 

* nd cannot be used/copied/distributed without our permission 
* 

* ' - / r :-ntact: oleg@bit.csc.lsu.edu 
* 

* * * -* ► . i - • *^ . . • * ***********************************************************/ 

#ifn * ::_H_INCLUDED_ 
#def - ' r r SI^_H_INCLUDED_ 

/* V- r " - rented information 
* 

* Th:.: * : . contains the version number/Class that will be embedded not 

* on" ; : r. T.e executable, but in the default PDU Service transfer Class. 
* 

*/ 

* I M P LEMENTAT 1 0N_CLAS S_STRING "1.2.10008.1968" 
#ifd ' " ~: T :2 

* ♦ : ■ . ri:?LEMENTATION_VERSION_STRING "2 . 0_DCM_WIN32 " 
#els* 

#ifd< * :riz::xps 

* I MP Ij EM ENTAT I ON_VERS ION_STRING " 2 . 0_DCMLUMIPS " 

#els> 

#ifd* t , ,\RIf 

* - ; J T I ; PI) EMENTAT I ON_VERS I ON — STRING " 2 . 0_DCM_SL5 " 

ftf* I H PL EMENTAT I ON_VERS I ON_STRING " 2 . 0_DCM„MAC " 

$i?d< r :: r ;SSPARC 

ftp -i'-t i :> I MPL EMENTAT I ON_VERS I ON_ STRING "2 . 0_DCM_SUNOS ■ 

!. t : . n IPLEMENTATION_VERSION_STRING " 2 . 0_DCKL_OTHER " 

ftghd'.: 
tend- + 

#fthd-;f 

lend : f 

#hd^ r 
f_ ^ 

H=3 

lw 



1 



_) 2000, Louis^Wa State University, School of Medal 




* ;K object library was developed based on University of California, 

* . DICOM Network Transport Libraries, in full compliance 

* * . * ^nyright note below. This version however contains conceptual 

* : + nr from the UCDMC library, as well as important bug and performance 

* ♦-'.:>■. -md cannot be used/copied/distributed without our permission 
* 

* ':-~'r. r .' *-U "intact: oleg@bit.csc.lsu.edu 

* J r -1 ■ "dicom.hpp M 



I * * + - . + * + + ********************************************************* 

* Ar.pi ■ a^ion Context Class 
* 

* * * * t+ ^ - i * ± + ******************** 

Appl I r -\ - \ rvl'ont ext : : ApplicationContext ( ) 
{ 

: > • - '• ' . - 0x10; 
; , " dl - 0; 

} 

Appl : "h*- ; -:v"ont-ext ApplicationContext (UID &uid) 

{ 

*~ hit to = 0x10; 
F-c< — dl - 0; 
T =>r.rr 

7'ppii'* it ionContextName = uid; 

^§>1 icat i ■-nContext :: ApplicationContext (BYTE *name) 

ifl rnerrTypf* = 0x10; 
C\ 11 = 0; 

■Jjj A^r.. - ionContextName . Set (name) ; 

ft * . . 

AtJfol-*-!*: ri-Vont.ext :: -ApplicationContext { ) 

m 

c r:- '!!ino to de-allocate specifically 

f;. 

pa 

Vpid ApplicationContext :: Set(UID &uid) 
Mr Apni tionCont ex tName = uid; 

^id ApplicationContext :: Set (BYTE *name) 

Q 

*r;_' . • v ionContextName . Set (name) ; 

} 

BOOL AnuirationContext :: Write(Buffer &Link) 
{ 

it ! rutth) Size ( ) ; 
T in P. ■ ItemType; 
\\r>. • Rppervedl; 
\in-; - - Length; 

: ink . -'i i te ( (BYTE *) App 1 i ca t i onC ontex tName .GetBuffer () , Length); 

rpt^rr ( TRUE ) ; 

} 

B00I -T'T'iicar.ionContext :: Read(Buffer &Link) 
{ 

,<iz: r '. ItemType; 

i t/: 1 :. ; "-his->ReadDynamic (Link) ); 
- ' TRUE ) ; 

} 

BOOI -t i.: ir-at ionContext :: ReadDynamic (Buf f er &Link) 

{ 

T ■ - ~. < Re z e r ved 1 ; 
" i,:> Length; 

"ir : . : .id ( [BYTE *) Appl i cat ionContextName .GetBuffer () , Length); 
*-v ionContextName .GetBuffer {) [Length] = '\0'; 
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* .'_ on t ex tName . SeJ^^jgth (Length) ; 

>VE ) ; 



UIN7 . :i i^ionContext :: SizeO 

{ 

plica tionCont ex tName. Gets ize() ; 
.-• : zeof { BYTE) + sizeof (BYTE) + sizeof (UINT16) + Length ); 

} 

* 

* . Syntax Class 
* 

★ *+•*■ * ' * * * • <■ * ■*■ *■ • + **********************************^ / 

Abst \ Abstract Syntax ( ) 

{ 

*?x3 0; 
: v H - 0; 

} 

Abst* : /.tax Abs tract Syntax (UID fituid) 

{ 

* > - : -:y f * z 0x3 0 ; 
' : — U - 0; 

* -.^r- jv-n ; 

- -"SynraxName = uid; 

} 

Abst . " .Mx :: Abstract Syntax (BYTE *name) 



{ 



A x30; 
0; 



. ' SyntaxName . Set (name) ; 

2; 

§5t v i- ' tix :: -Abs tract Syntax ( ) 



^ina to de-allocate specifically 



vs£.d ractSyntax :: Set(UID &uid) 

HI Al \-* vfl"t SyntaxName = uid; 



vddci ractSyntax :: Set (BYTE *name) 

- : ■.. ■■*♦■ SyntaxName. Set (name) ; 



fci 



m 

B£jpL / ra -tSyntax :: Write (Buffer &Link) 

p ; + ' V iyjth) SizeO ; 
\ n !: • I *~ ^mType ; 
; r.f R^r-jervedl ; 
'..iKr: Length; 

1 :: > . V." i t e ( ( BYTE *) AbstractSyntaxName.GetBuf fer () , Length); 

i'.j-: . f*" ] ush ( ) ; 
♦ .:i r ' TRUE ) ; 

} 

BOOL Al ractSyntax : : Read (Buffer SeLink) 
( 

. v 1 - Tt^mType; 

' i -his->ReadDynamic (Link) ); 

} 

BOOI • • . r.i tSyntax :: ReadDynamic (Buf f er &Link) 

{ 

• Rvservedl; 
Length; 

; -id( (BYTE *) Abs tract SyntaxName .GetBuf f er ( ) , Length); 

\rr* . -i-tPyntaxName .GetBuf fer ( ) [Length] = '\0' ; 
r: * r-\ r SyntaxName . SetLength (Length) ; 

- r. < TFUE ) ; 

} 

UTNT .■• -ra-tSyntax :: Size() 

{ 

t*- . ^ s tract SyntaxName .GetSize ( ) ; 



2 



-izeof (BYTE) + sJ^gf<BYTE) + sizeof (UINT16) + Lengt: 



Trar:. 
{ 



} 

Trar;. 
{ 



Trar..- L 
{ 



} 

Tran. 
{ 

void 

gi 
Mi 

i 

m 



r . yntax 

* * ■*■ ********************************************************* f 



a;; 



Transfer Syntax ( ) 



5t 

£001 .- 
nj 



O 

BOOI 
{ 



:>x40; 
= 0; 



■•■"■ix Transf erSyntax(UID &uid) 

,t«? - Cx40; 

= Q; 

*: • r.ryritaxName = uid; 

.Mtr ax :: Trans ferSyntax (BYTE *name) 

: l r- - 0x40; 
>"U ^ 0; 
t; - ° ; 

+ i. ilyntaxName . Set (name) ; 

y.Mx :: -Transf er Syntax ( ) 

v i ina no de-allocate specifically 

; i^sfprSyntax :: Set (UID &uid) 

■: .rSynraxName = uid; 

: -nsferSyntax :: Set (BYTE *name) 
• * erSyntaxName . Set (name) ; 



ar;sf erS'yntax 



Write (Buff er &Link) 



; i^M Size ( ) ; 
It.^mType; 
Reservedl ; 
Length; 

:iiref(BYTE *) Transf erSyntaxName .GetBuffer () , Length) 

l'JGh( ) ; 
( TRUE ) ; 



ins! er Syntax 



Read (Buffer &Link) 



I t emType ; 
this ->ReadDynamic (Link) ); 



BOOL 
{ 



inslerSyntax :: ReadDynamic (Buf f er &Link) 

' It-^mType; 
L^ngth ; 

-kJ^BYTE *) Transf erSyntaxName. GetBuffer () , Length); 
^SyntaxName .GetBuffer () [Length] = '\0'; 
rSyntaxName . SetLength (Length) ; 

' TRUE ) ; 



uini 
{ 



. i :;r,r»r Syntax 



SizeO 



fransf erSyntaxName. GetSize{ ) ; 

■ i zeol (BYTE) + sizeof (BYTE) + sizeof (UINT16) + Length ); 



-* ******************************************************* 



3 



. i*:n Class 



# # 



* + ■**■■*• * ***»*+★********* ******************************** * * * / 

Imp! * :. :lass :: ImplementationClass ( ) 

{ 

- • • \<52; 

- -it ionName . Set ( ( BYTE* ) IMPLEMENTATION_CLASS — STRING ) ; 

} 

Impl . iv::'iass :: ImplementationClass (UID &uid) 

{ 



t ."-x52; 
- Hi - 0; 

■^r. f r ionName = uid; 

} 

Imp] . * ■■ it. :_ass : : ImplementationClass (BYTE *name) 
{ 

1 . - 0x52; 

i 'i " - r • 

t. ■ vn fa*- ionName. Set (name) ; 

} 

Impl -IT' : f irnClass :: -ImplementationClass ( ) 



{ 

}; 



K ' r. \ to de-allocate specifically 



voic: ': i. If-r^-ntationClass :: Set(UID &uid) 
{ 

. . * -> -'rii'.-i*. ionName = uid; 

m 

ill 

vBJd ~* ' ■ ier^ntationClass :: Set (BYTE *name) 



-nt-.at ionName . Set (name) , 



RpDL len^n tat ionC lass :: Write(Buffer &Link) 

i r .-..■*rjfh) Size ( ) ,- 
flj * : :■ ■ • I i~ omType ; 

r - * Knr-.ervedl ; 

H= - :i"WfBYTE *) Implement at ionName. GetBufferO , Length); 

~! 1 ■' ■ ' "RUE ) ; 

B&OI. . . wntationClass :: Read(Buffer &Link) 

fc- 

L] * T >" ' TtemType; 

t ,.. r , , t-his->ReadDynamic (Link) ); 

} 

BOOL ::x--i.^entationClass : : ReadDynamic (Buf f er &Link) 
{ 

*.-.:.!* Fe~ervedl; 
/.t ■ V-. Iiq th; 

- *- --i<1 ( ' BYTE *) Impl ementat ionName. GetBuf fer( ) , Length); 
: .I . > ionName. GetBuf fer( ) [Length] = '\0'; 
• 1 1 r a r. i onName . SetLength ( Length) ; 

TRTIE ) ; 

} 

UIN7 :. ' ; ii .tn^ntationClass :: Size() 
{ 

- Trpl ementat ionName .GetSize ( ) ; 

! .:izeoi (BYTE) + sizeof (BYTE) + sizeof (UINT16 ) + Length ); 



*■ v + > ++****************************************************** 



* - - ~r r. ion Class 
* 

* * * » ♦ - • * * * * + 4+ ^ *^ + **********************************************^ 

Imp: ^ . fvrsion :: Impl ementat ionVer si on ( ) 

{ 



4 



} 

Imp: 
{ 




' x55; 

• 0; 



' BYTE* ) IMPLEMENTATION,. VERSION_STRING ) ; 

is ion : : ImplementationVersion (UID &uid) 

:x55; 



} 

Impl 
{ 



} 
{ 

}; 

voir, 
{ 

} ; 

voio 
{ 

}C! 



\ - Mid; 

- i'-,r;Vf3rsion 

.T4 ^ 'Jx5 5; 
•-di - 0; 

r . ; : .-t (name) ; 

: Version 



ImplementationVersion (BYTE *name) 



-ImplementationVersion ( ) 



M-f de-allocate specifically 



* * \"-nt-.ationVersion 
n - lid; 

' L i errtontationVersion 
i; . ''f;t. f name) ; 

; *kp ^ntationVersion 



Set (UID &uid) 



Set (BYTE *name) 



Write (Buff er &Link) 



. Mr'.: :• Size { ) ; 
7 f emType ; 
F o:;ervedl ; 
I.'-Tigch ; 

* (k ( (BYTE *) Version. GetBuf f er ( ) , Length); 

\ish ( ) ; 

' ' 7FHE ) ; 



BOOT 



G 



:r ' ►■npntationVersion 



Read (Buffer &Link) 



!" ' ■ 'inType ; 

■ his->ReadDynamic (Link) ) ; 



p^rita t i onVers ion 



ReadDynamic (Buf f er fieLink) 



F vs^rvedl ; 
launch ; 

■id ' (BYTE *) Version. GetBuf fer( ) , Length); 
tBufferO [Length] = '\0 # ; 

:. L'^t Length (Length) ; 
. TPUE ) ; 



UIN1 
{ 



i^n^ntationVersion :: Size{) 

Version. GetSize () ; 
' sizeof ( BYTE ) + sizeof (BYTE) + sizeof (UINT16 ) + Length ); 



r ***************************************************** 



* * * •* 

Pre? 



■.r i*. ; Context 

► . + + * *-**********************************************************/ 
-.text :: PresentationContext ( ) 

.-r - 0x20; 
v-d! - 0; 

* -i* innContextID = uniq8odd() ; 

0; 
■- 1 

-4 . n 
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} 

Pre: 



} 

Prer 

{ 

} 

voir! 
{ 



xt 



# 



ionContext (Abstract Syntax &Abs , 
Trans ferSyntax &Tran) 



i:: - Aos; 

4>: H (Tran) ; 

x2 0; 
; 0 * 

- .ri'ontextlD = uniq8odd(); 

j: - 0; 

- 0; 
■14 - n ; 



»/ext :: -PresentationContext ( ) 
- :--r ^ at ionContext : : SetAbs tract Syntax ( Abstract Syntax &Abs) 

' IX Abs ; 



VOlCt 

{ 



-:-!^n**nt ionContext : : AddTransfer Syntax (Trans ferSyntax &Tran) 

h x . Add { Tran ) ; 



BOOI 
{ 



Si 
. f % 



: at ionContext : : Write ( Buffer &Link ) 

-.•t*-.> 5Hze(); 

r t -mType ; 
■ F'-'.>rvedl; 

T ^-KTth; 

f i - 3 3entationContextID; 

H«:-**rved2 ; 

F^pprved3 ; ■ " 

Fe.^erved4; 
r,:aA . V T ri te (Link) ; 
'■l-ash( ) ; 
'.Hex --- 0; 
' Indf:x < TrnSyntax.GetSize ( ) ) 

; :x>: I Index] - Write (Link) ; 



f=3 9 

N 
S€£>I 



-d<-x ) return TRUE; 

U "A T .."'E; 



j : ^dtionContext 



Read (Buffer &Link) 



: *■ ^mType ; 

t hi s->ReadDynamic (Link) ); 



BOOI 
{ 



-r^-ntationContext : : ReadDynamic (Buffer &Link) 

Count; 
'i :'y:i h ax Tran; 

K^Rrvedl; 
' v.:\qth; 

F: <-\sentationContextID; 
f-.^Mrved2; 
r'--:;*-»rved3 ; 
■ \ -^rved4 ; 

l-rr.ith - sizeof (BYTE) - sizeof (BYTE) - sizeof (BYTE) 

ax . Foad (Link) ; 
o^'int - Abs Syntax. Size () ; 

' r-.unt > 0) 



sizeof (BYTE) ; 



. P - ad ( Link ) ; 
^ = Count - Tran.SizeO; 
\ Syntax. Add ( Tran ); 

r " return TRUE; 

^E; 
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uir 
{ 



* "ionContext ^HPSizeO 
^* 

: ,c of (BYTE) + sizeof (BYTE) .+ sizeof (BYTE) + sizeof (BYTE) ; 

. ..-Syntax . Size ( ) ; - _ 

D; 

- TrnSyntax.GetSi.se () ) 
- = TrnSyn tax. Get (Index) . Size ( ) ; 

r.gth + sizeof (BYTE) + sizeof (BYTE) + sizeof (UINT16 )) ; 



+ * ^************************************ *,* *************** 



Length 



r***************************************************j 



Ma> 
{ 



} 
{ 



]yM J: I 
fill 

a 

CJ 



MaximumSubLength ( ) 



>:51; 

< - } ; 

■ eoi: (UINT32) ; 
. :.-r.h = 16384; 



MaximumSubLength (UII^T32 Max) 



■ 0x51; 
- 0; 

;-eof (UINT32) ; 
• .( h = Max; 

■ ■ * r : : -MaximumSubLength ( ) 

. ' * o cls-allocate 

-:rr.SMbLength :: Set(UINT32 Max) 

. *fh = Max; 

' ^ ."iubLength :: Get() 
. ; nrimLength; 



ubLength 



Write (Buff er &Link) 



boo: 
{ 



• ".Type; 
- . — rvedl ; 
Tth; 
>. \mumLength; 

! ) • 

i'MIE ) ; 

r n .:*ubLength 



Read (Buffer &Link) 



"Type ; 

?->ReadDynamic (Link) ); 



boo: 
{ 



- /ubLength 

. • r^edl; 

;: numLength; 



ReadDynamic (Buf f er &Link) 



UIM* 
{ 



.>iOLength :: Size() 
zeot (UINT32) ; 

-nth + sizeof (BYTE) + sizeof (BYTE) + sizeof (UINT16 )) ; 
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■ + *-***** + * ^^^p^ ******************************** * * * 



ie Select 



* +- * * * - * * - ■* ***i^***********************************************^ 

SCPf :: SCPSCURoleSelect <) 

{ 

...... . ^ x54 . 

. . = 0; 

} 

SCPf ■• * :-r* :: -SCPSCURoleSelect ( ) 

{ 

} 



1 -.in-i de -allocate 



BOOL- . VSTTRnleSelect :: Write (Buffer &Link) 
{ 

■ f ■ - r.'jthl Sise() ; 
' : ■ ' I *" ^mType ; 

' ' . . • served 1 ; 

; .. :,• ■nntrh ; 

" " TT_ - SOPuid .GetSize { ) ; 
' ' • . t r . ; 

•i*- '(BYTE *) SOPuid.GetBuf fer () , TL) ; 

. ::':7Fole; 

• . . I'TRole; 

CJ 1TUE ) ; 

Mbl . *:>rc T .;?oieSelect :: Read(Buffer &Link) 

t. s > . i v . ■ ■ It f^mType ; 

^-f*i-;: : { *-iiis->ReadDynamic (Link) ); 

d5t>L : .7: "RoleSelect :: ReadDynamic (Buf f er &Link) 

p . . Vrv.jth; ; 

rf§ ' * !: *' 

s ' t BYTE"* ) SOPuid.GetBufferO , TL) ; 

Sj ;^*Fuffer() [TL] = '\0'; 

f% /V*' T ,ength (TL) ; 

Sf - • --Role; 

V :• ; .,f.!PRole 

: v :: ' TRUE ) 
} 

UINT V \ 'PiV'URoleSelect :: Size() 
{ 

; M-rii - sizeof (UINT16) + SOPuid . GetSize ( ) + sizeof (BYTE) + sizeof (BYTE) ; 
\ { Length + sizeof (BYTE) + sizeof (BYTE) + sizeof (UINT16 ) ); 



} 

/**" 



+ > ... „ + + >->*A. ********************************************^ 

; 1 ?>tjotiation 



* * * * < * > * * > j ia- + ****************************************************/ 

Extf T r LidUon :: ExtendedNegotiation ( ) 
{ 

: * -■■•/}■ - = 0x56; 
r - - - 0 ; 

nalOB=l; // request relational DB support, by default 
:■ v . '~t ( " 1 . 2 . 840 . 10008 .5 . 1 .4 . 1.2. 1.1" ) ; // C-Find, Patient Root, by default 



} 

Ext^ ; • i .it ion :: -ExtendedNegotiation ( ) 

{ 

} 



de-allocate 



ri 



^j^rite (Buffer &Link) 



BOC: Negotiation ^^^rite (Buf f er &Link) 

{ 

. ' .;iz9() ; 
T --Type; 
> - .-■ .-'edl; 
■ 'th; 

:>OPuid.GetSize( ) ; 

. . liYTE *) SOPuid.GetBuf fer () , TL) ; 

- • i at ionalDB; 

: ' ~ P RVE ) ; 



BOO! / ^Negotiation :: Read(Buffer &Link) 

{ 

■ • It' pmType ; 

* Ms->ReadDynamic (Link) ); 



BOO! : -t-'i' Negotiation : : ReadDynamic (Buf f er &Link) 

{ 



i rvedl ; 
I- i.-jth; ; 
: 

■n ; ' p.YTE' 1- ) SOPuid.GetBuf fer () , TL) ; 

. - \i-wf fer () [TL] = '\0' ; 
..""t L-ngth(TL) ; 
• *e I ^t ionalDB; 
( TPHE ) ; 



UJSJT ' >*t.t.. Negotiation :: Size() 

M * -- .-i jeof (UINT16) + SOPuid.GetSize( ) + sizeof (BYTE) ; 

Jl \ongth + sizeof (BYTE) + sizeof (BYTE) + sizeof (UINT16 ) ); 





*7 Tuition 

\'i , 1* : : Userlnf ormation( ) 



-i-f - 0x50; 
' ; : :[-'iquaqe = 0 ; 
f" 

Use: . *r ■■--■ + : .11 : : -Userlnf ormation ( ) 
{ 

* - i .":q to de-allocate 



voic! -.rlT.t .jrmation :: SetMax (MaximumSubLength &Max) 
{ 

' ■ ::v t*r h = Max ; 

} 

UINT :* i Int ormation :: GetMaxO 
{ 

\ ;:i.iX~MbLength.Get ( ) ) ; 

} 

BOO! \ :m rmation :: Write (Buffer &Link) 



: -nType; 

-.i rvedl ; 
-nth; 

. Write (Link) ; 
: te (Link) ; 
* . Wri te (Link) ; 

-ition .Write (Link) ; - optional, needs to be initialized 
1 . Write (Link) ; - optional, needs to be initialized 

:k-e ) ; 
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I^J^Buffer &Link) 



BOCI - .": t rmation : : 

{ 

♦ -Type; 

* . • + 3 -^ReadDynamic (Link) ); 

} 

BOCI r:nation :: ReadDynamic (Buf f er &Link) 

r^mpBy te ; 

* /t.naqe = 0; 

t *-:-rvedl ; 

_ ~ = Length; 

. r.\ > 0> 

TempByte; 
t r ' TempByte ) 

0x51: // Reading Max Sub Length 
::a>\;ubLength. ReadDynamic (Link) ; 

'■'ric = Count - MaxSubLength. Size ( ) ; 

. Irak; 

3x52: // Reading Implementation Class 
: t - " 1 i\ s s . ReadDynami c ( L ink ) ; 
•- urir. = Count - ImpClass . Size ( ) ; 

0x54: // Role selection 
. v t'^CURole . ReadDynamic (Link) ; 
'•■-unt = Count - SCPSCURole.SizeO; 
p. rIn£oBaggage += SCPSCURole.SizeO; 

J] 0x55: // Reading Implemenation Version 

fzl T ;ip~ r er si on . ReadDynamic (Link) ; 

y! junt = Count - ImpVersion . Size ( ) ; 

41 Ir^k; 

• 0x56: // Reading Extended Negotiation 
Kxt Negotiation. ReadDynamic (Link) ; 

u| .Mint - : Count - ExtNegotiation. Size () ; 

J": Mr-ak; 

2; 1 r.i;*-: // Unknown Packet 

HJ * ;n : ;.Kill (Count-1) ; 

= ZnnoBaggage = Count; 

7. 



■r: f 1 return TRUE; 



IS^JT ■ .'Information :: Size() 

<U 

- MaxSubLength. Size () ; 
'■ : + rtnpClass . Size ( ) ; 

- - TT.pVersion. Size { ) ; 

- - ExtNegotiation. Size () ; 
. * ■ SCUSCPRole.SizeO ; 

' L^n-jth + Userlnf ©Baggage + sizeof (BYTE) + sizeof (BYTE) + sizeof (UINT16) ) ; 



*-******************************************** 



i Packet 



AAsr : : : : AAssociateRQ ( ) 
{ 

- 0; 

*' ' ."orr.ion = 0x0001; 

- n ; 

le'iApTitle, 17) ; 
■j 1 : i^gApTitle, 17); 
w.c;.-r"ed3 ( 32); 

} 

AAs. • , AAssociateRQ (BYTE *CallingAp, BYTE *CalledAp) 

{ 
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i 




.i-n = 0x0001; 



: ,-?-3ApTitle t 17); 

.xrjApTitle, 17); 
- r-ed3, 32); 

; . 1 i^yApTitle, CallingAp, ByteStrLength (CallingAp) ) ; 
j. I-dApTitle, CalledAp, ByteStrLength (CalledAp) ) ; 

} 

AAsr , :: -AAssociateRQ ( ) 

{ 

■ .-. -nnexts .GetSize ( ) ) 

' r.^xLs.Get ( 0 ) .TrnSyntax.ClearType = TRUE; 

.-■ ■ rex*-. 3 . Remove At ( 0 ); 

v ear Type = TRUE; 

} 

voi- ■ : ui'iP.Q :: SetCalledApTitle ( BYTE *CalledAp) 
{ 

- . " 1- iApTitle, 17) ; 

, • 1-dApTitle, CalledAp, ByteStrLength (CalledAp) ) ; 

} 

voir iteRQ :: SetCallingApTi tie (BYTE *CallingAp) 
{ 

. \. 1 imrApTitle, 17); 

■ -* . 1 1 iingApTitle , CallingAp, ByteStrLength ( CallingAp) ) ; 

} 

voir- ,:-.*;;- -;i -i*:eRQ :: SetApplicationContext (ApplicationContext &AppC) 
{_ 

O ■ ^ AnpC; 

vidr *. : ireRQ :: SetApplicationContext (UID &uid) 

. . "e^. {uid) ; 

ft 

V3 

vStu. ^st^RQ :: AddPresentationContext ( PresentationContext &PresContext) 

^ ■ * ■ ■ xv. . Add (PresContext) ; 

Hi -xt, .Get (PresContexts .GetSize ( ) -1) .TrnSyntax.ClearType = TRUE; 

ysRci » - : ateRQ :: SetUserlnf ormation (Userlnf ormation &User) 



-a 



A££y.r; ^ c eRQ :: ClearPresentationContexts ( ) 

. ■ ."vntexts .GetSize () ) PresContexts .RemoveAt ( 0 ); 



BOOI -iteRQ :: Write(Buffer &Link) 

{ 

: t f^.Type ; 
r ^ervedl ; 
: v*-T; 7 th; 

r-^r.focolVersion; 
: :-.-:er"ed2; 

'BYTE *) CalledApTitle, 16); 
: : * ' 3VTE *) CallingApTitle, 16); 
3VTE *) Reserved3, 32); 

. * ' :n te (Link) ; 

: PresContexts. GetSizeO ) 

^exns [Index] .Write (Link) ; 

: - 21 x ; 

" ■ ■ - Le (Link) ; 

* . -F"E ) ; 

} 

BOO: -; i-eRQ :: Read(Buffer &Link) 
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>F^adDynamic 




)); 




ReadDynamic (Buffer &Link) 



Count ; 
Temp By te ; 
.'ntext *PresContext; 

■r'?dl; 



*■ ; v diversion ; 
- r-ed2; 

'?v/TE *) CalledApTitle, 16); 
■-YTE + ) CallingApTitle, 16); 
■\\ : P YTE *■) Reserved3, 32); 

:*:^:i6] = '\0'; 
( >\I r*-I-:i6] = '\0'; 

>:^th - sizeof (UINT16) - sizeof (UINT16) - 16 - 16 - 32; 

-id ! (BYTE *) &TempByte, sizeof (BYTE) ) ; 

' - r. * Temp3yte) 

*.i •» 0x50: // User information 
llj^r Info .ReadDynamic (Link) ; 

C'v.mt = Count - Userlnf o . Size ( ) - Userlnf o.Userlnf oBaggage; 

cr^ak; 

0x20: // Presentation context 
PresContext = new PresentationContext; 
Pr^sContext->TrnSyntax.ClearType = TRUE; 
PresCon text ->ReadDynamic (Link) ; 
Count = Count - PresContext->Size ( ) ; 
PresContexts .Add ( *PresContext) ; 
PresContext->TrnSyntax.ClearType = FALSE; 
delete PresContext ; 
br^ak; 

v,^ 0x10: // Application context 
AppContext . ReadDynamic (Link) ; 
. Count = Count - AppContext . Size () ; 

or^ak ,- 

. i* mjx':: // Unknown item 

Link. Kill (Count-1) ; 
C^unt = -1; 



return TRUE; 



•J riteRQ 



Size() 



^ .^ir.er.-f (UINT16) + sizeof (UINT16 ) + 16 + 16 + 32; 

*- " ^I , P ( "^ntext . Size ( ) ; 



T ;- 1 -x < PresContexts .GetSize () ) 



X 



PresContexts [Index] .Size( ) ; 



' J?. er Inf o . Size ( ) ; 
i M igt-h + sizeof (BYTE) + sizeof (BYTE) + sizeof (UINT32 ) ); 



12 



